Hi,
folgendes Problem:
Ich starte über einen ButtonClick eine Reihe von Indy Operationen. Die erste ist z.B. eine .Post Methode.
Nun möchte ich, dass sobald diese Post Methode das OnWorkEnd Event aufgerufen hat, direkt eine weitere IdHTTP Methode ausgeführt wird, z.B. die .Get Methode.
Dazu habe ich mir folgendes gebaut:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| procedure tform1.dlhttpworkEnd(sender: tobject; AWorkMode: TWorkMode);
var
ausgabe, fausgabe: string;
begin
if DLHTTPsStatus[self.tag]=0 then begin
ausgabe:= DLInfoStream[self.tag].DataString;
if ausgabe='loginsuccess' then
begin
DLHTTPsStatus[self.tag] := 1; showmessage('a');
DLHTTPs[self.tag].Get('http://www.google.de', DLInfoStream[self.tag]);
end
else if ausgabe<>'' then
begin
showmessage('Fehler');
end;
end
else if DLHTTPsStatus[self.tag]=1 then begin
showmessage('b');
end;
end; |
Nun das Problem:
Messagebox 'a' wird zwar ausgerufen, und der .Get Befehl wird aus ausgeführt (wenn ich ihn mir direkt in einer Messagebox z.B. anzeigen lasse..), allerdings kommt die Messagebox 'b' einfach nicht.. es sieht so aus, als ob das OnWorkEnd Event nicht mehr ausgerufen werden würde für die .Get Methode..
Weiß jemand Rat
?
Danke + Grüße
Passi
