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.

markieren

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.

zusammenfalten · markieren

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

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?

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

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