thread: samsung
View Single Post
Old 05-17-2019, 04:01   #3 (permalink)
temporary1221
Junior Member
 
Join Date: Jan 2019
Posts: 11
Member: 2889809
Status: Offline
Thanks Meter: 1
For delphi



var
iPos : integer;
result , str : string;
begin
ComPort1.Port:='\\.\' + MODEMPORT;
ComPort1.CustomBaudRate:=115200;
if ComPort1.Connected then ComPort1.Close;
ComPort1.Open;

if ComPort1.Connected then
begin
WritePortString('41 54 2B 43 47 4D 52 0D 0A');
Application.ProcessMessages;
sleep(100);
form1.ComPort1.ReadStr(result, 200);
result:= strtohex(result);
iPos := Pos ('0D0A', result);
if (iPos > 0) then
begin
SW := hextostr(Copy(result, iPos + 4, length(result)-20));
sMemo1.Lines.Add('Firmware Version : ' + SW);
end;
  Reply With Quote
The Following User Says Thank You to temporary1221 For This Useful Post:
 
Page generated in 0.09893 seconds with 6 queries