Hey,

ich mach da doch besser mal nen neuen Thread auf. Und zwar erzeuge ein ClientSocket und lasse es in einem Thread versuchen zu verschiedenen Adressen eine Verbindung herzustellen:

zusammenfalten · markieren

Delphi-Quellcode:

constructor TTCPThread.Create;
begin
  inherited;
  Cnt := 0;
  Authenticated := false;
  TCPClient := ScktComp.TClientSocket.Create(nil);
  TCPClient.ClientType := ctBlocking;
  //TCPClient.ReadTimeout := 5000;
  TCPClient.OnConnect := OnConnect;
  TCPClient.OnDisconnect := OnDisconnect;
  TCPClient.OnRead := OnRead;
  TCPClient.OnError := OnError;
end;

destructor TTCPThread.Destroy;
begin
  TCPClient.Free;
  SetLength(ListArray, 0);
  inherited;
end;

procedure TTCPThread.Execute;
begin
  repeat
    if not TCPClient.Socket.Connected then
    begin
      TCPClient.Host := ListArray[Cnt].Host;
      TCPClient.Port := ListArray[Cnt].Port;
      try
        TCPClient.Active := true;
      except

      end;
      if Cnt = High(ListArray) then
      begin
        Cnt := -1;
      end;
      Cnt := Cnt + 1;
    end;
    Sleep(DataRecord.IntervalSIN);

  until Terminated;
end;

procedure TTCPThread.OnConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  SendAuthHandshake(Socket); // Autentifizierung beginnen
end;

procedure TTCPThread.OnDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  //
end;

procedure TTCPThread.OnError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  ErrorCode := 0;
  OnDisconnect(Sender, Socket);
end;

procedure TTCPThread.OnRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  MessageBox(0, 'test', 'test', 0);
end;

Der AuthHandshake, den ich über SendBuffer und SendStream an den Server schicke kommt wunderbar an. Beim Server sende ich mit den gleichen Funktionen Daten zurück. Diese werden, wie ich mit einem Sniffer geprüft habe, auch wirklich gesendet, gelangen aber irgendwie nie zum Client. Das OnRead Ereigniss wird zumindest nie aufgerufen ..

Hat da jemand eine Idee ..?

Gruß Florian

HI,
bin mir gerade nicht 100%ig sicher, aber meiner Meinung nach gibt es kein Ereignis für eingehende Daten. OnRead wird ausgeführt, wenn wirklich gelesen wird, das Lesen an sich musst Du aber aktiv selbst vornehmen. Dazu gibt es den Read-Befhel (oder was in der Richtung), der solange wartet (besser gesagt blockiert) bis Daten ankommen. Das ist gerade eines der Probleme mit den ClientSockets.

Gruß Der Unwissende

Mhh .. früher meine ich habe ich allerdings einfach im OnRead Ereigniss auf Daten gewartet und dann diese gelesen. Das ging wunderbar .. ohne Thread mit einer VCL Anwendung funktioniert ja auch alles ..

Das Ereignis gibt es sehr wohl. Wenn der Server Daten schickt wird das Event aufgerufen um zu signalisieren das der Client daten lesen soll.
ABER: Niemand schreibt vor das der Server Daten schreibt und hofft das der Client diese dann liest. Das ist vom Protokoll abhängig. Es kann ebenso sein das der Server wartet bis der Client Daten anfordert und erst dann wenn der Client eben versucht Daten zu lesen (also diese Anfordert) auch welche schickt.

Jetzt dazu warum das nicht in deinem Thread funktioniert.
1.) Du solltest nicht nur irgendwas verwenden sondern auch etwas Grundwissen haben was im inneren der Komponenten passiert welche du verwendest
2.) TClientSocket arbeitet über Windowmessages. Wenn in deinem Thread die Messages nicht behandelt werden (Nachrichtenschleife) kommen natürlich auch keine Nachrichten zu deinem Socket.

Ich find ne Messagebox in einem Thread auch ziemlich gewagt.

ist in keinster Weise gewagt da sie ohne verwendung der VCL ist.

@SirThornberry: Ah, also muss ich nur eine Nachrichtenschleife in meinen Thread einbauen? Werde das mal ausprobieren .. Vielen Dank schonmal.

Da ich nur PE Versionen von Delphi habe konnte ich leider nie in den Quelltext der VCL schauen Eine Professional wäre denke ich langsam mal angebracht ..

Mh, habe jetzt mal eine Nachrichtenschleife in die Execute Methode geschrieben, die gestartet wird, sobald der Client verbunden ist.

Das Programm kommt bis GetMessage und spring nicht weiter zu TranslateMessage, etc. Das OnRead Event wird immer noch nicht aufgerufen .. was mache ich falsch?

versuch mal obs klappt wenn du den client im Execute erstellst, also der Client im Context des Threads erstellt wird.

Hi,
ist bestimmt ne blöde Frage, aber klappt dein code denn außerhalb eines Threads? Folgende Zeile ist mir recht unklar:
TCPClient := ScktComp.TClientSocket.Create(nil); Welche Klasse repräsentiert dein TCPClient? Und wenn das TClientSocket ist, was macht ScktComp davor?

Gruß oki