p then Exit;
end;
Step := 6;
ResponseArray[Step] := ''00800110'';
ComPort.PutChar(#$00);
ProcessBar.Progress := 23;
ComPort.PutChar(#$80);
ProcessBar.Progress := 27;
ComPort.PutChar(#$03);
ProcessBar.Progress := 31;
ComPort.PutChar(#$9A);
ProcessBar.Progress := 35;
ComPort.PutChar(#$00);
ProcessBar.Progress := 38;
ComPort.PutChar(#$FF);
ProcessBar.Progress := 42;
while Step = 6 do begin
Application.ProcessMessages;
if DoStop then Exit;
end;
Step := 7;
ResponseArray[Step] := ''00800110'';
ComPort.PutChar(#$00);
ProcessBar.Progress := 46;
ComPort.PutChar(#$80);
ProcessBar.Progress := 50;
ComPort.PutChar(#$0B);
ProcessBar.Progress := 54;
ComPort.PutChar(#$CB);
ProcessBar.Progress := 58;
ComPort.PutChar(#$02);
ProcessBar.Progress := 62;
ComPort.PutChar(#$00);
ProcessBar.Progress := 65;
ComPort.PutChar(#$00);
ProcessBar.Progress := 69;
ComPort.PutChar(#$00);
ProcessBar.Progress := 73;
ComPort.PutChar(#$00);
ProcessBar.Progress := 77;
ComPort.PutChar(#$07);
ProcessBar.Progress := 81;
ComPort.PutChar(#$00);
ProcessBar.Progress := 85;
ComPort.PutChar(#$00);
ProcessBar.Progress := 88;
ComPort.PutChar(#$00);
ProcessBar.Progress := 92;
ComPort.PutChar(#$00);
ProcessBar.Progress := 96;
ComPort.PutChar(#$00);
ProcessBar.Progress := 100;
while Step = 7 do
begin
Application.ProcessMessages;
if DoStop then Exit;
end;
ProcessBar.Progress := 0;
UserInfo.Caption := ''Chinese Language Active OK !'';
end;
procedure TPanasonicGD92.ExitTestModeClick(Sender: TObject);
begin
ExitTestMode.Enabled := False;
Step := 30;
ResponseArray[Step] := ''0080015A'';
ProcessBar.ForeColor := clRed;
ProcessBar.Progress := 0;
ComPort.PutChar(#$00);
ProcessBar.Progress := 25;
ComPort.PutChar(#$80);
ProcessBar.Progress := 50;
ComPort.PutChar(#$01);
ProcessBar.Progress := 75;
ComPort.PutChar(#$23);
ProcessBar.Progress := 100;
while Step = 30 do begin
Application.ProcessMessages;
if DoStop then Exit;
end;
ProcessBar.Progress := 0;
ReadInfo.Enabled := False;
Chinese.Enabled := False;
TestMode.Enabled := True;
UserInfo.Caption := ''Phone Exit Test Mode OK !''; TestMode.Caption := ''Stop'';
end;
procedure TPanasonicGD92.ReadInfoClick(Sender: TObject);
var IMEI92: string;
Code92: string;
Soft92: string;
begin
Step := 20;
UserInfo.Caption := ''Please Wait ''; ProcessBar.ForeColor := clBlue;
ProcessBar.Progress := 0;
ComPort.PutChar(#$00);
ProcessBar.Progress := 8;
ComPort.PutChar(#$80);
ProcessBar.Progress := 15;
ComPort.PutChar(#$01);
ProcessBar.Progress := 23;
ComPort.PutChar(#$98);
ProcessBar.Progress := 31;
while Step = 20 do begin Application.ProcessMessages;
if DoStop then Exit;
end;
Code92 := Copy(PanaGD9xCode, 10, 1);
Code92 := Code92 + Copy(PanaGD9xCode, 12, 1);
Code92 := Code92 + Copy(PanaGD9xCode, 14, 1);
Code92 := Code92 + Copy(PanaGD9xCode, 16, 1);
Code92 := Code92 + Copy(PanaGD9xCode, 18, 1); GD92CODE.Text := Code92;
ProcessBar.Progress := 0;
UserInfo.Caption := ''Read Phone Code OK !''; Step := 21;
ComPort.PutChar(#$00);
ProcessBar.Progress := 38;
ComPort.PutChar(#$80);
ProcessBar.Progress