Download mit steigender Nummerierung

[Spike2k3]

hidiho

Ich hab da n kleines Problem:
Aaaalllsooo

Ich will was runterladen mit Delphi, hab mir also euer Tut geschnappt und eingebaut:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  cDownStatus : cDownloadStatusCallback;
  h:integer;
begin
  cDownStatus := cDownloadStatusCallBack.Create;
  for h:=1 to 9 do  URLDownloadToFIle(nil,('http://bla.com/irgendwas/images/agro-00'+@(inttostr(h))[1]+'.jpg'),('C:\agro-00'+inttostr(h)+'.jpg'),0,CDownStatus);
    for h:=10 to 99 do
  URLDownloadToFIle(nil,'http://bla.com/irgendwas/images/agro-0'+inttostr(h)+'.jpg','C:\agro-0'+inttostr(h)+'.jpg',0,CDownStatus);
    for h:=100 to 145 do
  URLDownloadToFIle(nil,'http://bla.com/irgendwas/images/agro-'+inttostr(h)+'.jpg','C:\agro-'+inttostr(h)+'.jpg',0,CDownStatus);
  end;

Ich dachte das geht so, nur:[Error] Gog.pas(162): Incompatible types: 'String' and 'PAnsiChar' Sagt, dass das so nich geht...

Mein Ziel ist es Bilder von
agro-001 bis agro-145 zu saugen
also hab ich gedacht, ne Schleife ist schon recht, nur gibts da ja son konvertierungsproblem...

Und da ich auch nach 20mal lesen noch nich gecheckt hab was PansiChar ist, hoffe ich doch ihr könnt mir helfen...

[alcaeus]

Probiers mal mit:
URLDownloadToFIle(nil,PAnsiChar('http://bla.com/irgendwas/images/agro-0'+inttostr(h)+'.jpg','C:\agro-0'+inttostr(h)+'.jpg'),0,CDownStatus); Du musst nur den String in einen PAnsiChar konvertieren, das ist alles.

[Spike2k3]

Also wenn man das so macht :

URLDownloadToFIle(nil,PAnsiChar('http://bla.com/irgendwas/images/agro-0'+inttostr(h)+'.jpg'),PAnsiChar('C:\agro-0'+inttostr(h)+'.jpg'),0,CDownStatus); Also zweimal convertiert, dann gibts schonmal keine Fehlermeldung
Ma sehn, ob ich gleich auch die richtigen Pics auf der Platte hab

Auf jeden Fall schonmal danke für deine Hilfe

Grad ma getestet, funzt einwandfrei, DANGGGEEE

[alcaeus]

Oh, ich hab aus versehen zwei Parameter zusammengefasst, das geht natürlich nicht, sorry