اختبار اذا كان منفذ كوم موجودا

[Adnan]

تستطيع اختبار ما اذا كان منفذ كوم موجودا او لا او غيره
ببعض التعليمات البسيطة

مثال في لغة ديلفي
فقط ضع ثلاث ازرار و هذا هو الكود لليونت كامل

==========================================
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function ComPortAvailable(Port: PChar): Boolean;
var
DeviceName: array[0..80] of Char;
ComFile: THandle;
begin
StrPCopy(DeviceName, Port);

ComFile := CreateFile(DeviceName, GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);

Result := ComFile <> INVALID_HANDLE_VALUE;
CloseHandle(ComFile);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if ComPortAvailable('COM1:') then
ShowMessage('Port available')
else
ShowMessage('Port not available');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ComPortAvailable('COM2:') then
ShowMessage('Port available')
else
ShowMessage('Port not available');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if ComPortAvailable('COM3:') then
ShowMessage('Port available')
else
ShowMessage('Port not available');
end;

end.

====================================

حمل البرنامج من هنــا (http://www.electvillage.com/ve/files.php?action=viewfile&f=348&s=)

[asmaaali]

مشكور جدا اخ عدنان علي هذه المشاركات الجميلة وان شاء الله بداية رائعة لك معنا
ملحوظة : الملف الموجود بهذه المشاركة لم استطع تحميله بشكل جيد ولا توجد مشكلة عندي
وكل الملفات الاخري استطعت تحميلها وتشغيلها
ارجو ايجاد حل
وشكرا

[aymanezat]

الله ينور

[asmaaali]

انتهت المشكلة واستطعت التحميل للملف

[البيضاني]

في اي برنامج اطبق هذا العمل اقصد ماهو البرنامج لذي يستعمل هذة اللغة مثل فلاش؟؟؟؟

[Adnan]

شكرا على هذه المشاركة يا اخ البيضاني

هذا المثال يطبق على لغة ديلفي كما ذكرت سابقا
و هي لغة برمجة عامة مستقلة بذاتها و ليست سكربت كما الحال في الفلاش
واذا اردت الحصول على معلومات عن هذه اللغة فقد و ضعت مقالة عن ديلفي و تستطيع الوصول
البها من خلال الرابط التالي
http://www.electvillage.com/ve/showthread.php?s=&threadid=918

[alsahr]

مشكور

[elkashf]

لك الشكر على هذا التوضيح أخى الفاضل

[احمد خليل شعبان]

رائع ممتاز