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

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > انشاء ملف Config و كيفية الاتصال به
نسخة كاملة : انشاء ملف Config و كيفية الاتصال به
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3

AbdouProg

23-07-2017, 07:41 PM
(23-07-2017, 08:33 AM)B.M.AbdelAziZ كتب : [ -> ]اخي الاجابة كانت حسب السؤال فلم تذكر نوع قاعدة البيانات وسالت عن استخدام ملف Config
بالنسبة للتصال بقاعدة بيانات Ingres باستخدام ODBC الطريقة نفسها ابحث بالمنتدى عن كلمة ODBC

السلام عليكم اخي عبد العزيز

بالنسبة للاتصال بقاعدة بيانات ingres عن طريق  ODBC اعرف الاتصال بها و برنامجي يعمل بامتياز ولكن
برنلمجي لا يعمل الا ادا كان التطبيق المبرمج ب   ingres مفتوج اي يجب تظهر  النافدتين المبينتان في الصورة (IIGCN) او نقوم تنفيد ingstart المبين في الشكل

[صورة: imagef-1500834734191-png.html]

[صورة: imagef-1500835256061-png.html]

محمد عبد العزيز

24-07-2017, 08:47 AM
كود :
او نقوم تنفيد ingstart المبين في الشكل
إذن ليقم برنامجك بتنفيذ ingstart قبل الاتصال.

AbdouProg

24-07-2017, 02:00 PM
(24-07-2017, 08:47 AM)B.M.AbdelAziZ كتب : [ -> ]
كود :
او نقوم تنفيد ingstart المبين في الشكل
إذن ليقم برنامجك بتنفيذ ingstart قبل الاتصال.

السلام عليكم

و كبف يتم دالك

محمد عبد العزيز

24-07-2017, 04:10 PM
ShellExecute
http://delphi4arab.net/forum/showthread.php?tid=2173

AbdouProg

24-07-2017, 05:51 PM
(24-07-2017, 04:10 PM)B.M.AbdelAziZ كتب : [ -> ]ShellExecute
http://delphi4arab.net/forum/showthread.php?tid=2173

السلام عليكم اخي عبد العزيز
و الله ياخي سبق لي و ان جربت هده الطريقة و فعلا هي تعمل و لكن المشكلة هو ان النافدة المنبتقة عند الاتصال بها عن طريق برنامج الدالفي يجب تنفدها بالزر start كما هو موضح في الصورة
وكدالك استعملت طريقة وضع ملف التنفيد في Démarrage (win7) و لكن نفس المشكل
و الله لقد ارهقني هدا المشكل كثيرا اثمنى من الزملاء مساعدتي في ايجاد الحل

[صورة: imagef-1500914802551-png.html]

Agmcz

25-07-2017, 12:19 AM
السلام عليكم
يمكنك الضغط على زر "Start" بعد التنفيذ بكل سهولة
ألق نظرة هنا..
how to get HWND after shellExecute
Clicking a button in another application
Click on a button of another Application

محمد عبد العزيز

25-07-2017, 08:32 AM
تعلم كيف تتعامل مع البرامج الخارجيّة

AbdouProg

27-07-2017, 09:13 PM
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
استعملت هده الطريقة و لكنها لم تمشي معي ربما لم افهم جيدا الكود
اولا قمت بانشاء ملف اسمه  gest.bat و يختوي بداخله على   ingstart وقمت بالاتصال به عن طريق الدالفي ولكن لم يقوم بتنفيد ingstart


كود :
procedure TFG.FormActivate(Sender: TObject); begin ShellExecute(Application.Handle, 'Open', PChar(GetEnvironmentVariable('ComSpec')), '/K C:\Gestion\Gest.bat', 'C:\Gestion\', SW_SHOW); end;

AbdouProg

29-07-2017, 01:10 PM
لم افهم هدا الدرس نهائيا
تعلم كيف تتعامل مع البرامج الخارجيّة

Agmcz

29-07-2017, 03:48 PM
السلام عليكم
هذا يلبي طلبك
PHP كود :
uses
  ShellAPI;

procedure ClickButton(WindowName, WindowCaption, ControlName, ControlCaption: PChar);
var
  hParent, hControl: HWND;
begin
  hParent := 0;
  hControl := 0;
  hParent := FindWindow(WindowName, WindowCaption);
  try
    BringWindowToTop(hParent);
    Application.ProcessMessages;
    hControl := FindWindowEx(hParent, 0, ControlName,
      ControlCaption);
    try
      SendMessage(hControl, BM_CLICK, 0, 0);
    finally
      hControl := 0;
    end;
  finally
    hParent := 0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'Open', 'C:\Target.exe', nil, nil, SW_SHOWDEFAULT);
  //Sleep(100);
  ClickButton(nil, 'Ingstart', nil, 'Start');
end; 
الصفحات : 1 2 3
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > انشاء ملف Config و كيفية الاتصال به