رسالة تحذير ماهو سببها اثناء التطبيق التطبيق

رسالة تحذير ماهو سببها اثناء التطبيق التطبيق - نسخة قابلة للطباعة

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

رسالة تحذير ماهو سببها اثناء التطبيق التطبيق - didrosoft - 18-02-2023

السلام عليكم ورحمة الله وبركاته
قمت ببرمجة تطبيق يستخدم البلوتوث واعطاني هذه الرسالة تخص function واريد معرفة سببها
للعلم هذه هي ال function الخاصة بالبحث عن الاجهزة والي عندو احسن منها يزودنا بيها وشكرا جزيلا

function tform1.bluto(pdevicename Confused

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]

RE: رسالة تحذير ماهو سببها اثناء التطبيق التطبيق - Ndagor - 19-02-2023

الدلة يمكنها الرجوع بقية عشوائية لهذا يجب تاكد ان جميع مخارج تحتوي على قيمة معروفة

كود :
function tform1.bluto(pdevicenameConfusedtring):boolean;
var
idevice: tbluetoothdevice;

begin
     Result := False; 
      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;

RE: رسالة تحذير ماهو سببها اثناء التطبيق التطبيق - didrosoft - 20-02-2023

بارك الله فيك اخي