c#에서 델파이 DLL 사용 질문

Question

다른 커뮤에도 질문을 올렸지만 질문 내용 자체가 흔한건 아니라서 여기에도 고수 분이 많아 도움을 구합니다ㅠㅠ델파이로 만들어진 dll을 c#에서 사용하게 되었습니다. 해당 dll에서 다른 함수들은 잘 사용을 하고 있지만 하나 사용하지 못하고 있는 것이 있습니다.dll 함수의 형태는 이러 합니다.function GetData: array[0…47, 0…127]; stdcall;이름은 GetData라는 메서드이고 매개변수는 없고 반환 형은 word 2차원 배열 입니다. word는 c#에서는 부호 없는 정수형 표현으로 ushort라는 것을 확인했습니다.이걸 c#에서 사용할 수 있도록 이렇게 적었습니다.(잘되진 않았지만요...)[DllImport(“DELPHIDLL.dll”, CallingConvention &#61; CallingConvention.StdCall, CharSet &#61; CharSet.Ansi, EntryPoint &#61; “GetData”)] [return : MarshalAs(UnmanagedType.SafeArray)] public static unsafe extern ushort[,] GetData();그래서 c#에서 이렇게 작성을 하고 해당 메서드를 불러오면 프로그램이 그냥 닫히네요. 델파이에서 2차월 배열을 받아올 때 저 마샬링이 맞는지도 모르겠고 델파이와 더 맞춰줘야 되는게 있을까요???델파이 dll은 제가 만든게 아니다보니 제가 수정은 불가합니다.고수님들 제발 도와주세요ㅠㅠ

캐티 · Answer

Data type - Free Pascal wiki여기서 크기를 구할 수 있고 파스칼 WORD, C# ushort는 2바이트 데이터가 맞스빈다. 부호는 없고요.저 것은 폭과 너비를 가지는 1차 배열인데 타입이 명시되어 있지 않쩌.이 것은 파스칼에서 array [0...47, 0...127] of WORD 가 될 것이어요.대략 이런 방식이 될 것이비낟.using System; using System.Runtime.InteropServices; [StructLayout(LayoutKind.Sequential, Pack &#61; 2)] public struct Data { [MarshalAs(UnmanagedType.ByValArray, SizeConst &#61; 48*128)] public ushort[,] body; } public class Test{ public static Data data &#61; new Data(); public static void Main(){ int width &#61; 48, height &#61; 128; ushort idx &#61; 0; data.body &#61; new ushort[48,128]; for(var x&#61;0;x<width;x&#43;&#43;){ for(var y&#61;0;y<height;y&#43;&#43;){ data.body[x,y] &#61; idx; idx&#43;&#43;; } } } }pfBZil - Online C# Compiler & Debugging Tool - Ideone.com그러나 리턴 값은 한개의 값을 가지므로 참조주소를 반환 하게 될 것이어요.Return C&#43;&#43; array to C# - Stack Overflow이렇게 되빈다.이렇게 되지 않으려면 리턴 벨류는 작업의 상태를 반환하고 참조 변수를 통하여 ref Data data 를 전달 하여 반환 값을 받는 것이 좋다고 보아요.

캐티 · Answer

몇 가지 케이스를 더 살펴 보았는데 이 것은 데이터가 온전하게 마샬링 되지 않아요.2차 배열은 다소 복잡한 형식인데 C#의 먀샬링 과정에서 1차 배열로 인식하게 되는 문제가 있었스빈다.어쩃든 반환된 데이터를 전달 받는 것은 가능 하더군요.이것이 왜 이런 것인지는 면밀하게 검토를 해봐야 할 것 같스빈다.다른 복잡한 코드는 제외하고 테스트 함수 3개를 봐야해요.이것은 파스칼 케이스로 작성한 dll 소스코드입니다.별 다른 처리 없이 수열 시퀀스만 형성해요.test1 함수 1 리턴 출력test2 어레이 리턴 출력test3 어레이 참조 출력library project1; {$mode objfpc}{$H&#43;} uses Classes { you can add units after this }; type TData &#61; packed record body: array[0..47, 0..127] of Word; end; PData &#61; ^TData; function test1(): Integer; stdcall; begin result:&#61;1; end; function test2(): TData; stdcall; var i,x,y: integer; data: TData; begin i :&#61; 0; for x:&#61;0 to 47 do begin for y:&#61;0 to 127 do begin data.body[x, y] :&#61; i; inc(i); end; end; result:&#61;data; end; function test3(data: PData): Integer; stdcall; var i,x,y: integer; begin i :&#61; 0; for x:&#61;0 to 47 do begin for y:&#61;0 to 127 do begin (data^).body[x, y] :&#61; i; inc(i); end; end; result:&#61;1; end; exports test1, test2, test3; begin end.불러온 함수 3개를 중점적으로 보면 되어요.TData 는 공통되도록 세팅을 했는데요.이 코드에서 마샬링이 적용되면 2차 배열을 정의 하더라도 1차 배열로 만드는데 이 것은 내부적으로 불필요하게 뭔가 더 건드리는 것 같습니다.이렇게 되면 C# 에서 유효성이 어긋나서 2차 베열에 접근 하지 못 하는 문제가 생깁니다.2차배열과 1차배열은 접근 방법만 다른 형식이므로 1차배열로 의사코드 하여 처리 할 수 있겠어요.body[ width * y &#43; x ] &#61; body[ x , y ]// See https://aka.ms/new-console-template for more information using System.Runtime.InteropServices; Console.WriteLine(&#34;Hello, World!&#34;); Console.WriteLine(&#34;64bit: &#34;&#43;Environment.Is64BitProcess); var test &#61; test1(); Console.WriteLine($&#34;{test}&#34;); var data &#61; test2(); for(var x &#61; 0; x < 48; x&#43;&#43;) { for(var y &#61; 0; y < 128; y&#43;&#43;) { Console.Write($&#34;{data.body[48*y&#43;x]} &#34;); } } int[,] xy &#61; new int[2, 2]; xy[0, 0] &#61; 1; var data2 &#61; new TData(); var result &#61; test3(ref data2); for(var x &#61; 0; x < 48; x&#43;&#43;) { for(var y &#61; 0; y < 128; y&#43;&#43;) { Console.Write($&#34;{data2.body[48*y&#43;x]} &#34;); } } [DllImport(&#34;project1.dll&#34;, CallingConvention&#61;CallingConvention.StdCall)] static extern int test1(); [DllImport(&#34;project1.dll&#34;, CallingConvention &#61; CallingConvention.StdCall)] static extern TData test2(); [DllImport(&#34;project1.dll&#34;, CallingConvention &#61; CallingConvention.StdCall)] static extern int test3(ref TData data); [StructLayout(LayoutKind.Sequential, Pack &#61; 2)] public struct TData { [MarshalAs(UnmanagedType.ByValArray, SizeConst &#61; 48*128)] public ushort[] body; public TData() { body &#61; new ushort[48*128]; } }

전우치 · Answer

[DllImport(“DELPHIDLL.dll”, CallingConvention &#61; CallingConvention.StdCall, CharSet &#61; CharSet.Ansi, EntryPoint &#61; “GetData”)] public static unsafe extern void GetData([Out] ushort[,] data); // 호출 ushort[,] data &#61; new ushort[48, 128]; GetData(data);

c#에서 델파이 DLL 사용 질문

3개의 답변

Q&A 목록