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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استرجاع قيمة من الدوس بدلفي (/showthread.php?tid=2720)

استرجاع قيمة من الدوس بدلفي - karamofweb - 16-01-2011

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

استرجاع قيمة من الدوس بدلفي - kachwahed - 16-01-2011

وعليكم السلام ورحمة الله وبركاته
بكل بساطة استخدم ReadLn في تطبيق Console Smile

غير ذلك انظر:
http://www.delphi4arab.net/forum/showthread.php?tid=3266
http://www.delphi4arab.net/forum/showthread.php?tid=2879
غير ذلك وضح أكثر
بالتوفيق.

استرجاع قيمة من الدوس بدلفي - TF6M - 16-01-2011

و عليكم السلام و رحمة الله و بركاته
إستخدم خاصية البحث :
تنفيذ أوامر الـ 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 - 16-01-2011

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

استرجاع قيمة من الدوس بدلفي - TF6M - 17-01-2011

عوض الـ TMemo إستخدم المكون TTreeView [صورة: icon14.gif]

استرجاع قيمة من الدوس بدلفي - karamofweb - 17-01-2011

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

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

استرجاع قيمة من الدوس بدلفي - TF6M - 17-01-2011

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

استرجاع قيمة من الدوس بدلفي - karamofweb - 17-01-2011

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 - 17-01-2011

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