Schönen guten Tag erstmal!

Ich hab da mal ne frage zur TJvHttpUrlGrabber Komponente.
Ich möchte ein Array aus TJvHttpUrlGrabber während der Laufzeit erstellen.

dla[0].Create(self,url,*keine ahnung was hier rein soll*);

Als letzter Parameter muss ein 'TJvCustomUrlGrabberDefaultProperties' angegeben werden aber ich hab keine ahnung was das ist.

Ich benutze Delphi 6 Enterp.Edition und JVCL 3.31


Vielen dank schon mal für die Antworten!
Gruß Ralf

Guten Morgen Ralf,

du musst den Konstruktor der Klasse aufrufen, nicht den einer noch nicht instanzierten Variable:

markieren

Delphi-Quellcode:

var
  url: string;
  def: TJvCustomUrlGrabberDefaultProperties;
begin
  def := TJvCustomUrlGrabberDefaultProperties.Create(self);
  // def.Port := 80;
  dla[0] := TJvHttpUrlGrabber.Create(self, url, nil);
end;

Aber du solltest vielleicht lieber TJvUrlListGrabber verwenden. Dazu findest du auch eine Demo im Ordner ($JEDI)\examples.

Grüße vom marabu

Hi marabu,

danke schon mal für deine Antwort!

Die TJvUrlListGrabber Komponente habe ich auch schon gefunden nur habe ich noch nicht herausgefunden wie ich den einzelnen Grabbern den jeweiligen Speicherort angeben kann.

Ich bekommen immer eine Fehlermeldung.

markieren

Delphi-Quellcode:

julGrabber.URLs.Add(memUrls.Lines[i]);
temp:=ExtractUrlFileName(memUrls.Lines[i]);
julGrabber.Grabbers[i].FileName:=temp;

Bei der letzten Anweisung kommt der Fehler 'List index out of bounce (0)'

Ich hab auch keine ahnung wie ich das machen soll!

HILFE
gruß ralf

Du verwendest den Zeilenindex aus dem Memo als Index für den Grabber - das kann gut gehen oder auch nicht. Da ich nicht weiß was du sonst noch so treibst - vielleicht besser so:

markieren

Delphi-Quellcode:

var
  iGrab: Integer;
begin
  // ...
  iGrab := julGrabber.URLs.Add(memUrls.Lines[i]);
  temp := ExtractUrlFileName(memUrls.Lines[i]);
  julGrabber.Grabbers[iGrab].FileName := temp;
  // ...
end;

Der Grabber wird intern angelegt, sobald du einen URL hinzufügst - aber das weißt du bestimmt.

Freundliche Grüße

HI

über die methode OnGrabberAdded kann man den Dateinamen bestimmen

markieren

Delphi-Quellcode:

procedure TfrmMain.julGrabberGrabberAdded(Sender: TJvUrlListGrabber;
  Grabber: TJvCustomUrlGrabber; Index: Integer);
begin
  Grabber.Id := Index;
  Grabber.OutputMode := omFile;
  Grabber.FileName := ExtractFilePath(Application.ExeName) + '\result' + IntToStr(Index) + '.txt';
end;

Aber dank dir für deine Mühe!

Ralf