iNet Lazarus

[aldi]

Kann leider keine Verbindung aufbauen !
Was mache ich falsch?


procedure TForm1.MenuItem10Click(Sender: TObject);
var
Port : integer;
ServerIP : String;
Verbindungsaufbau : boolean;
begin
Port := 1234;
ServerIP := '192.168.0.110';
Verbindungsaufbau := Client.Connect('192.168.0.110',1234);
if Verbindungsaufbau then
Memo1.Append('Die Verbindung wird aufgebaut . . .');
end;

[Komoluna]

Was passiert denn?
Eine spezifischere Fehlerbeschreibung währe hilfreich:

Wird der Text auf dem Memo ausgegeben?
Hängt sich das Programm auf?
...

MFG

Komoluna

[aldi]

hallo,

habe das Problem gelöst, es geht jetzt!

Code: Alles auswählen

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Port : integer;
  ServerIP : String;
  Verbindungsaufbau : boolean;
begin
  BitBtn1.Enabled:= False;
  BitBtn3.Enabled:= True;
  Panel2.Enabled:= True;
  Port := StrToInt('4321');
  Verbindungsaufbau := Server.Listen(Port);
end;