Hallo, ich habe (Delphi5) beim Aufruf von PSock1.Connect; in einem weiteren Thread eine Fehlermeldung, weiß mir keinen Rat mehr, was habe ich wo vergessen oder falsch gemacht???
Bin dankbar für eine Idee.
Franziska
Code:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation uses Unit2; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var NewThread: thread1; begin NewThread:=thread1.Create(false); end; end.
Code:
unit Unit2; interface uses Classes, unit1, SysUtils, Psock, dialogs; type thread1 = class(TThread) private verbunden : Boolean; { Private-Deklarationen } protected procedure Execute; override; procedure Ergebnis; end; implementation { thread1 } procedure thread1.Execute; var Psock1: TPowersock; begin verbunden := False; PSock1 := TPowersock.Create(Nil) ; PSock1.TimeOut := 5000; PSock1.Host := 'www.google.de'; PSock1.Port := 7; try ShowMessage('vor connect'); PSock1.Connect; ShowMessage('nach connect'); finally ShowMessage('finally'); verbunden := PSock1.FConnected; PSock1.Disconnect ; PSock1.Free ; end; ShowMessage('Synchronize'); Synchronize(Ergebnis); end; procedure thread1.Ergebnis; begin if verbunden then Form1.caption :='verbunden'; end; end.
Franziska