Entwickler-Ecke

Internet / Netzwerk - Wie kann Ich Loggen welche Internet Seiten Besucht werden ?


MaRiO - Mo 07.07.03 14:12
Titel: Wie kann Ich Loggen welche Internet Seiten Besucht werden ?
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


MaRiO - 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


focus - 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 - Di 08.07.03 18:33

also mit mapped port geht das nicht !!!

im swissdelphicenter gibt es einen code, ( oder hier: http://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 !


MaRiO - 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


matze - Mi 09.07.03 13:10

ja machs doch mit zwei listboxen !

das geht schon irgendwie !


MaRiO - 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. :P

Vielen Dank an euch.
Mfg
Mario


matze - Fr 11.07.03 17:32

aha und in der listbox werden immer die aktuellen browseradressen aufgenommen ?? das ist nicht blöd !!! cool !!!


MaRiO - 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. :P

MFG
Mar!o