Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi IdHTTP.GET Problem mit Urls aus TStringList (https://www.delphipraxis.net/95850-idhttp-get-problem-mit-urls-aus-tstringlist.html)

skorbut 14. Jul 2007 04:26


IdHTTP.GET Problem mit Urls aus TStringList
 
Hallo zusammen :)

Benutze Delphi 7 Pro und die Indy9 Komponenten. Bei der Benutzung von IdHTTP.Get klappt es leider
nicht so wie geplant.

Ich habe ein Memo1, dort befindet sich eine Liste mit Urls.
Delphi-Quellcode:
[url]http://www.urlxy.com/showlog?actual=1&all=1[/url]
[url]http://www.urlzy.com/showlog?actual=1&all=1[/url]
[url]http://www.urlvy.com/showlog?actual=1&all=1[/url]
(Für das Beispiel hab ich Domains genommen die nicht existieren, habe im Code aber
existierende Urls mit genau dem selben Aufbau)

Diese Urls lade ich in eine TStringliste und wollte sie dann mit IdHTTP per Stream, nacheinander
herunterladen. Der Teil mit der Stringlist und das auslesen, Zeile für Zeile funktioniert
wunderbar, jedoch lädt er die besagten Seiten nicht herunter.

Habe bereits Google und die Boardsuche benutzt, aber dort wurde ich nicht fündig, zu diesem spezifischem Problem.

Delphi-Quellcode:
procedure TForm1.getpage();
 var
  fn: TFileName;
  fs : TFileStream;
  ProgPfad, FileDate : String;
begin
 
  FileDate:=StringReplace(DateTimeToStr(Now),':', '_', [rfReplaceAll]);

  ProgPfad := ExtractFilePath(Application.ExeName);
  fn := ProgPfad + FileDate +'.txt';
  fs := TFileStream.Create(fn, fmCreate);
  try
    try  // my_url ist global und beinhaltet die Url aus der Stringlist
      Form1.IdHTTP1.Get(my_url, fs); // <- Da gibt er SocketError aus
    except
    end;
  finally
    FreeAndNil(fs);
  end;
end;

- habe statt Form1.IdHTTP1.Get(my_url, fs); zum Test Form1.IdHTTP1.Get('http://www.urlzy.com/showlog?actual=1&all=1', fs);verwendet.
-Resultat : Socket Error : Connection refused


Vieleicht kann mir da jemand helfen :)
Grüsse

defede 17. Sep 2007 13:13

Re: IdHTTP.GET Problem mit Urls aus TStringList
 
Hi, versuchs mal mit direkten Dateizugriffen,
heisst.
> Er möchte schon konkret den namend er Datei wissen,
> idHTTP.Get('www.server.de\bild.jpg' lStream);
oder bild ich mir das ein?

mirage228 17. Sep 2007 13:26

Re: IdHTTP.GET Problem mit Urls aus TStringList
 
Hi,

Geht es denn mit anderen URLs generell?
Eventuell sind ja die Indy-Komponenten selbst von der Seite gesperrt, müsstest dann den User-Agent-String der Indy-Komponente ändern...

mfG
mirage228

marabu 17. Sep 2007 13:37

Re: IdHTTP.GET Problem mit Urls aus TStringList
 
Herzlich willkommen in der Delphi-PRAXiS, skorbut.

Hast du auch die Eigenschaft HandleRedirects deiner HTTP Client-Komponenteauf auf True eingestellt?

Freundliche Grüße vom marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz