استرجاع قيمة من الدوس بدلفي

[karamofweb]

السلام عليكم
كيف استرجع قيمة نصية او عددية من امر دوس عبر دلفي

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
بكل بساطة استخدم ReadLn في تطبيق Console
غير ذلك انظر:
http://www.delphi4arab.net/forum/showthr...p?tid=3266
http://www.delphi4arab.net/forum/showthr...p?tid=2879
غير ذلك وضح أكثر
بالتوفيق.

[TF6M]

و عليكم السلام و رحمة الله و بركاته
إستخدم خاصية البحث :
تنفيذ أوامر الـ Dos , بالخيار Hide & تحميل ملف الناتج في MeMo مثلا :

PHP كود :

Uses
 ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(0,Nil,Pchar('CMD'),Pchar('/c "Dir>DirInfo.txt"'),Nil,0);
 Memo1.Lines.LoadFromFile('DirInfo.txt');
end; 


راجع : العمل بالدالة ShellExecute

بالتوفيق,,

[karamofweb]

شكرا جزيلا اخواني تعلمت ما تيسر لكن لاحظت مشكلا في القيم المحصل عليها فمثلا قمت بتعويض DIR بـالامر tree فعوض خطوط ____ احصل على رموز و طلاسم

[TF6M]

عوض الـ TMemo إستخدم المكون TTreeView

[karamofweb]

عوض الـ tmemo إستخدم المكون ttreeview

شكرا جزيلا على الفكرة السديدة ... لكن نود برمجة طريقة قادرة على اسقبال اغلب اوامر الدوس !!!

[TF6M]

'لكن نود برمجة طريقة قادرة على اسقبال اغلب اوامر الدوس !!!'
u u i = إستخدم مخيلتك ! , بالتوفيق,,

[karamofweb]

ok لقد حللت مشكل treeview لكن مشكل الطلاسم لازال مطروحا
الكود سورس memo+treeview+timer+button

كود :

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,strutils, ComCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; TreeView1: TTreeView; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation uses shellapi; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(0,Nil,Pchar('CMD'),Pchar('/c "e:\ >DirInfo.txt"'),Nil,0); Memo1.Lines.LoadFromFile('DirInfo.txt'); memo1.Text:=''; ShellExecute(0,Nil,Pchar('CMD'),Pchar('/c "tree >DirInfo.txt"'),Nil,0); Memo1.Lines.LoadFromFile('DirInfo.txt'); if not timer1.Enabled then TreeView1.LoadFromFile('DirInfo.txt'); end; procedure TForm1.Timer1Timer(Sender: TObject); begin timer1.Enabled:=false; end; end.

[TF6M]

'لكن مشكل الطلاسم لازال مطروحا ' , مثال (.) , مسألة الـ UniCode
gStr = الرموز المسموح بها .
Tmp = الـ Line المسترجع بـ Read .
بالتوفيق,,