Dll fonksiyonunu procedurden çağırmak...

[uğur alkan]

Bir dll fonksiyonunu kendi prosedürümden çağırdığım zaman pointer tanımlanmış bir diziye bu tanımlanmamış değişkendir diye hata veriyor.

Ancak aynı fonksiyonu bir buton veya bir timer vasıtasıyla rahatlıkla çağırıp kullanabiliyorum. bu problemi nasıl aşabilirim.

Kod: Tümünü seç

procedure usb_aygıta_yaz();
begin
Write(DevHandle,@FBufferOut);
SLEEP(100);
end;

burada "@FBufferOut" tanımlanmış değişken olarak ifade ediliyor ve hata veriyor

Fakat;

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
Write(DevHandle,@FBufferOut);
SLEEP(100);
end;

bu şekilde kullanınca hiç bir problem çıkmadan çalışıyor.

[mrmarman]

Bunu Forma koyduğunuz bir TLabel'a size özel bir procedure'den değer göndermek için ne yaptığınızı hatırlatarak cevaplamak isterim. Yani Form1 üzerindeki bir Label1 varsa siz bunu şu şekilde YAPAMAZSINIZ.

Kod: Tümünü seç

procedure BilgiYaz( Bilgi: String ); 
begin 
  Label1.Caption := Bilgi;
end; 

Başına nerede olduğunu bildirmeniz lazım. Çünkü Public değildir.

Kod: Tümünü seç

procedure BilgiYaz( Bilgi: String ); 
begin 
  Form1.Label1.Caption := Bilgi;
end; 

Sanırım demek istediğimi ifade edebildim.