Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: Asp Open
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Asp Open

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
turknetyazilim Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 18.Ocak.2008
Bulundugu Yer: Balıkesir
Online: Sitede Değil
Gönderilenler: 214
  Alıntı turknetyazilim Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Asp Open
    Gönderim Zamanı: 11.Kasim.2008 Saat 16:16

{
Murat Turan

ASP çalıştırma hep benim açımdan problem olmuştur.
ASP çalıştıracağım zaman explorer'i açık http://localhost/dizin/xxx.asp
veya http://makineadi/dizin/xxx.asp yazıp asp dosyalarını çalıştırmak
zorunda kalmışımdır. sanırım başada yol yokdur. Bu iş beni herzaman sıkmıştır.
Bende bir programcı olarak bu işe bir et atmam ve bu işe bir pratiklik
kazandırmam gerek dedim ve aşağıdaki programı yaptım. ASP ile çalışanların
sanırım işine yarayacaktır. :)

Yapmanız gereken aşağıdaki kodu forma eklemek ve programım exe sini
herhangi biryere atıp birkereye mahsus çalıştırmaktır.
Daha sonra ASP dosyalarına sağ tıkladığınızda ASP.Open komutu görülecektir.
Buna tıkladığınızda asp dosyası yorumlanmış olarak karşınıza gelecektir.

Kolay gelsin.
}


Uses registry, Filectrl;

{$R *.dfm}

procedure Tana.FormCreate(Sender: TObject);
var

 REG:TREGISTRY;
begin
 REG := TRegistry.Create;
 TRY
 REG.RootKey := HKEY_CLASSES_ROOT;
 if Reg.OpenKey('\aspfile\shell\ASP.Open\Command', True) then
 begin
   Reg.WriteString('','"' + Application.ExeName + '"' + ' %1');
   Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;

procedure Tana.FormShow(Sender: TObject);
var

 i:string;
 sadecead:string;
 nerde:integer;
begin
 i := ParamStr(1);
 nerde := Pos('wwwroot',i);
 sadecead :=  'http://localhost/' + Copy(i,nerde+8,length(i) );
 WinExec(pchar('Explorer.exe '+sadecead),sw_normal);
end;

procedure Tana.FormPaint(Sender: TObject);
begin

 Close;
end;

Yukarı Dön
murat turan Açılır Menü Göster
Admin Group
Admin Group
Simge
Datakent

Kayıt Tarihi: 01.Ekim.2003
Bulundugu Yer: Turkey
Online: Sitede Değil
Gönderilenler: 1765
  Alıntı murat turan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11.Kasim.2008 Saat 21:05
bunu nereden buldun ismail :)
Yukarı Dön
turknetyazilim Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 18.Ocak.2008
Bulundugu Yer: Balıkesir
Online: Sitede Değil
Gönderilenler: 214
  Alıntı turknetyazilim Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 12.Kasim.2008 Saat 09:36
Hocam Kodlarınızı Takip ediyom.Malum KodBanktan...
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,141 Saniyede Yüklendi. [power by : WebWiz]