| Autor |
Beitrag |
MaRiO
Beiträge: 20
Windows XP
D7 Prof.
|
Verfasst: Mo 07.07.03 14:12
Hallo zusammen.
Ich möchte gerne ein Programm schreiben, welches die Besuchten
Internet Seiten Mitlogt.
Und evtl. noch Mitlogt welche Dateien Gedownloaded werden.
Hat da jemand eine Idee ?? 
Mfg
Mario _________________ Application.MessageBox('Delphi ist Cool', 'Delphi 7', 1);
|
|
MaRiO 
Beiträge: 20
Windows XP
D7 Prof.
|
Verfasst: Di 08.07.03 09:16
Hat niemand eine Idee ? 
Kennt sich denn Jemand mit der Indy Komponente TcpMappedPort aus ?
Mit dieser Komponente sollte es gehen.
Mfg
Mario _________________ Application.MessageBox('Delphi ist Cool', 'Delphi 7', 1);
|
|
focus
Beiträge: 187
XP, 2k, 98, Me
D6 Prof
|
Verfasst: Di 08.07.03 16:32
dir ist schon klar das mapped port nur eine durchschaltung von ports ist oder?!?
wie stellst du dir das vor?
gruss
michael
|
|
matze
Beiträge: 4613
Erhaltene Danke: 24
XP home, prof
Delphi 2009 Prof,
|
Verfasst: Di 08.07.03 18:33
also mit mapped port geht das nicht !!!
im swissdelphicenter gibt es einen code, ( oder hier: www.delphi-forum.de/viewtopic.php?t=13204 ) mit dem du die URLS aller IE fenster auslesen kannst. du müsstest ja nur per Timer intervall guggen, ob einen neue dazugekommen ist, und fertig ist dein LOG file ! _________________ In the beginning was the word.
And the word was content-type: text/plain.
|
|
MaRiO
Beiträge: 20
Windows XP
D7 Prof.
|
Verfasst: Mi 09.07.03 06:49
Hallo Focus !
Nein im Grunde weiss Ich nicht genau was IdTcpMappedPort macht.
Das ist ja das Problem.
Aber wenn du sagtst, das MappedPort ist eine Durchschaltung des Ports ist, dann muss es doch möglich sein denn Port 80 Auszuwerten.
Also Ich setzte die Komponente IDTcpMappedPort auf eine Form und sage Ihm unter Bindings Alle und Port 80.
Wenn Ich jetzt meinen Internet Explorer Öffne, wird
der Event Handler ONConnect ja Angesprochen.
Nur was Schreib Ich dem da rein, ist das Problem.
Trotzdem Danke für deine Antwort.
MFG
Mario
Hallo Matze !
Deine Idee ist ganz gut, aber wie soll Ich das machen ?
Mit einer Schleife die ListBox durchlaufen, bevor Ich einen neuen Eintrag
Einfüge ?
Oder hast du eine bessere Idee ?
Mfg
Mario
_________________ Application.MessageBox('Delphi ist Cool', 'Delphi 7', 1);
|
|
matze
Beiträge: 4613
Erhaltene Danke: 24
XP home, prof
Delphi 2009 Prof,
|
Verfasst: Mi 09.07.03 13:10
ja machs doch mit zwei listboxen !
das geht schon irgendwie !
_________________ In the beginning was the word.
And the word was content-type: text/plain.
|
|
MaRiO
Beiträge: 20
Windows XP
D7 Prof.
|
Verfasst: Fr 11.07.03 17:14
Habe eine schönere Lösung gefunden !
  Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| Var
StringListe :TStringList;
Begin
Try
StringListe :=TStringList.Create;
StringListe.Sorted :=True;
StringListe.Duplicates :=dupIgnore; // Wichtig die Liste nimmt jetzt keine Doppelten Einträge mehr auf.
StringListe :=ListBox1.Items;
ListBox1.Clear;
StringListe.Add('Irgend ein String');
ListBox1.Items :=StringListe;
Finally
StringListe.Free;
End; |
Wenn der neue String in der StringListe vorhanden ist, wir er nicht mehr Aufgenomen. 
Vielen Dank an euch.
Mfg
Mario _________________ Application.MessageBox('Delphi ist Cool', 'Delphi 7', 1);
|
|
matze
Beiträge: 4613
Erhaltene Danke: 24
XP home, prof
Delphi 2009 Prof,
|
Verfasst: Fr 11.07.03 17:32
aha und in der listbox werden immer die aktuellen browseradressen aufgenommen ?? das ist nicht blöd !!! cool !!!
_________________ In the beginning was the word.
And the word was content-type: text/plain.
|
|
MaRiO
Beiträge: 20
Windows XP
D7 Prof.
|
Verfasst: So 13.07.03 10:38
Hallo Matze !
Richtig, du brauchst dann nicht jedesmal die ListBox mit
einer Schleife durchlaufen, um zu sehen ob der String schon vorhanden ist oder nicht.
MFG
Mar!o _________________ Application.MessageBox('Delphi ist Cool', 'Delphi 7', 1);
|
|
