Char Veya Hex Kodunu String Yada İnteger Çevirme.

[seci20]

ustalarım merhaba günlerdir araştırmam rağmen bir türlü sonuça ulaştıramadığım bir sorunu sizle paylaşıyorum.sorun şu.comport üzerinden aldıgım veriyi memoya anlaşılır bir biçimde geçmesini istiyorum yazdığım kod şu.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var

i: string ;
begin
i:=(chr($26)+chr($26)+chr($02)+chr($DF)+ chr($47)+chr($7E));
 comport1.open;
comport1.ShowSetupDialog;
comport1.WriteStr(i);

read yaptığı bölüm

Kod: Tümünü seç

var
  data: String;
begin
  ComPort1.ReadStr(data, Count);
  memo1.Lines.Add(data);

bana şu biçimde memoya yazdırıyor.



aslında bu bir telefonun imei numarasını okumasını istiyorum ve memoda şu biçimde yazmalı.



tabi bir tek imei numaraları çevrilmicek daha bir çok yazı ve sayı olmak uzerı dönüşmesi gerekli.forumu komple araştırdım malasef bişe bulamadım.internettede bayadır arıyorum.yardımcı olan ustalarıma şimdiden çok teşekkür ederim....

[seci20]

arkadaşlar bir çözüm önerisi olan yokmu hala çözümü bulamadım ?

[seci20]

ustalarım hala çözüm bulunamadı bilginize...

[mrmarman]

ComPort'tan gelen veriyi olduğu gibi kullanmak zaten beklenen bir şey değil.
Şöyle yaparak başlayın. Memo'ya yazdığın yerde aşağıdaki kodu uygula ve memo'da olanları gözlemle. Bak bakalım tanıdık bir şeyler çıkacak mı

Kod: Tümünü seç

Var
  data, strVeri : String;
  i, iAsc : Integer;
begin
  ComPort1.ReadStr(data, Count);
  for i := 1 to length(data) do
  begin
    iAsc    := Ord( data[i] );
    strVeri := Format( '( %.2xh ) %d',  [ iAsc, iAsc ] );
    Memo1.Lines.Add( strVeri );
  end;
end;

[seci20]

hocam çok çok teşekkür ederim... verdiğiniz örnek çözüm yolum oldu.