![]() |
Link erzeugen
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: ![]() 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 |
Re: Link erzeugen
Hallo,
Du könntest schreiben:
Delphi-Quellcode:
allerdings solltest Du bedenken, dass ein TMemo keinen 'klickbaren' link á la TWebbrowser darstellen kann.
Memo1.Lines.Add('http://'+sl[i]+'/start.html');
|
Re: Link erzeugen
Hallo APP,
danke erstmal. Aber ich würde schon gerne eine anwählbaren-link haben. mfg Ringer |
Re: Link erzeugen
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 (:arrow: ![]() Einfach mal die Suche benutzen ;-) BEi speziellen Porblem kannst ja noch mal fragen... |
Re: Link erzeugen
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 |
Re: Link erzeugen
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:
Letzteres zeigt das aktuell markierten Item mit NAmen an, ItemIndex liefert lediglich den Index des markierten Items.
ListBox1.Items.Add('text der hinzugefügt wird');
ShowMessage(Listbox1.Items[Listbox1.ItemIndex]); Ich dnek das sollte dir jetzt aber helfen ;-) |
Re: Link erzeugen
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 |
Re: Link erzeugen
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.
Delphi-Quellcode:
Das sollte es eignetlich gewesen sein, sonst schreib mal was du schon hast...
ShellExecute(0, 'open', PChar(Listbox1.Items[Listbox1.ItemIndex]), nil, nil, SW_SHOW);
|
Re: Link erzeugen
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 |
Re: Link erzeugen
Listbox geht jetzt, war ein Problem mit meinen modifizierten XP.
Ich hoffe den Rest bekomme ich hin! Ringer |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz