Point til sjensen

Hej Madshenrik,

Det kan jeg desværre ikke lige på stående fod fortælle dig fordi jeg ikke selv gør så meget i det, men en af mine nære venner tager sig af det så jeg får lige nogle detaljer af ham. Du hører fra mig i løbet af i morgen.

Hilsen
sjensen

Madshenrik>Undskyld jeg havde set dine kommentarer til spm. Delphi og Sql. Se lige det svar jeg har givet.

sjensen

tilknyt den kode til en event
og den åbner browseren og går til hjemmesiden.

PS: Husk at skrive ShellApi i uses.

shellExecute(getdesktopwindow, 'open','http://www.xxxxxxxx/',nil,nil, 0);

Enten så Stone skriver.  Du kan evt. også bruge en af de component pakker der findes på nettet.  Ind imellem anvende jeg fx.  'Pro VCL Extensions Library' fra http://www.farlep.net/~dgb.  I denne pakker er der bl.a. en label, der virker som link (ligesom i browseren).  Trykker man på denne label vil man starte sin Email client/browser (afhængigt af om det pågældende link er af Mailto: eller Http: typen).  Man kan se'følig også udnytte faciliteten fra kode.  Smart og simpelt.

NiP

Hej Madshenrik,

Stone har mere eller mindre givet dig samme svar som jeg først ville give:

private
  procedure launch(url : string);
public
..


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  launch(trim(edit1.text));
end;

procedure TForm1.launch(url : string);
var zUrl : array[0..79] of Char;
begin
  shellexecute(handle,nil,StrPCopy(zUrl,url),'','',SW_SHOWMAXIMIZED)
end;

men det jeg ledte efter (og stadig gør) er muligheden for at få browseren til at skifte til en side man vælger fra Delphi programmet, selvom browseren allerede er åben. Ovenstående shellexecute vil jo bare starte en ny browser og det er ikke lige det jeg selv ville være interesseret i.

Du hører nærmere når jeg ved lidt mere.

sjensen

Stone det virker perfekt, men sjensen får lige de her point da jeg skylder ham dem, men du skal nok få nogen senere. Jeg opretter et nyt spørgsmål med det samme.

sjensen: jeg har altid ledt efter en der gjorde det modsatte, nemlig åbnede en ny browser, men for at åbne i samme vindue skal du bare bruge:

shellexecute(handle,'open','http://www.eksperten.dk',0,0,SW_SHOW);

Så åbner browseren siden i en allerede åbnet vindue, hvis en sådan findes og ellers startes en ny hvis der ikke er nogen åben.

<DELPHI>

det link du skriver virker ikke!!!!

er det skrevet forkert,eller er siden lukket?

stone

Linket virker helt fint - problemet er at der i har sneget sig et '.' (punktum) ind i slutningen af linket.

Nip