Eine Url öffnen lassen?

[jaslaz]

Hi Leute,
Hab das hier schon im Forum gefunden

Code: Alles auswählen

uses windows,shellapi;
procedure xx;
begin
ShellExecute(Handle, 'open', 'http://www.google.com/',nil,nil, SW_SHOWNORMAL);
end;

(http://www.lazarusforum.de/viewtopic.php?f=26&t=3351" onclick="window.open(this.href);return false;)

Wenn ich das mit irgendeiner Webseite direkt probiere (wie im Beispiel) geht das auch, aber in meinem Code funktioniert das irgendwie nicht:

Code: Alles auswählen

procedure TForm2.openurlClick(Sender: TObject);
var webseite:string;
  begin
   webseite:=ComboBox1.text;
   ShellExecute(Handle, 'open', PWideChar(webseite),nil,nil, SW_SHOWNORMAL);
 
end;

Das PWideChar hab ich wegen einer fehlermeldung hingeschrieben

Code: Alles auswählen

unit2.pas(274,41) Error: Incompatible type for arg no. 3: Got "AnsiString", expected "PWideChar"

Nun öffnet sich das Programm zwar aber es passiert nichts wenn der Button gecklickt wird.


Hoffe ihr könnt mir helfen. Danke schonmal!

LG Jaslaz

[shokwave]

Hi,

sollte eigentlich, vom Code her, funktionieren. Was steht denn in deiner Combobox drin? Die URL muss komplett mit "http://www..." sein!

[Socke]

Das PWideChar hab ich wegen einer fehlermeldung hingeschrieben

Code: Alles auswählen

unit2.pas(274,41) Error: Incompatible type for arg no. 3: Got "AnsiString", expected "PWideChar"

Schonmal daran gedacht, dass ein AnsiString nicht aus WideChars sondern aus Chars besteht? Es wird schon seinen Grund haben, warum die Funktion einen C-WideString (UTF-16) und keinen C-String erwartet.
Das andere Thema sollte sich hier im Forum finden.

[jaslaz]

Ok, danke habs jetzt hingekriegt!

[marcov]

Oder, in neuere (0.9.29+) Versionen, nutze "openurl", "openmail" usw

http://lazarus-ccr.sourceforge.net/docs ... enurl.html" onclick="window.open(this.href);return false;

[Socke]

Oder, in neuere (0.9.29+) Versionen, nutze "openurl", "openmail" usw

Hätte ich auch genannt, wenn mir eingefallen wäre, in welcher Unit die implementiert sind. lclintf scheint mir da nicht die beste Wahl zu sein.

[marcov]

Oder, in neuere (0.9.29+) Versionen, nutze "openurl", "openmail" usw

Hätte ich auch genannt, wenn mir eingefallen wäre, in welcher Unit die implementiert sind. lclintf scheint mir da nicht die beste Wahl zu sein.

"openurl" eingeben, ctrl-F1 drücken, wie schwierig kann es sein?



Dass heißt das "openurl" schon in der Index heutiger CHMs ist. Und die funktionieren auch mit Lazarus.

[Socke]

Dass heißt das "openurl" schon in der Index heutiger CHMs ist. Und die funktionieren auch mit Lazarus.

Wenn man die CHMs installiert hat, mag das funktionieren. Ich greife aber auf die Online-Version zurück und dazu brauchts die passende Unit in der Uses-Klausel.