DLL içinde API kullanırken hata

[salvation]

Aşağıdaki fonksiyon ve bir kaç fonksiyondan oluşan bi dll hazırlamak istiyorum ama Api kullandığım zaman şu hatayı alıyorum:

Kod: Tümünü seç

Invalid Pointer Operation

Örneğin şu fonksiyondada öyle yapıyor:

Kod: Tümünü seç

Function Win_Kullanici : string;export;
Var
    buffer : String;
    buffsize : DWORD;
Begin
    buffsize := 128;
    Setlength(buffer,buffsize);
    Getusername(Pchar(buffer),buffsize);
    result := buffer;
end;

Ama ilginç olan "Invalid Pointer Operation" dedikten sonra edit1'e kullanıcı adını yazıyor. Yani aslında çalışıyor. Api kullanmadığım dll lerde ise bi sorun yok.
Sebebi nedir? Api kullanırken ekstra bişeyler yapıcaz dll'de?

[mcihad]

DLL lerde fonksiyonda geriye dönen değer PChar veya string ise sharemem modulunude kullanman gerekiyormuş yani uses kısmına

yeni dll oluşturunca bi yazı çıkıyopr orayı tercüme edersen hatanın neden kaynaklandığını anlarsın sanıyorum

[mrmarman]

@mcihad haklı...

- Ya da... alternatif bir kullanım, String yerine ShortString kullan hiçbir değişiklik yapmadan çalışsın...

[salvation]

DLL lerde fonksiyonda geriye dönen değer PChar veya string ise sharemem modulunude kullanman gerekiyormuş yani uses kısmına

Kod: Tümünü seç

Uses
   ShareMem;

Yani bu uniti mi kullanıcak? Şu an deneyemiyorumda