Also ich wollte mit socket etwas machen. Grob gesagt sollen records hin und her geschickt werden. früher habe ich dass mit
indy gemacht, aber dass wurde zu kompliziert und deswegen versuche ich jetzt sockets. hier der relevante code:
Client:
Delphi-Quellcode:
procedure Tform1.loginbuttonClick(Sender: TObject);
var rec1:iprec;
begin
clientsock.Port:=628;
clientsock.Host:='
127.0.0.1';
clientsock.active:=true;
rec1.clientip:=
ip;
rec1.clienthost:=host;
clientsock.open;
clientsock.Socket.SendBuf(rec1,sizeof(rec1));
showmessage('
hallo');
clientsock.close;
end;
Server
Delphi-Quellcode:
procedure Tform1.bsvcontrClick(Sender: TObject);
begin
if bsvcontr.caption='Server ist online' then
begin
bsvcontr.caption:='Server ist offline';
serversock.active:=false;
serversock.socket.close;
end else begin
if bsvcontr.caption='Server ist offline' then
begin
bsvcontr.caption:='Server ist online';
serversock.Port:=628;
serversock.active:=true;
serversock.Open;
end;
end;
end;
Ich hoffe ihr könnt mir helfen.
Edit: delphisource gekenzeichnet