Einzelnen Beitrag anzeigen

Dragon27

Registriert seit: 20. Nov 2003
Ort: Aßling
543 Beiträge
 
Delphi XE6 Enterprise
 
#4

Re: IPWorks [Problem bei Übersetzung C++] WOULDBLOCK

  Alt 17. Sep 2009, 22:30
So, Probelm gelöst....

1. Globale Variable deklarieren (CanSend:Boolean)
2. Wenn Daten gesendet werden sollte das ganze so aussehen:

Delphi-Quellcode:
      try
        Client.DataToSend:='TEXT'+#10;
      except
        Cansend:=false;
      while Cansend=false do begin
         Client.DoEvents;
      end;
       if Cansend=true then begin
         Client.DataToSend:='TEXT'+#10;
       end;
      end;
3. Im OnReadytoSend Ereignis muss die Variable CanSend auf true gesetzt werden.

Falls trotzdem jemand einen Verbesserungsvorschlag hat immer her damit . Auf alle Fälle funktioniert es bei mir so.
Delphi is ......... DELPHI!!
  Mit Zitat antworten Zitat