link vermek

[maqro]

s.a
bu kodla bir buton altına link veriyorum

Kod: Tümünü seç

  HlinkNavigateString(nil,'http://www.delphiturkiye.com');

ama ben delphiturkiye.com dan sonrada editteki bir yazıyı linke eklemek istiyorum ama beceremedim.

sanırım string değeri kabul etmiyor.

nasıl yapabilirim.

[ikutluay]

araya / yazıyormusun:) basit olabilir ama
[/code]

[maqro]

evet otomatik olarak / koyunca olur öylede ben / dan sonrasını edit içinden dinamik olarak okutmak istiyorum

yanlış ama şöyle anltabilirim

Kod: Tümünü seç

HlinkNavigateString(nil,'http://www.delphiturkiye.com'+edit1.text);

delphiturkiye/ den sonrasını editten okıyacak.

[barutali]

uses kısmına shellapi yi eklemeyi unutma..

form a 1 tane edit 1 tanede button koy

button un onClick eventine aşağıdaki kodu yaz

Kod: Tümünü seç

ShellExecute(0, 'open', 'IExplore.exe', PChar('www.delphiturkiye.com/'+Edit1.Text ), '', SW_Normal);

mesela edit1 e forum yaz

internet explorer açılcak ve http://www.delphiturkiye.com/forum adresine bağlancak...

Aşağıdaki kodu yazarsan da Firefox ile bağlanır...

Kod: Tümünü seç

ShellExecute(0, 'open', 'Firefox.exe', PChar('www.delphiturkiye.com/'+Edit1.Text ), '', SW_Normal);

Kolay gelsin...

[aslangeri]

@maqro;
kodun aslında doğru ancak parametreyi büyük ihtimalle pchar tipinde vermediğin için hata alıyorsundur.
@lanetli nin kodundaki

Kod: Tümünü seç

PChar('www.delphiturkiye.com/'+Edit1.Text )

senin koda eklersen sorun çözülür kanısındayım.
birde sorunu sorarken sanırım kabul etmiyor yerine şu hata mesajını veriyor
diyerekten verdiği mesajı yazsaydın tahmin yürütmek zorunda kalmazdık.
kolay gelsin.