URL aus memo laden und in bestimmten zeit abständenausführen

[RuSsAk]

hi leute :hi:
ich habe mal eine frage und hoffe das ihr mir helfen könnt 8)
ich bin grade dabei ein programm zu erstellen das soll URL´s in bestimmten zeitabständen in den Twebbrowser aufrufen
die zeit soll mit einer trackbar regulierbar sein zwischen 1sek. und 15sek.
die urls sollen aus einem memo feld ausgelesen werden(siehe bild)

die zahlen sollen durch das "HIER" im link ersetzt werden und ausgeführt werden(es soll pro zeile ein "neuer" link erstellt werden)
http://img87.imageshack.us/img87/6289/ssyi3.png


ich hoffe mal ich konnte es verständlich genug erklären wen ihr es nich versteht editiere ich es noch mal und versuch es ein zweites mal :stupid:

bin über jede hilfe dankbar

mfg :-D

ps ich muss bis 20uhr off muss noch was dringendes erledigen :cry:

[mkinzler]

Ist der Rest der Urls fix?

[toms]

Hallo

Mit StringReplace() kannst du das "Hier" durch einen String einer Memozeile ersetzen.

Mit Memo1.Lines[i] greifst du auf Zeile i+1 des Memos zu.

Die Zeilen 1...n kannst du in einer For...To Schleife durchlaufen.

[RuSsAk]

Zitat:

Zitat von toms

Hallo

Mit StringReplace() kannst du das "Hier" durch einen String einer Memozeile ersetzen.

Mit Memo1.Lines[i] greifst du auf Zeile i+1 des Memos zu.

Die Zeilen 1...n kannst du in einer For...To Schleife durchlaufen.

:hi:
mit stringreplace habe ich es nicht hingekriegt aber hier:

Delphi-Quellcode:

i := ListBox1.ItemIndex; 
Webbrowser1.Navigate('http://www.blubb.de/'+Listbox1.items.Strings[i]+'/ddd');

so habe ich es gemacht :-D



jetzt bräuchte ich nur noch hilfe mit der schleife:)


mfg :) :dp:

[blink182]

Delphi-Quellcode:

var i: integer; 
s:string;
for i:=0 to Listbox1.items.count-1 do 
begin
s:=Listbox1.items[i];
Webbrowser1.Navigate('http://www.blubb.de/'+s+'/ddd');
end;

weiß nicht genau ob man den string s auch weglassen kann, theoretisch soll das aber gehen

[RuSsAk]

Zitat:

Zitat von blink182

Delphi-Quellcode:

var i: integer; 
s:string;
for i:=0 to Listbox1.items.count-1 do 
begin
s:=Listbox1.items[i];
Webbrowser1.Navigate('http://www.blubb.de/'+s+'/ddd');
end;

weiß nicht genau ob man den string s auch weglassen kann, theoretisch soll das aber gehen

ok danke hab hingekriegt :)
jetzt hab ich doch noch eine letzte frage und zwar

Zitat:

Zitat von RuSsAk

die zeit soll mit einer trackbar regulierbar sein zwischen 1sek. und 15sek.

(ich meine die zeit bis die nächste zeile aufgerufen wird :-D )
könnte mir nochmal bitte jemand helfen?
is eigentlich egal ob es mit einer trackbar ist oder nich kann auch nur im code änderbar sein :-D

mfg :dp:

[DeddyH]

Oder

Delphi-Quellcode:

var i: integer;
begin
  for i:=0 to Listbox1.items.count-1 do
    Webbrowser1.Navigate(Format('http://www.blubb.de/%s/ddd',[Listbox1.items[i]]));
end;

Wobei das rein logisch vermutlich keinen Sinn macht, da die URLs so direkt nacheinander aufgerufen werden, es ging mir auch mehr um den Format-Befehl. Vielleicht sollte man da noch ein Delay einbauen.

[RuSsAk]

Zitat:

Zitat von DeddyH

Oder

Delphi-Quellcode:

var i: integer;
begin
  for i:=0 to Listbox1.items.count-1 do
    Webbrowser1.Navigate(Format('http://www.blubb.de/%s/ddd',[Listbox1.items[i]]));
end;

Wobei das rein logisch vermutlich keinen Sinn macht, da die URLs so direkt nacheinander aufgerufen werden, es ging mir auch mehr um den Format-Befehl. Vielleicht sollte man da noch ein Delay einbauen.

habe grade nach delay geguckt aber irgendwie nichts passendes gefunden :(
hättest du da ein beispiel oder so? :(


mfg

[DeddyH]

Schau mal in der CodeLib: http://www.delphipraxis.net/internal...ect.php?t=7355

[RuSsAk]

Zitat:

Zitat von DeddyH

Schau mal in der CodeLib: http://www.delphipraxis.net/internal...ect.php?t=7355

da wahr ich schon vor paar min. in den code seh ich aber nicht durch :oops: habe es mal mit sleep() versucht aber da passiert eigentlich das selbe nur ein bisschen später :(


ps. ich habe mit delphi so ca. 2-3 monate zu tun

[DeddyH]

Na, Du rufst ähnlich wie bei Sleep Delay mit der zu wartenden Zeit in Millisekunden als Parameter auf.

Delphi-Quellcode:

Label1.Caption := '1 Sekunde warten';
Delay(1000);
Label1.Caption := '2 Sekunden warten';
Delay(2000);

[edit] Tippfehler [/edit]

[RuSsAk]

ich schaff es einfach nicht hab in der delphi hilfe geguck habe gegoogelt aber schaff es einfach nich :( kann mir vllt. jemand ein code geben? :?:

mfg,

[DeddyH]

Beispiel steht doch oben. Du musst natürlich die Delay-Funktion in Deine Unit kopieren.

[RuSsAk]

Zitat:

Zitat von DeddyH

Beispiel steht doch oben. Du musst natürlich die Delay-Funktion in Deine Unit kopieren.

ich kriege immer diesen fehler

Delphi-Quellcode:

[Fehler] Unit1.pas(30): Undefinierter Bezeichner: 'Delay'

:(

mfg,

[DeddyH]

Zitat:

Zitat von DeddyH

Du musst natürlich die Delay-Funktion in Deine Unit kopieren.

[toms]

Zitat:

Zitat von RuSsAk

Zitat:

Zitat von DeddyH

Beispiel steht doch oben. Du musst natürlich die Delay-Funktion in Deine Unit kopieren.

ich kriege immer diesen fehler

Delphi-Quellcode:

[Fehler] Unit1.pas(30): Undefinierter Bezeichner: 'Delay'

:(

mfg,

Hast du das gemacht was Detlef gesagt hat?

[RuSsAk]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von DeddyH

Du musst natürlich die Delay-Funktion in Deine Unit kopieren.

meinst du dahin?

Delphi-Quellcode:

unit  Unit1;

sry für die dummen fragen :oops:

mfg,

[DeddyH]

Wenn das Memo und der WebBrowser auf dem zugehörigen Formular sind, ja, und zwar direkt unter das Wörtchen implementation.

[toms]

Zitat:

Zitat von DeddyH

und zwar direkt unter das Wörtchen implementation.

noch besser direkt unter {$R *.dfm} (oder nach der Uses Klausel unter implementation falls eine vorhanden ist)

[RuSsAk]

Zitat:

Zitat von toms

Zitat:

Zitat von DeddyH

und zwar direkt unter das Wörtchen implementation.

noch besser direkt unter {$R *.dfm} (oder nach der Uses Klausel unter implementation falls eine vorhanden ist)

und was soll ich da drunter schreiben? :oops:

oder könnt mir bitte einer den code geben den ich einfach einfügen soll? :oops:


mfg,

[DeddyH]

Jo, stimmt. Und noch etwas konkreter: der Code muss in die Unit kopiert werden, in der er aufgerufen werden soll. Sofern das mehrere sind, bietet es sich an, eine eigene Unit dafür anzulegen und diese dann in allen aufrufenden Units einzubinden.

[edit] Delay, auf "markieren" klicken, dann STRG-C und mit STRG-V in Deine Unit kopieren, das kann doch nicht so schwer sein *koppschüttel* [/edit]

[RuSsAk]

Zitat:

Zitat von DeddyH

Jo, stimmt. Und noch etwas konkreter: der Code muss in die Unit kopiert werden, in der er aufgerufen werden soll. Sofern das mehrere sind, bietet es sich an, eine eigene Unit dafür anzulegen und diese dann in allen aufrufenden Units einzubinden.

[edit] Delay, auf "markieren" klicken, dann STRG-C und mit STRG-V in Deine Unit kopieren, das kann doch nicht so schwer sein *koppschüttel* [/edit]

ok ich hatte das falsch verstanden sorry :oops:
und wie mache ich es mit der schleife?

[toms]

Zitat:

Zitat von RuSsAk

und wie mache ich es mit der schleife?

anstatt ein do schreibst du do begin, nach dem .Navigate() das Delay(), danach ein end;

[RuSsAk]

Zitat:

Zitat von toms

Zitat:

Zitat von RuSsAk

und wie mache ich es mit der schleife?

anstatt ein do schreibst du do begin, nach dem .Navigate() das Delay(), danach ein end;

JUHU!!!!!!!!!! :dp:
vielen vielen dank euch beiden :)

mfg,