Pointer Kullanımı

[demure]

Merhaba arkadaşlar.
Delphi de iyi sayılmam. USB Programında yazdığım kodun bir kısmında (JEDI HID component) aşağıdaki kod yazmaktadır. Burdaki data yı integer olarak nasıl kullanabilirim. Teşkkürler

procedure TForm1.ShowRead(HidDev: TJvHidDevice; ReportID: Byte;
const Data: pointer; Size: Word);
var
I: Integer;
Str: string;
begin
for I := 0 to Size - 1 do
Str := Str + Format('%.2x ', [Cardinal(PChar(Data))]);
end;

[demure]

Koskoca forumda kimse cevap yazmamış. Vakit bulamamışlardır umarım.

[aslangeri]

s.a.
öncelikle aramıza hoşgeldin.
forum bir hazine, kullanmasını bilene....
kimse cevap yazmamış diye hayıflanacağınıza arama yapsanız forumda pointerlar ile ilgili güzel bilgilere ulaşabilirsiniz.
pointer
viewtopic.php?f=2&t=26865&p=150361&hili ... er#p150361

[demure]

İlgine teşekkür ederim arkadaşım. Fakat sende mesajın sadece başlığını değilde içeriğini okusaydın memnun olurdum. Verdiğin linkteki bilgiler google da hersayfada var. Burada sorduğum soru ayrı bir şey. Neyse senin ve benim bu yazdıklarımdan sonra bu sorunun anlamı kalmadı. Karşılıklı takıntılara girmek istemiyorum. Yine de teşekkür ederim.

[demure]

Bu bir Jedi usb component. Orada pointer yazmakta fakat pointer olarak tanımlasam da kullanamadım. Ancak cardinal(Pchar(data)) şeklinde kullandım ve bir text de gösterebildim.

[sabanakman]

Bilgiye dizi şeklinde zaten erişmişsiniz "Cardinal(PChar(Data))". İllaki sayısal tiple basit erişim gerekiyorsa PByteArray tipi kullanılarak Byte tipli dizi şeklinde erişebilirsiniz.

Kod: Tümünü seç

procedure TForm1.ShowRead(HidDev: TJvHidDevice; ReportID: Byte; const Data: pointer; Size: Word);
var
  I: Integer;
  Str: string;
  DataDizi:PByteArray;
begin
  DataDizi:=Data;
  for I := 0 to Size - 1 do
  //Str := Str + Format('%.2x ', [Cardinal(PChar(Data)[I])]);
    Str := Str + Format('%.2x ', [DataDizi^[i]]);  //-->DataDizi^[i]
end;

[demure]

might not have been initialized uyarısı verdi ama hata vermedi.. değeri 1 defa okudu. ikinci döngüde sorun oldu. Sanırım orayı çözebilirim. Çok teşekkür ederim.

[demure]

Burda bir yanlışlık var benim işime yarayan i değil dolayısıyla istenilen değeri vermiyor. Data yı kullanmamız lazım. oradaki döngüde ben [Cardinal(PChar(Data)[0])] yazdığımda da istediğim değeri okuyorum. Zaten 1 byte bilgi gönderdiğim için. i sadece fazla byte lık işlemlerde kullanılıyor.