ارتباط با ماجول بلوتوث HC-05

[asgarkz]

سلام
من یک برنامه با دلفی XE8 و کامپوننت TBluetooth نوشته ام که اگر روی دو تا گوشی اندرویدی نصب بشه، میتونن برای هم ارسال و دریافت اطلاعات رو انجام بدن ولی وقتی با همین برنامه از روی یک گوشی اندرویدی میخوام اطلاعات رو به ماجول بلوتوث HC-05 ارسال کنم، دریافتی صورت نمیگیرد. دلیلش چی میتونه باشه؟

[asgarkz]

با تشکر از توجه دوستان، روال برنامه رو توضیح میدم تا شاید در حل مشکل مفید باشه

در ابتدا روال OpenSocket برای یکبار اجرا میشود و سپس روال SendData عملیات ارسال رشته را انجام می دهد



type
TServerConnectionTH = class(TThread)
private
{ Private declarations }
FServerSocket: TBluetoothServerSocket;
FSocket: TBluetoothSocket;
FData: TBytes;
protected
procedure Execute; override;
public
{ Public declarations }
constructor Create(ACreateSuspended: Boolean);
destructor Destroy; override;
end;

------------------

TForm1 = class(TForm)
ComboBox1: TComboBox;
Bluetooth1: TBluetooth;
....
private
{ Private declarations }
zServerConnectionTH: TServerConnectionTH;
zSocket: TBluetoothSocket;
//--------------
procedure OpenSocket;
procedure SendData;
public
{ Public declarations }
end;

---------------------

procedure TForm1.OpenSocket;
begin
if ((zServerConnectionTH = nil) and
(Bluetooth1.ConnectionState = TBluetoothConnectionState.Connected)) then
begin
zServerConnectionTH := TServerConnectionTH.Create(True);
zServerConnectionTH.FServerSocket :=
Bluetooth1.CurrentAdapter.CreateServerSocket('Basi c Text Server', StringToGUID('{B62C4E8D-62CC-404B-BBBF-BF3E3BBB1378}'), False);
zServerConnectionTH.Start;
end;
end;

--------------------

procedure TForm1.SendData;
var
ToSend: TBytes;
zDevice: TBluetoothDevice;
begin
if (zSocket = nil) then
begin
zDevice := Bluetooth1.PairedDevices[ComboBox1.ItemIndex] as TBluetoothDevice;
zSocket := zDevice.CreateClientSocket('{B62C4E8D-62CC-404B-BBBF-BF3E3BBB1378}', False);
zSocket.Connect;
end;
ToSend := TEncoding.UTF8.GetBytes('test');
zSocket.SendData(ToSend);
end;

[ابوالفضل عباسی]

عجیبه.ولی شاید کامپوننت بلوتوثی که دلفی داره استفاده میکنه،فقط میتونه با دیوایس های هم شکل خودش ارتباط برقرار کنه.بعیده،ولی ممکنه اینطوری باشه.چون ماژول بلوتوث هم مثل یک گوشی بلوتوثی می مونه که باید بتونه فایل send,receive کنه،ولی دلفی باهاش سازگاری نداره.

[DAMAVAND]

منم همین مشکل رو داشتم و هر چی سعی کردم نتوستنم حلش کنم!!! قاعدتا نباید هیچ فرقی باشه بین ماژول و گوشی برای دلفی!!!

[asgarkz]

سلام
خوشبختانه مشکل ارسال اطلاعات حل شد. کافیه سرویس پشتیبانی شده در ماجول HC-05 رو که ظاهرا سرویس سریال هست رو انتخاب کنیم و بعد روال OpenSocket رو اجرا کنیم. اما همچنان مشکل دریافت باقیست

[asgarkz]

با تشکر از همه دوستان. برای دریافت هم از zSocket.ReceiveData استفاده کردم و مشکل حل شد

[moj127]

با تشکر از همه دوستان. برای دریافت هم از zSocket.ReceiveData استفاده کردم و مشکل حل شد


آقا دمت گرم میتونی یه راهنمایی بکنی که دقیقا چیکار کردی؟
من هنوز توی ارتباط با ماژول مشکل دارم و نمیدونم باید چیکار کنم؟