Posex und kein Plan :-(

[jolomino]

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