Brack - Di 06.12.05 19:14
Titel: Bekomme immer Exception fuer TIdHTTP.Get aus einem Webmodul
Moin,
ich erweitere hier gerade ein bestehendes Webmodule und wollte "mal eben" einen HTTP Request aus einer Action heraus absetzen, von dessen Ergebnis die weitere Bearbeitung abhaengt.
Der Code sieht gekuerzt so aus
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TWebModul.WebModulwactDownloadAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
...
sAccessCheck, sURL_Check, sSessionID, sFilenameSrc : String;
HTTP1 : TIdHTTP;
begin
...
HTTP1 := TIdHTTP.Create(self);
try
sAccessCheck := UpperCase(
HTTP1.Get(sURL_Check + '-N'+sSessionID+',-A'+sFilenameSrc)
);
except
sAccessCheck := 'Exception in HTTPGet.';
end;
HTTP1.Free;
...
end; |
Es ist die Zeile mit dem HTTP1.Get, die "boese" ist. Mache ich stattdessen einfach mal einen Redirect auf die URL, die ich eigentlich per TIdHTTP holen moechte, dann laeuft alles problemlos.
Uebersehe ich da was grundsaetzliches? Beim googlen habe ich aehnlichen Code gesehen, der angeblich funktioniert. Oder fehlt ein Setting?