Internetseite öffnen

Karon · Verfasst: Mo 11.09.06 16:31

Hallo!
Ich weiß es gibt schon ähnliche Threads, aber genau das is der Punkt, ähnliche..
Ich hab folgendes Problem, ich will aus einer txt Webadressen in ein Memo-Feld schreiben, das klappt, so.. dann soll bei Doppel-Klick auf einen Namen die Seite geöffnet werden, allerdings bekomm ich das nicht hin!
Hier mal den Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
adresse : string[50];
begin
adresse:='http://www.'+listbox1.Items.Strings[Listbox1.ItemIndex];
ShellExecute(0,'open',adresse,NIL,NIL,SW_SHOWNORMAL);
end;

Die Funktion ShellExecute funktioniert so, wenn ich statt Adresse z.B. "PChar('http://...')" eingebe klappts, aber "adresse" is der falsche Datentyp, aber alles was ich versucht habe funktioniert nicht, könnt ihr mir bitte helfen?!
Danke!!!

Moderiert von raziel: Code- durch Delphi-Tags ersetzt

ManniTwo · Verfasst: Mo 11.09.06 16:35

hi,

halt dir adresse als String und probiers mit

markieren

Delphi-Quelltext

1:	ShellExecute(0,'open',PChar(adresse),NIL,NIL,SW_SHOWNORMAL);

(ungetestet, aber müsste gehen)

_________________
Wer andern eine Bratwurst brät, der hat ein Bratwurst-Brat-Gerät, oder anders:

markieren

Delphi-Quelltext

1:	if Self.BraetAndernEineBratwurst then Self.HasBratwurstBratGeraet := true;

Karon · Verfasst: Mo 11.09.06 21:56

Hi!
Danke für die schnelle Antwort, funktioniert aber nicht, hab ich schon probiert!
Fehler: Ungültige Typumwandlung

ich habe was von der Klasse TWebbrowser gehört, weiß einer evtl, wie ich das damit machen kann und was ich dabei alles beachten muss, falls es mit der ShellExecute nicht geht?!

Marc. · Verfasst: Mo 11.09.06 22:01

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 ShellExecute(0,'open',PChar(Listbox1.Items[Listbox1.ItemIndex]),NIL,NIL,SW_SHOWNORMAL);
end;

Funktioniert bei mir einwandfrei, wenn zb "www.delphi-forum.de" in der listbox steht

Karon · Verfasst: Mo 11.09.06 22:07

Ahh ich habs!! lol

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
adresse : string[50];
begin
adresse:='http://www.'+listbox1.Items.Strings[Listbox1.ItemIndex];
showmessage(adresse);
ShellExecute(0,'open',PChar('http://www.'+listbox1.Items.Strings[Listbox1.ItemIndex]),NIL,NIL,SW_SHOWNORMAL);
end;

wenn ich die Adresse erst in der Klammer zusammenbau gehts, hab ja in der Listbox die Seiten ohne www. drin, weil ich nach dem Namen der Seite suche.. naja hät ich ja auch drauf kommen können..

Vielen Dank für die Hilfe!!!!!!!

MfG

Moderiert von Tino: Code- durch Delphi-Tags ersetzt

Marc. · Verfasst: Mo 11.09.06 22:14

hakst du den thread bitte noch als "erledigt" ab? Einmal oben im ersten Post auf den grünen Pfeil klicken, danke

Sinspin · Verfasst: Mo 11.09.06 23:50

du hättest das ganze sicherlich auch noch übersichtlicher hinbekommen.
und zwar, indem du einfach statt string[50] einfach nur string verwendest.

_________________
Wir zerstören die Natur und Wälder der Erde. Wir töten wilde Tiere für Trophäen. Wir produzieren Lebewesen als Massenware um sie nach wenigen Monaten zu töten. Warum sollte unser aller Mutter, die Natur, nicht die gleichen Rechte haben?

Karon · Verfasst: Di 12.09.06 02:48

Jaa, aber ich lese ja beliebig lange und viele URLs aus ner txt aus, so ne url kann schon ziemlich lang sein.. ;-)

Aber is jetzt ja sowieso egal, da das mit der Variable ja nicht funktioniert hat!
Trotzdem Danke für die Tips!!
MfG

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme