c# da delphi ile yazılan dll kullanma

Yazdığım fonksiyon saçma da olsa kullanımı göstermek için mükkemmel ölçüde

Delphi tarafı
-------------------------------------------------------------------------------------------
library Project2;
uses SysUtils,Classes;
type TByteArr = array of byte;
var MemStr:TMemoryStream;

function prepareFile(zx:TByteArr; out k:integer):Pointer;export; stdcall;
var b:byte;
begin
MemStr := TMemoryStream.Create;
b:=$61;
MemStr.Write(b,1);
MemStr.Write(zx[0],length(zx));
k:=MemStr.size;
Result:=MemStr.Memory;
end;
procedure DisposeMemStr();export; stdcall;
begin
 FreeAndNil(MemStr);
end;

function isMemStrNULL():boolean;export; stdcall;
begin
  if Assigned(MemStr) then
  Result:=false
  else
  Result:=true;
end;
exports prepareFile,DisposeMemStr,isMemStrNULL;
begin
end.
-------------------------------------------------------------------------------------------

C# tarafı
-------------------------------------------------------------------------------------------
        [DllImport("d:/dlls/Project2.dll", EntryPoint = "prepareFile", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi)]
        public static extern IntPtr prepareFile(byte[] bytes,ref int l);
        [DllImport("d:/dlls/Project2.dll", EntryPoint = "DisposeMemStr", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi)]
        public static extern void DisposeMemStr();
        [DllImport("d:/dlls/Project2.dll", EntryPoint = "isMemStrNULL", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi)]
        public static extern bool isMemStrNULL();
        static void Main(string[] args)
        {
            byte[] bytes = File.ReadAllBytes("d:/denemeImp3.txt");
            int l = 0;
            IntPtr b = prepareFile(bytes,ref l);
            byte[] bx = new byte[ l ];
            Marshal.Copy(b, bx, 0,l);
            File.WriteAllBytes("d:/denemeImp2.txt",bx);
            bool x = isMemStrNULL();
            DisposeMemStr();
            x= isMemStrNULL();
        }
-------------------------------------------------------------------------------------------


delphiden aldığım memorystreamın başlagıç adresi (Pointer) ve uzunluğu. Bu ikisini bildiğim zaman zaten Marshall ile RAM dan onu okuyabiliyorum. Delphide MemStr nesnesini global yapmamın sebebi
işlemim bittikten sonra memory den uçurmak için. Bu işlem sonrası istiyorsanız Marshall ile o adresde anlamlı data var mı diye bakabilirsiniz.


Düzenleyen murat turan - 15.Subat.2012 Saat 16:33