Datakent Forum : c# da delphi ile yazılan dll kullanma http://forum.datakent.com/ XML içerik linki; Datakent Forum : C# & ASP.NET : c# da delphi ile yazılan dll kullanma Thu, 23 Apr 2026 01:30:39 +0000 Wed, 15 Feb 2012 16:31:43 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.54 360 forum.datakent.com/RSS_post_feed.asp?TID=2308 Datakent Forum http://forum.datakent.com/forum_images/datakent.com_forums.png http://forum.datakent.com/ c# da delphi ile yazılan dll kullanma : güzel çalışma http://forum.datakent.com/forum_posts.asp?TID=2308&PID=4908#4908 Yazar: murat turan
Konu: 2308
Gönderim Zamanı: 15.Subat.2012 Saat 16:31

güzel çalışma]]> Wed, 15 Feb 2012 16:31:43 +0000 http://forum.datakent.com/forum_posts.asp?TID=2308&PID=4908#4908 c# da delphi ile yazılan dll kullanma : Yazdığım fonksiyon saçma da... http://forum.datakent.com/forum_posts.asp?TID=2308&PID=4903#4903 Yazar: aziz.alkurt
Konu: 2308
Gönderim Zamanı: 10.Subat.2012 Saat 19:10

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.

-----------
Calling a Delphi DLL from C#, Use DLL compiled in Delphi 7 in C#


Düzenleyen murat turan - 15.Subat.2012 Saat 16:33]]> Fri, 10 Feb 2012 19:10:31 +0000 http://forum.datakent.com/forum_posts.asp?TID=2308&PID=4903#4903