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