Hallo zusammen,
ich habe das Problem, dass wenn ich meinen Text versenden möchte dass er nicht in das Event MyOnWrite rein kommt.
Der Server steht und sagt auch, dass meine Anwendung verbunden ist.
Ich hätte erwartet, dass das MyOnWrite Event ausgelöst wird, sobald RufeGewichtAb durch ist.
Was mache ich falsch?
Delphi-Quellcode:
procedure InitSocket;
begin
FEingangsSocket := TClientSocket.Create(nil);
FEingangsSocket.Host := '127.0.0.1';
FEingangsSocket.Port := '8080';
FEingangsSocket.Socket.ASyncStyles := [asRead, asWrite, asOOB, asAccept, asConnect, asClose];
FEingangsSocket.OnRead := MyOnRead;
FEingangsSocket.OnWrite := MyOnWrite;
FEingangsSocket.ClientType := ctBlocking;
setsockopt(FEingangsSocket.Socket.SocketHandle, IPPROTO_TCP, TCP_NODELAY, PAnsiChar(1), 4);
FEingangsSocket.Active := True;
Application.ProcessMessages;
RufeInGewichtAb;
end;
procedure MyOnRead(Sender: TObject; Socket: TCustomWinSocket);
begin
FPrüfText := string(FEingangsSocket.Socket.ReceiveText); //Text auslesen
end;
procedure MyOnWrite(Sender: TObject; Socket: TCustomWinSocket);
begin
FTimer.Enabled := True; //Aktiviere einen Timer
end;
function RufeInGewichtAb(): boolean;
begin
FEingangsSocket.Socket.SendText(WE WUMSCH V');// Text-Senden
end;
Danke LG