Link erzeugen

[Ringer]

Hallo Zusammen,

ich bin ein blutiger Anfänger und habe folgendes Problem. Ich habe eine Datei in welcher mehere Namen nach folgenden Prinzip stehen:

//User1
//User2
...
//User10
...

Nun will ich diese Datei durchsuchen und einen link erzeugen, welcher folgende Form hat:

http://User1/start.html

Das durchsuchen soll z.B. nach allen Einträgen erfolgen die //User1 haben also auch //User10.

Folgendes habe ich schon "programmiert":

sOutput := 'C:\output.txt';
...
sl.LoadFromFile(sOutput);
for i := to sl.Count -1 do
if pos('//User1',sl[i]) <> 0 then (Memo1.Lines.Add(' und hier ist das
Problem, wie kennzeichne ich die links?)
Bei html würde man einfach href schreiben aber hier???

mfg

Ringer

[APP]

Hallo,

Du könntest schreiben:

Memo1.Lines.Add('http://'+sl[i]+'/start.html'); allerdings solltest Du bedenken, dass ein TMemo keinen 'klickbaren' link á la TWebbrowser darstellen kann.

[Ringer]

Hallo APP,

danke erstmal. Aber ich würde schon gerne eine anwählbaren-link haben.

mfg

Ringer

[Alexander]

DAnn nimm doch einen Listbox.
DAnn kannst du z.b. im OnClick-Event mit Shellexecute deine Seite dann öffnen lassen...
FArben etc lassen sihc ja auch anpassen...
Beispiele für's öffnen des Standardbrowser ( Shellexecute) und für Listboxen gibt es hier denke ich genug...
Einfach mal die Suche benutzen
BEi speziellen Porblem kannst ja noch mal fragen...

[Ringer]

Hallo Alexander,

danke für deine Antwort. Leider bin ich wie gesagt ein totaler Anfänger und war schon froh das mir das Filterergebnis in einen memo angezeigt wurde.

Ich habe also weder Ahnung wie ich eine Listbox fülle oder dann das shell execute nutze.

Daher wäre ich für eine genauere Beschreibung oder etwas code sehr sehr dankbar!!

Gruß

Ringer

[Alexander]

Das verstehe ich natürlich, dennoch hatten wir das schon zum x. mal.
Deshalb habe ihc mir mal erlaubt auf die suche zu verweisen...
Aber weil du es bist, gebe ich dir mal ein kleines Beispiel zu der Listbox:

Delphi-Quellcode:

 ListBox1.Items.Add('text der hinzugefügt wird');
ShowMessage(Listbox1.Items[Listbox1.ItemIndex]);

Letzteres zeigt das aktuell markierten Item mit NAmen an, ItemIndex liefert lediglich den Index des markierten Items.
Ich dnek das sollte dir jetzt aber helfen

[Ringer]

Danke erstmal Alexander!

Also die Listbox ist erstellt und funktioniert wie ich jetzt aber die die links erstelle, weiss ich immer noch nicht!

Es sollte ja so sein das diese je nach Suchergebnis automatisch erstellt werden.

Gruß

Ringer

[Alexander]

Nichts geht automatisch

Aber ich dachte dass du das bisher mit nem Memo gemacht hast!?
Wie du Sachen hinzufügst habe ich dir vorher gesagt.
Wenn du einen Link machen willst, dann wäre das Evnet OnClick ganz gut für dich
das wird halt aufgerufen, wenn man auf irgendeinen Item klickt.
Wie du nun das angeklickte Item bekommst, habe ich dir auch schon gesagt...
Jetzt fehlt nur noch, dass sich der browser öffnet.
ShellExecute(0, 'open', PChar(Listbox1.Items[Listbox1.ItemIndex]), nil, nil, SW_SHOW); Das sollte es eignetlich gewesen sein, sonst schreib mal was du schon hast...

[Ringer]

Ich nochmal

leider habe ich nun das Problem das jedesmal wenn ich in mein ActiveX control die listbox einfüge eine Zugriffsverletzung habe. Selbst wenn diese noch gar nicht angesprochen wird!?!

Also wenn du mir das noch erklären kannst...

RINGER

[Ringer]

Listbox geht jetzt, war ein Problem mit meinen modifizierten XP.

Ich hoffe den Rest bekomme ich hin!

Ringer