18-02-2023, 08:26 PM
السلام عليكم ورحمة الله وبركاته
قمت ببرمجة تطبيق يستخدم البلوتوث واعطاني هذه الرسالة تخص function واريد معرفة سببها
للعلم هذه هي ال function الخاصة بالبحث عن الاجهزة والي عندو احسن منها يزودنا بيها وشكرا جزيلا
function tform1.bluto(pdevicename
tring):boolean;
var
idevice: tbluetoothdevice;
begin
for idevice in bluetooth1.PairedDevices do
begin
if idevice.DeviceName=pdevicename then
begin
fsocket:=idevice.CreateClientSocket(stringtoguid(uuid),true);
if fsocket<>nil then
begin
fsocket.Connect;
result:=fsocket.Connected;
end
end;
end;
end;
![[صورة: 256953839.jpg]](https://www4.0zz0.com/2023/02/18/19/256953839.jpg)
قمت ببرمجة تطبيق يستخدم البلوتوث واعطاني هذه الرسالة تخص function واريد معرفة سببها
للعلم هذه هي ال function الخاصة بالبحث عن الاجهزة والي عندو احسن منها يزودنا بيها وشكرا جزيلا
function tform1.bluto(pdevicename
tring):boolean;var
idevice: tbluetoothdevice;
begin
for idevice in bluetooth1.PairedDevices do
begin
if idevice.DeviceName=pdevicename then
begin
fsocket:=idevice.CreateClientSocket(stringtoguid(uuid),true);
if fsocket<>nil then
begin
fsocket.Connect;
result:=fsocket.Connected;
end
end;
end;
end;