Einzelnen Beitrag anzeigen

Benutzerbild von Dyami
Dyami

Registriert seit: 24. Sep 2013
Ort: Schleswig-Holstein
25 Beiträge
 
Delphi 10.3 Rio
 
#1

TClientSocket führt keine Events aus

  Alt 10. Mai 2019, 10:13
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
Philipp
  Mit Zitat antworten Zitat