Thema: Delphi ping-pong->übermittlung

Einzelnen Beitrag anzeigen

Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#14

Re: ping-pong->übermittlung

  Alt 7. Mai 2005, 12:25
du kannst die sockets aber registrieren.
die winsocks unit einfach in ein package machen und dann installieren.
geht bei d2005pe mit fünf klicks und du hast sie in der toolbox.
ich habe das allerdings bei d7pe auch irgendwie hingekriegt.

winsocks verwenden:

init:
Delphi-Quellcode:
server:=TWinServerSocket.create;
client:=TWinCLientSocket.create;
server.port:=6667; //das is der standard IM port. kannst auch nen anderen nehmen, aber glaub ich besser nicht unter 1000
client.port:=6667; //ebenso
client.address:='127.0.0.1//die loopback ip. hier die des entfernten rechners nehmen. oder lassen, wenn dus auf deinem eigenen rechner probieren willst.
server.open(); //()?! verdammt ich mach eindeutig zu viel mit c und java....
client.open;
senden:
client.socket.sendtext(s); //es gibt auhc noch sendstream und sendbuf empfangen:
Delphi-Quellcode:
procedure TForm1.RegServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket); //ereignisbehandlung für server.onclientread!!!!!
//ich weiss nicht, was man da genau reinschreeiben muss.....
//EDIT: doch ich glaub es geht so:
begin
s:=server.socket.receivetext; //analog receivebuffer
end;
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat