Client Server Problem ????

[Vader]

hab da ein Client Server Prog geschrieben das nur einen Text
am Server in einen Memofeld ausgeben soll.
Die zwei Prog. lassen sich ohne Fehler kompilieren, aber
der Text wird im Memofeld nie angezeigt.

server code:

Code:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  MSG: String;
begin
  //Der Text wird in der Variable MSG gespeichert
  MSG:=Socket.ReceiveText;

  //Der Text wird einem MemoFeld hinzugefügt
  Memo1.Lines.Add(MSG);


end;

client code:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Clientsocket1.Socket.SendText('Hallo!');

end;

Die Portnummer habe ich bei jeden Komponenten auf 10055 gestellt.( Eigenschaften )

Und die Eigenschaft Host im Client auf 127.0.0.1.

??? muß ich noch was ein bzw umstellen ?????


mfg Vader

[edit=sakura] Code-Tags korrigiert. Mfg, sakura[/edit]

[Minz]

127.0.0.1 muss natürlich die ip deines Servers sein.

Und du musst beide Komponenten noch aktivieren.

Probier nochmal ein memo.refresh.

Wenns auch nix hilft musst weitersuchen :)

[cyberkiller0072001]

Ich denke auch, dir fehlt der befehl

Delphi-Quellcode:

serversocket1.connect

bzw.

Delphi-Quellcode:

clientsocket1.connect;

Am besten einfach in die procedur Formcreate schreiben!

[Vader]

wenn ich das Prog starte kommt die Fehlermeldung:

Windows socket Fehler (11001), auf API ASync Lookup

was bedeutet diese Meldung ,kommt von Windoof oder ??

was ganz komisch ist wenn ich online bin funzt das Prog nach mehrmaligen
starten.
Hat das mit dem Betriebssystem was zu tun, hab ME.

mfg vader

[cyberkiller0072001]

Ich glaube nicht, dass es am OS liegt. Bei welchem Programm kommt der fehler denn?
Server oder Client?

[Minz]

Du musst die Reihenfolge beachten, in der du die Verbindungen öffnest.

erst:
ServerSocket1.active:=true;

und erst dann:
ClientSocket1.active:=true;

[cyberkiller0072001]

Wenn der client den server nicht findet, kommt normalerweise fehler 10061

[Vader]

danke für eure hilfe aber es funzt nicht, hab es auf Win 2000 Prof.
ausprobiert und dort läuft es.
keine Ahnung warum ??

mfg vader

[cyberkiller0072001]

Vielleicht hast du ne Firewall, die die Ports sperrt, die du benutzt...
Schau mal nach!