Hallo zusammen,
<p>
ich habe noch keinerlei Erfahrung mit Threads und benötige einen keinen schubs in die richtige Richtung:</p>
<p>
Also, ich möchte eine Komponente von Fastnet TNMStrmServ in einem Thread einsetzen, Das Ereignis NMStrmServMSG soll in einem Thread verarbeitet werden, dieses Ereignis tritt jedes Mal ein, wenn TNMStrmServ ein Datenstream erhält.</p>
<pre>
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMSTRM;
type
TForm1 = class(TForm)
NMStrmServ: TNMStrmServ;
procedure NMStrmServMSG(Sender: TComponent; const sFrom: String;
strm: TStream);
procedure NMStrmServStatus(Sender: TComponent; Status: String);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
TStreamThread = class(TThread)
private
{ Private-Deklarationen }
protected
procedure Execute; override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TStreamThread.Execute;
begin
{ Thread-Code hier plazieren }
end;
procedure TForm1.NMStrmServMSG(Sender: TComponent; const sFrom: String;
strm: TStream);
begin
//Soll in eigenem Thread laufen
end;
procedure TForm1.NMStrmServStatus(Sender: TComponent; Status: String);
begin
//Was ist mit den übrigen Ereignissen?
end;
end.
</pre>
<p>Vielen Dank für jede Hilfe</p>
<p>
ich habe noch keinerlei Erfahrung mit Threads und benötige einen keinen schubs in die richtige Richtung:</p>
<p>
Also, ich möchte eine Komponente von Fastnet TNMStrmServ in einem Thread einsetzen, Das Ereignis NMStrmServMSG soll in einem Thread verarbeitet werden, dieses Ereignis tritt jedes Mal ein, wenn TNMStrmServ ein Datenstream erhält.</p>
<pre>
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMSTRM;
type
TForm1 = class(TForm)
NMStrmServ: TNMStrmServ;
procedure NMStrmServMSG(Sender: TComponent; const sFrom: String;
strm: TStream);
procedure NMStrmServStatus(Sender: TComponent; Status: String);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
TStreamThread = class(TThread)
private
{ Private-Deklarationen }
protected
procedure Execute; override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TStreamThread.Execute;
begin
{ Thread-Code hier plazieren }
end;
procedure TForm1.NMStrmServMSG(Sender: TComponent; const sFrom: String;
strm: TStream);
begin
//Soll in eigenem Thread laufen
end;
procedure TForm1.NMStrmServStatus(Sender: TComponent; Status: String);
begin
//Was ist mit den übrigen Ereignissen?
end;
end.
</pre>
<p>Vielen Dank für jede Hilfe</p>