Code: Alles auswählen
const
FIONREAD = $541B;
procedure TBTReadThread.Execute;
var
readlen:cint32;
bt_msg: string;
FDS : Tfdset;
begin
// ....
s := fpsocket(AF_BLUETOOTH, SOCK_STREAM, BTPROTO_RFCOMM);
//...
status := fpconnect(s, @loc_addr, opt);
// Loop start
//...
res:= FpIOCtl(s,FIONREAD,@readlen);
//..
// Wenn Daten da sind lesen
cnt:= fprecv(s,Pchar(bt_msg), readlen, 0);
// endLoop
fpshutdown(s, 0);
end;
Habt ihr eine Idee, wie ich den Status der Kommunikation (Socket) herausbekommen könnte ?