Skip to main content

AccessTr.neT


herhangi bir Web browserdan linki almak vb.

herhangi bir Web browserdan linki almak vb.

Çözüldü #1
hayırlı cumalar arkadaşlar
http://www.delphidunyasi.net/showthread....ymon%2B%2B
adresinde delphi ile yapılmış bir kod var
internet adrsindeki linki kaydetmek için
bunun Access için vb ile yazılmışını bulabilirmiyiz
veya bunu vb kodlarına nasıl uyarlarız
hem delphi hem vb bilen ustalar mutlaka vardır
teşekkürler
****** alıntı******
delphi için
USES a eklenecek namespaceler SHDocVw,DDEMAN;
Kullanıcağın Procedure :
Kod:
procedure TForm1.GetCurrentURL(var sURL: String; var sTitle: String; var sSource: String);
var
DDEClient : TDDEClientConv;
s : String;
begin
s := '';
try
DDEClient := TDDEClientConv.Create(self);
with DDEClient do
begin
if SetLink('IExplore','WWW_GetWindowInfo') then
begin
s := RequestData('0xFFFFFFFF, sURL, sTitle');
sSource := 'Kaynak: IE';
end
else
if SetLink('Netscape','WWW_GetWindowInfo') then
begin
s := RequestData('0xFFFFFFFF, sURL, sTitle');
sSource := 'Kaynak: IE';
end
else
if SetLink('Mosaic','WWW_GetWindowInfo') then
begin
s := RequestData('0xFFFFFFFF, sURL, sTitle');
sSource := 'Kaynak: Mosaic';
end
else
if SetLink('Netscp6','WWW_GetWindowInfo') then
begin
s := RequestData('0xFFFFFFFF, sURL, sTitle');
sSource := 'Kaynak: Netscape 6';
end
else
if SetLink('Mozilla','WWW_GetWindowInfo') then
begin
s := RequestData('0xFFFFFFFF, sURL, sTitle');
sSource := 'Kaynak: Mozilla';
end
else
if SetLink('Firefox','WWW_GetWindowInfo') then
begin
s := RequestData('0xFFFFFFFF, sURL, sTitle');
sSource := 'Kaynak: FireFox';
end
else
if SetLink('Opera','WWW_GetWindowInfo') then
begin
s := RequestData('0xFFFFFFFF, sURL, sTitle');
sSource := 'Kaynak: Opera';
end;

end;
if s <> '' then
begin
Delete(s, 1, 1);
sURL :=Copy(s, 1, pos('','',s)-1);
Delete(s, 1, Pos('','', s)+2);
sTitle := 'Başlık: ' +Copy(s, 1, Pos(''', s) - 1);
end;
exit;
except
MessageDlg('Link Okunamadı!',mtError,[mbOK],0);
end;
end;

Kullanımı :

Kod:
VAR
Sw: IShellWindows;
sURL, sTitle, sSource: String;
begin
Sleep(3);
GetCurrentURL(sURL, sTitle, sSource);
with Memo1.Lines do
begin
Add(sURL);
Add(sTitle);
Add(sSource);
end;

@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
herhangi bir Web browserdan linki almak vb. - Yazar: accessman - 09/11/2012, 10:18
Task