+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : انشاء ملف Config و كيفية الاتصال به (/showthread.php?tid=8743)
RE: انشاء ملف Config و كيفية الاتصال به - AbdouProg - 23-07-2017
(23-07-2017, 08:33 AM)B.M.AbdelAziZ كتب : اخي الاجابة كانت حسب السؤال فلم تذكر نوع قاعدة البيانات وسالت عن استخدام ملف Config
بالنسبة للتصال بقاعدة بيانات Ingres باستخدام ODBC الطريقة نفسها ابحث بالمنتدى عن كلمة ODBC
السلام عليكم اخي عبد العزيز
بالنسبة للاتصال بقاعدة بيانات ingres عن طريق ODBC اعرف الاتصال بها و برنامجي يعمل بامتياز ولكن
برنلمجي لا يعمل الا ادا كان التطبيق المبرمج ب ingres مفتوج اي يجب تظهر النافدتين المبينتان في الصورة (IIGCN) او نقوم تنفيد ingstart المبين في الشكل
RE: انشاء ملف Config و كيفية الاتصال به - محمد عبد العزيز - 24-07-2017
كود :
او نقوم تنفيد ingstart المبين في الشكلRE: انشاء ملف Config و كيفية الاتصال به - AbdouProg - 24-07-2017
(24-07-2017, 08:47 AM)B.M.AbdelAziZ كتب :إذن ليقم برنامجك بتنفيذ ingstart قبل الاتصال.كود :او نقوم تنفيد ingstart المبين في الشكل
السلام عليكم
و كبف يتم دالك
RE: انشاء ملف Config و كيفية الاتصال به - محمد عبد العزيز - 24-07-2017
ShellExecute
http://delphi4arab.net/forum/showthread.php?tid=2173
RE: انشاء ملف Config و كيفية الاتصال به - AbdouProg - 24-07-2017
(24-07-2017, 04:10 PM)B.M.AbdelAziZ كتب : ShellExecute
http://delphi4arab.net/forum/showthread.php?tid=2173
السلام عليكم اخي عبد العزيز
و الله ياخي سبق لي و ان جربت هده الطريقة و فعلا هي تعمل و لكن المشكلة هو ان النافدة المنبتقة عند الاتصال بها عن طريق برنامج الدالفي يجب تنفدها بالزر start كما هو موضح في الصورة
وكدالك استعملت طريقة وضع ملف التنفيد في Démarrage (win7) و لكن نفس المشكل
و الله لقد ارهقني هدا المشكل كثيرا اثمنى من الزملاء مساعدتي في ايجاد الحل
RE: انشاء ملف Config و كيفية الاتصال به - Agmcz - 25-07-2017
السلام عليكم
يمكنك الضغط على زر "Start" بعد التنفيذ بكل سهولة
ألق نظرة هنا..
how to get HWND after shellExecute
Clicking a button in another application
Click on a button of another Application
RE: انشاء ملف Config و كيفية الاتصال به - محمد عبد العزيز - 25-07-2017
تعلم كيف تتعامل مع البرامج الخارجيّة
RE: انشاء ملف Config و كيفية الاتصال به - AbdouProg - 27-07-2017
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
استعملت هده الطريقة و لكنها لم تمشي معي ربما لم افهم جيدا الكود
اولا قمت بانشاء ملف اسمه 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;RE: انشاء ملف Config و كيفية الاتصال به - AbdouProg - 29-07-2017
لم افهم هدا الدرس نهائيا
تعلم كيف تتعامل مع البرامج الخارجيّة
RE: انشاء ملف Config و كيفية الاتصال به - Agmcz - 29-07-2017
السلام عليكم
هذا يلبي طلبك
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;