Delphi kod okumak

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Cevapla
kartopu
Üye
Mesajlar: 1
Kayıt: 11 Oca 2018 07:24

Delphi kod okumak

Mesaj gönderen kartopu »

Hayırlı günler.
Embarcadero Delphi(XE7)[-] ile yazılan bir program mevcut.Program dosyalarını çıkartıyorum.RCDATA kalsörü içerisinde dosya uzanlıları belli olmayan
Borland Form (generic) tahmin ettiğim dosyalar mevcut.RAD Studio 10.2 ile açıyorum aşağıda ki gibi kod kalıpları geliyor.Bu kodları nasıl okuyabilirim.
Amacım bu kodları farklı alanda kullanmak.Yazı karakteri gibi görmek istiyorum.Yardımlarınız için şimdiden teşekkür ederim.

545046300F544261 6E6B615261706F72 6C6172690E42616E 6B615261706F726C
617269044C656674 020003546F700200 0B426F7264657249 636F6E730B0C6269
53797374656D4D65 6E750A62694D696E 696D697A65000743 617074696F6E1410
00000042616E6B61 205261706F726C61 72C4B10C436C6965 6E74486569676874
0398020B436C6965 6E74576964746803 7D0205436F6C6F72 0709636C42746E46
6163650C466F6E74 2E43686172736574 070F44454641554C 545F434841525345
540A466F6E742E43 6F6C6F72070C636C 57696E646F775465 78740B466F6E742E
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Re: Delphi kod okumak

Mesaj gönderen mrmarman »

Verdiğin içerik bu şekilde veri okumak mı istiyoruz.

Kod: Tümünü seç

Edit2TPF0TBankaRaporlariBankaRaporlariLeftTopBorderIconsbiSystemMenu
biMinimizeCaptionBanka RaporlarıClientHeight˜ClientWidth}Color	clBtnFaceFont.CharsetDEFAULT_CHARSET
Font.ColorclWindowTextFont.
Cevap Evet ise :
her bir ikili birer ASCII karakterin HEX karşılığını ifade eder.

Kod: Tümünü seç

Var
  s, r : String;
  i : Integer;
begin
  s :=   '545046300F5442616E6B615261706F726C6172690E42616E6B615261706F726C'
       + '617269044C656674020003546F7002000B426F7264657249636F6E730B0C6269'
       + '53797374656D4D656E750A62694D696E696D697A65000743617074696F6E1410'
       + '00000042616E6B61205261706F726C6172C4B10C436C69656E74486569676874'
       + '0398020B436C69656E745769647468037D0205436F6C6F720709636C42746E46'
       + '6163650C466F6E742E43686172736574070F44454641554C545F434841525345'
       + '540A466F6E742E436F6C6F72070C636C57696E646F77546578740B466F6E742E';

  r := '';
  while length(s) > 0 do begin
    r := r +  Chr( Ord( StrToInt('$'+Copy(s,1,2)) ) );
    System.Delete( s, 1, 2);
  end;
  Showmessage( r );
end;
Resim
Resim ....Resim
Cevapla