so, habs hinbekommen, aber nur wenn ich die
html datei auf dem rechner habe.
Delphi-Quellcode:
procedure TForm1.GetDlLink(FileName: string);
var
DlSearch: string;
startpos, endpos, endpos2 : integer;
quelle: TextFile;
begin
AssignFile(quelle, FileName);
Reset(quelle);
if IOResult = 0 Then
begin
while not EOF(quelle) do
begin
ReadLn(quelle, DlSearch);
//Startposition für suche festlegen
startpos := Posex(DlFile, DlSearch);
if startpos > 0 Then
begin
//Endposition des Links festlegen
endpos := Pos('">', DlSearch);
endpos2 := Pos('"', DlSearch);
//Downloadlink zurechtschneiden
DlLink := Copy(DlSearch, endpos2+1, endpos-23);
end;
end;
end;
CloseFile(quelle);
end;
Aufruf mit:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
//DownloadFile wechles gesucht werden soll
DlFile := 'test.zip';
GetDlLink(ExtractFilePath(Application.Exename)+'datei.htm');
end;
2. versuch war mit temphtm := idhttp1.Get(
Url) die seite in einem string zu laden. funzt auch bestens.
übergabe sah dann so aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
//DownloadFile wechles gesucht werden soll
DlFile := 'test.zip';
GetDlLink(temphtm);
end;
nur leider hab ich es noch nicht hinbekommen, den übergebenen string in der Procedure GetDlLink zu verarbeiten, da ja ein file erwartet wird und ein string geliefert wird.
kann mir einer nen tipp geben, wie ich die procedure abändern muss?
gruss jolomino