Invalid Pointer hatası

[turkerunutmaz]

Merhaba.
Delphi de dll projesi oluşturdum.
kodum:

Kod: Tümünü seç

Library project1;
Uses
  Sysutils,
  Classes,
 Dialogs;
function deneme(x:string):string;export;
  Begin
    result:=copy(x,1,5);
  End;

Exports
deneme;
{$R*.res}
Begin
End;

şu şekilde kullanıyorum:

Kod: Tümünü seç

procedure deneme(x:string):string;far;external 'project1.dll';

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(deneme('selam bu bir denemedir'));

end;

doğru çalışıyor fakat mesaj kutusuna tamam deyince invalid pointer operation hatası alıyorum sorun nedir?

[turkerunutmaz]

stringleri pchar olarak değiştirdim. düzeldi. string olarak kullanamazmıyız direk?

[sabanakman]

Dll kullanırken bir çok delphi tipi windows tipleri ile uyumlu değildir. String'de bunlardan birisidir. Sanırım .dll yazarken bu gibi temel konularda hassas olmak gerekiyor.