i.e Adres çubuğundaki site adını alma

[pro_imaj]

Merhaba,

internet explorer'in adres çubuğuna yazılan sayfa ismini delphi ile nasıl alabilirim acaba.

Böyle bir çalışması olan varmı acaba.

Teşekkürler..

[sadettinpolat]

http://delphi.about.com burada vardı

[pro_imaj]

@sadettin teşekkür ederim.

ama verdiğin link çalışmıyor.

teşekkürler.

[fduman]

Çalışıyor.

[pro_imaj]

evet üstad çalışıyor bu gün webde baya sorun vardı galiba ondan.

Ama bu site çok geniş içeriği olan bir site ve ing. o kadarda iyi diil hangi alanı daha doğrusu hangi konuya bakmam gerek ona yardımcı olursanız bir zahmet.

http://www.google.com da var gibi bişey olduda bu.
teşekkürler.

[selman]

selam
pro imaj

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
  reg:TRegistry;
  url:Integer;
  URL1:String;
begin
  listbox1.Clear ;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLS',False);
  URL:=1;
  While URL<>1000 Do 

  Begin 
    URL1:=(reg.ReadString('url'+IntToStr(url)));
    If URL1='' Then URL:=1000

    Else
     Begin
     listbox1.Items.Add(URL1+IntToStr(url));
       Url:=Url+1;
     End;
  End;
  reg.CloseKey; 
  reg.Free;
end;


end.

kullanılmış internet explorera yazılan sayfaları listboxda gösteriyor.Kolay gelsin

[selman]

selam
proimaj
kardeş birde böyle kodda işini görebilir.İnternet explorara getirdiğinde mause o anda yazılanı listboxa kaydediyo

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
Var
  s : String ;
  h : THandle;
  px : PChar ;
  ss,se:Integer;
begin
  h:=WindowFromPoint(mouse.CursorPos);
  SendMessage(h,EM_GETSEL,Integer(@Ss),Integer(@Se));
  px:=StrAlloc(1024);
  SendMessage(h,WM_GETTEXT,1024,integer(pointer(px)));
  s:=px;
  StrDispose(px);
  s:=Copy(s,ss+1,se-ss);
  if (ListBox1.Items.IndexOf(s)=-1) and (s<>'') Then ListBox1.Items.Add(s);
end;

kolay gelsin

[pro_imaj]

Merhaba @selman üstad.

verdiğiniz koslar çok işime yaradı Allah (cc) sizden razı olsun.

bu sadece mause üzerine gelindiğinde kontrol yapıyor yazarken kontrol yapmıyor ama biraz mantık kurmam için çok ideal oldu.
Teşekkür ederim

[sadettinpolat]

http://delphi.about.com --> Internet / Networking --> Get current URL from IE

[pro_imaj]

Merhaba @sadettinpolat

verdiğiniz açıklayıcı bilgiler için teşekkür ederim. Doğru cevaba ulşmam dahilinde cevabı yazacam.

Saygılarımla...

[sadettinpolat]

Doğru cevaba ulşmam dahilinde cevabı yazacam.

2008 e girdik hala cevabi yazmamissin

[Search]

Arkadaslara yardımcı olması için ben yazayım dedim

Kod: Tümünü seç

function URLAL (Handle: THandle; List: TStringList):
boolean; stdcall;
var
   hWndIE, hWndIEChild : HWND;
   Buffer : array[0..255] of Char;
begin
   SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
   hWndIE := FindWindow('IEFrame', Buffer);
if hWndIE > 0 then
begin
    hWndIEChild := FindWindowEx(hWndIE, 0, 'WorkerW', nil);
if hWndIEChild > 0 then
begin
   hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil);
if hWndIEChild > 0 then
begin
   hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil);
if hWndIEChild > 0 then
begin
   SendMessage(hWndIEChild, WM_GETTEXT, 255, integer(@Buffer));
   List.Add(Buffer)
   end;
     end;
       end;
         end;
  Result :=True;
            end;


procedure TForm1.url_alClick(Sender: TObject);
begin
   listele_url.Clear;
   EnumWindows(@URLAL, LParam(listele_url.Items));
end;

herkese kolay gelsin

[dilekdurgun]

peki ie den sadece http://www.isim.com u yada sadece php inin olusturdugu sessionid nasil alabilirm . yada soyle aciklayayim . php bir sayfa var bu sayfaya uyeligim var login olunca bana bir sessionid olusturyor bu olusan sessionid yi bir edit icine alamak istiyorum... bu konuda yardimci olursaniz sevnirim ...

[ikutluay]

peki ie den sadece http://www.isim.com u yada sadece php inin olusturdugu sessionid nasil alabilirm . yada soyle aciklayayim . php bir sayfa var bu sayfaya uyeligim var login olunca bana bir sessionid olusturyor bu olusan sessionid yi bir edit icine alamak istiyorum... bu konuda yardimci olursaniz sevnirim ...

Merhaba

Session id adres satırında yoksa almanız mümkün değil. bunu adres satırına koymakta ne kadar güvenli olur bilemem.

diğer taraftan Delphi içinden PHP değişkenlerine erişmeniz çok olası değil. (inidekiler hariç) en son olaraksa PHP zaten sunucu tarafında çalışıp sze sonuç HTML geldiğinden gene sıkıntı var.

[pro_imaj]

Doğru cevaba ulşmam dahilinde cevabı yazacam.

2008 e girdik hala cevabi yazmamissin

2005 teki bir soru evt hocam Yasak sitelere erişimle ilgili bir projeydi diğer işler araya girdi bu yüzdende cvp yazmadım.

Saygılarımla
Teşekkürler.