delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

جميل جدا هذا الشئ, اعجبني كثيرا,
جربت المثآل الذي صنعته اخي كاش واحد, بالفعل شئ جميل,

هناك امرين,
الأول كما ذكر الأخ ramijz فلا يعمل هذا الشئ الا على ال internet explorer, لماذا ؟ وهل من طريقة لعمل هذا على ال firefox ؟

ثانيا, هل من طريقة لتخطّي ال regsvr32 ؟ او ان يتم ذلك برمجيا دون ان يضطر المستخدم ان يسجّل ذلك بطريقة يدويّا ؟

بارك الله لكم مرة اخرى,

إقتباس :هل من طريقة لعمل هذا على ال firefox ؟

هناك حلول/إضافات، هذا للإصدارات القديمة:

كود :
http://www.iol.ie/~locka/mozilla/mozilla.htm

إقتباس :يتم ذلك برمجيا دون ان يضطر المستخدم ان يسجّل ذلك بطريقة يدويّا ؟

تنفيذ السطر بـ WinExec مثلا:

كود :
WinExec(PChar('regsvr32 /s custom.ocx'), SW_HIDE);

أو:

PHP كود :
function RegisterServer(const aDllFileName: string; aRegister: Boolean): Boolean;
type
  TRegProc = function: HResult;
  stdcall;
const
  cRegFuncNameArr: array [Boolean] of PChar =
    ('DllUnregisterServer', 'DllRegisterServer');
var
  vLibHandle: THandle;
  vRegProc: TRegProc;
begin
  Result := False;
  vLibHandle := LoadLibrary(PChar(aDllFileName));
  if vLibHandle = 0 then Exit;
    @vRegProc := GetProcAddress(vLibHandle, cRegFuncNameArr[aRegister]);
  if @vRegProc <> nil then
    Result := vRegProc = S_OK;
  FreeLibrary(vLibHandle);
end; 

أو:

PHP كود :
type
  TDllRegisterServer = function: HResult; stdcall;

function RegisterOCX(FileName: string): Boolean;
var
  OCXHand: THandle;
  RegFunc: TDllRegisterServer;
begin
  OCXHand := LoadLibrary(PChar(FileName));
  RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer');
  if @RegFunc <> nil then
    Result := RegFunc = S_OK
  else
    Result := False;
  FreeLibrary(OCXHand);
end;

function UnRegisterOCX(FileName: string): Boolean;
var
  OCXHand: THandle;
  RegFunc: TDllRegisterServer;
begin
  OCXHand := LoadLibrary(PChar(FileName));
  RegFunc := GetProcAddress(OCXHand, 'DllUnregisterServer');
  if @RegFunc <> nil then
    Result := RegFunc = S_OK
  else
    Result := False;
  FreeLibrary(OCXHand);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Register YourActiveX.ocx
  RegisterOCX('YourActiveX.ocx');
end; 

بارك الله لكم,
معلش, سؤآل أخير :laugh:

هل من عوآئق باستخدام هذه الطريقة ؟
مثلا, استخدام قآعدة بيانات هل يصلح هذا ؟

إقتباس :املأ البيانات ثم أنشئ المشروع واعمل عليه كما تعمل على أي مشروع دلفي آخر...

وهل يمكن تحويل مشورع جآهز الى ActiveX لعرض البرنامج بالمتصفح ؟

سؤآل اضآفي ايضى, ماذا عن استخدام سكين في المشورع, هل يصلح هذا ؟ وماذا عن xpmanifest ؟
لم اجرب, لكن ان لم يجرب احد هذا فسأضطر لأن اجرب بنفسي :cryss: