[S] Hilfe bei Threads mit Delphi

CoolObsession · 17. März 2009

Hey ich habe ein groÃ?es Problem. Ich will meinen Code ausfÃ¼hren lassen in einem Thread. Mein Thread Code ist nun folgender:

Code

unit Unit3;
interface
uses
Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF},IdMultipartFormData,IdHttp,
IdComponent, IdTCPConnection, IdTCPClient,StrUtils,forms,unit1,unit2;
type
TArrayofstring = array of string;
upload = class(TThread)
IdHTTP1: TIdHTTP;
private
procedure SetName;
protected
procedure Execute; override;
end;
implementation
{ Wichtig: Methoden und Eigenschaften von Objekten in visuellen Komponenten dÃ¼rfen
nur in einer Methode namens Synchronize aufgerufen werden, z.B.
Synchronize(UpdateCaption);
und UpdateCaption kÃ¶nnte folgendermaÃ?en aussehen:
procedure upload.UpdateCaption;
begin
Form1.Caption := 'Aktualisiert in einem Thread';
end; }
{$IFDEF MSWINDOWS}
type
TThreadNameInfo = record
FType: LongWord; // muss 0x1000 sein
FName: PChar; // Zeiger auf Name (in Anwender-Adress-Bereich)
FThreadID: LongWord; // Thread-ID (-1 ist Caller-Thread)
FFlags: LongWord; // reserviert fÃ¼r zukÃ¼nftige Verwendung, muss 0 sein
end;
{$ENDIF}
{ upload }
procedure upload.SetName;
{$IFDEF MSWINDOWS}
var
ThreadNameInfo: TThreadNameInfo;
{$ENDIF}
begin
{$IFDEF MSWINDOWS}
ThreadNameInfo.FType := $1000;
ThreadNameInfo.FName := 'upload';
ThreadNameInfo.FThreadID := $FFFFFFFF;
ThreadNameInfo.FFlags := 0;
try
RaiseException( $406D1388, 0, sizeof(ThreadNameInfo) div sizeof(LongWord), @ThreadNameInfo );
except
end;
{$ENDIF}
end;
function FindInString(Text, SearchFrom, SearchTo: string; FirstOnly: Boolean; var Return: TArrayOfString): Boolean;
var
i: Integer;
FoundString: string;
begin
Result := False;
SetLength(Return, 0);
i := Pos(SearchFrom, Text);
while i > 0 do
begin
Result := True;
i := i + Length(SearchFrom);
FoundString := Copy(Text, i, PosEx(SearchTo, Text, i) - i);
SetLength(Return, Length(Return) + 1);
Return[High(Return)] := FoundString;
Delete(Text, 1, i);
i := Pos(SearchFrom, Text);
if FirstOnly then
Break;
end;
end;
procedure upload.Execute;
var
s:string;
after:tarrayofstring;
stream: TIdMultiPartFormDataStream;
begin
SetName;
if form2.radiobutton1.Checked then
begin
s:=('http://www.imagebanana.com/');
stream := TIdMultiPartFormDataStream.Create;
Stream.AddFormField('send','Hochladen!');
Stream.AddFile('img','23.jpg', 'multipart/form-data');
s:=IdHTTP1.Post(s,Stream);
form1.memo1.text:=s;
FindInString (form1.memo1.text,'[img=','][/url]"',true,after);
form1.edit1.text:=after[0];
end;
end;
end.

Alles anzeigen

Wie kriege ich mein Programm jetzt dazu das der Thread ausgefÃ¼hrt wird. Ich glaube ich habe schon im Thread fehler gemacht, aber im Internet finde ich einfach nichts das leicht verstÃ¤ndlich ist.

Also wie bekomme ich den Code ausgefÃ¼hrt das ich am Ende das Ergebniss in meinem Hauptfenster habe?

berlinermauer · 17. März 2009

Also ich habe das so gemacht :

[Delphi]
var
ThreadID: DWORD; //Thread-ID
ThreadHandle: THandle; //RÃ¼ckgabewert von CreateThread

function ISGAY // Blah Blah Blub^^ du brauchst afaik ne Function

hreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine(@ISGAY),nil, 0, ThreadID);

//wenn der Thread erfolgreich gestartet wurde (ThreadHandle<>0), kÃ¶nnen
//wir ThreadHandle wieder freigeben:
if ThreadHandle<>0 then CloseHandle(ThreadHandle);
[/delphi]

Das Problem ist dass du es nicht gescheit beenden kannst (von auÃ?en killen)

DH wenn der Thread aktiv istr und jemand beendet es dann wird gewartet bis der thread fertig ist

Meiner zB war aber ne EndlosSchleife

Also muss du was einbauen dass er bei net gegebenheit einfach aufhÃ¶rt oder noch besser (wegen Speicher)

EndThread(0); machst, 0 = No Error..

CoolObsession · 17. März 2009

Ist ziemlich kreuz und quer Verstehe nur die hÃ¤flte haste vllt nen source schnipsel von dir wo es aufgerufen wird?

berlinermauer · 17. März 2009

hab ich doch.

also du brauchst zwei variabeln

dann ne Funktion muss exsistieren

und dann :

Code

ThreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine(@Funktionsname),nil, 0, ThreadID);
//wenn der Thread erfolgreich gestartet wurde (ThreadHandle<>0), kÃ¶nnen
//wir ThreadHandle wieder freigeben:
if ThreadHandle<>0 then CloseHandle(ThreadHandle);

CoolObsession · 17. März 2009

OK Danke das war verstÃ¤ndlicher

Zacherl · 17. März 2009

Das ThreadHandle wÃ¼rde ich nicht manuell freigeben. DÃ¼rfte beim Aufruf von ExitThread (Delphi mÃ¼sste das automatisch nach dem Abarbeiten des Thread Codes aufrufen) sowieso geschlossen werden. Mit dem Handle kÃ¶nnte mann Ã¼ber TerminateThread() nÃ¤mlich den Thread bei Bedarf auch abbrechen.

Allerdings sind das nun Threads auf Win API Basis und nicht das TThread Object. Beim TThreadObject musst du eine Klasse von TThread ableiten und die Execute Methode Ã¼berschreiben. Dann erzeugst du ein Objekt vom Typ TMyThread (also deine neue Klasse) entweder mit TRUE als Parameter oder mit FALSE und rufst danach Resume auf.

Teilen