den TWebbrowser nehm ich ja schon, allerdings ist dieses nicht grad ein optimaler Weg.
besser wäre sowas:
- Cockie aus dem IE auslesen
- datei runterladen und im String speichern
z.B. mit INDY/JEDI ... irgendwie soll man da ja die Cockies angeben können
- eventuell empfanges Cockie wieder im IE speichern
hab jetzt auch schon 2 weiter Varianten zum Runterladen einer Datei
und bei Ersterem mit
INDY soll man so angeblich ein Cockie mitsenden können,
aber da fehlt mir dann noch das nötige Cockie.
Beim Zweitem weiß ich nichtmal wie man dort das Cockie überhaupt einbaut,
allerdings wäre es mir so dann schon lieber, da so keine Zusatzkomonenten nötig wären.
Delphi-Quellcode:
Function TForm1.DownloadFile(
Const URL:
String):
String;
Begin
IdHTTP1.Request.UserAgent := '
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0; .NET CLR 1.0.3705)';
IdHTTP1.Request.CustomHeaders.Add('
Cookie:' + Cookie);
Result := IdHTTP1.Get(
URL);
End;
Function TForm1.DownloadFile(
Const URL:
String):
String;
Const BufferSize = 2048;
Var hSession, hURL: HInternet;
Buffer:
String;
BufferLength: LongWord;
begin
Result := '
';
hSession := InternetOpen('
User', INTERNET_OPEN_TYPE_PRECONFIG,
nil,
nil, 0);
hURL := InternetOpenURL(hSession, PChar(
URL),
nil, 0, 0, 0);
Repeat
SetLength(Buffer, BufferSize);
InternetReadFile(hURL, @Buffer[1], BufferSize, BufferLength);
Result := Result + Copy(Buffer, 1, BufferLength);
Until BufferLength = 0;
InternetCloseHandle(hURL);
InternetCloseHandle(hSession);
End;