Гость
Войти | Профиль | Очистить
Действия ...
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Вызов функции Delphi с аргументом Pointer на C# / 4 сообщений из 4, страница 1 из 1
26.01.2017, 15:03
    #39392127
Uzrptav
Uzrptav
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов функции Delphi с аргументом Pointer на C#
В старом проекте на Delphi 7 есть функция SLUpdateMemoryHash которая вызывается из внешней dll.
Пытаюсь реализовать вызов даной на .Net C#. Проблема реализации передачи параметра типа Pointer.
В чем может быть ошибка?
Описание на Delphi:
Код: pascal
1.
2.
3.
function SLUpdateMemoryHash(hCtx: HSECLIB; 
                            const pData: Pointer;
                            nDataSize: Cardinal): SLSTATUS ; stdcall ;


Реализация на Delphi:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
function DoHashFile( hCtx : HSECLIB;
                        hFileIn: THandle ;
			hFileOut: THandle;
                        pBuffer: Pointer ;
                        nSize : Cardinal  ): SLSTATUS ;
var
 	processed : DWORD ;
begin
 	ReadFile( hFileIn, pBuffer^, nSize, processed, Nil );

	Result := SLUpdateMemoryHash( hCtx, pBuffer, nSize ) ;//Как выполнить подобное в C#

	WriteFile( hFileOut, pBuffer^, nSize, processed, Nil );	
end;



Попытка вызвать функцию SLUpdateMemoryHash на C#:
Код: c#
1.
2.
3.
4.
5.
6.
7.
8.
[StructLayout(LayoutKind.Sequential)]
public struct HSECLIB__
{
       public int unused;
}

[DllImport("SecLibrary.dll", CallingConvention = CallingConvention.StdCall)]
static extern uint SLUpdateMemoryHash(HSECLIB__ hCtx, IntPtr bytePointer, uint nDataSize);


Код: c#
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
class Sender
{
    public Sender()
    {
        HSECLIB__ hSecLib2 = new HSECLIB__();
        string sFileIn = @"e:\text.txt";
        string sFileOut = @"e:\text.sign";
        FileStream fsIn = new FileStream(sFileIn, FileMode.Open);
        FileStream fsOut = new FileStream(sFileOut, FileMode.Create);
        long bufSize = fsIn.Length;
        byte[] byteBuf = new byte[bufSize];

        int countRead = fsIn.Read(bytePointer, 0, bufSize);    

        IntPtr unmanagedPointer = Marshal.AllocHGlobal(byteBuf.Length);
        Marshal.Copy(bytePointer, 0, unmanagedPointer, byteBuf.Length);

        int rez = SLUpdateMemoryHash(hSecLib2, unmanagedPointer, bufSize); //В чем ошибка?
        //if (rez != 0) { WriteLog("Ошибка SLUpdateMemoryHash"); }

        byte[] outBytes = new byte[bufSize];
        Marshal.Copy(unmanagedPointer, outBytes, 0, byteBuf.Length);

        fsOut.Write(bytePointer, 0, outBytes.Length);
        fsOut.Flush();
        fsOut.Close();
        fsIn.Close();
    }
}
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2017, 17:37
    #39392355
Т-Миронов
Т-Миронов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов функции Delphi с аргументом Pointer на C#
Ошибка в том, что не вызывается Marshal.FreeHGlobal.
А вообще вместо этого:
Код: c#
1.
2.
        IntPtr unmanagedPointer = Marshal.AllocHGlobal(byteBuf.Length);
        Marshal.Copy(bytePointer, 0, unmanagedPointer, byteBuf.Length);


Удобней
Код: c#
1.
2.
3.
4.
var handle = GCHandle.Alloc(byteBuf, GCHandleType.Pinned);
IntPtr ptr = GCHandle.ToIntPtr(handle);
...
handle.Free();



А в чем проблемма? Текст ошибки или не тот результат rez ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2017, 18:01
    #39392372
Uzrptav
Uzrptav
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов функции Delphi с аргументом Pointer на C#
Проблема в том, что на стороне Delphi функция SLUpdateMemoryHash требует аргумент типа Pointer - указатель на буфер в который считывается порция байтов из файла.
Не могу понять как правильно реализовать вызов SLUpdateMemoryHash на .NET C# и передать указатель на массив байт byteBuf который я получаю:
Код: c#
1.
2.
3.
4.
        FileStream fsIn = new FileStream(sFileIn, FileMode.Open);
        long bufSize = fsIn.Length;
        byte[] byteBuf = new byte[bufSize];
        int countRead = fsIn.Read(byteBuf, 0, bufSize);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2017, 18:03
    #39392374
Т-Миронов
Т-Миронов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вызов функции Delphi с аргументом Pointer на C#
UzrptavПроблема в том, что на стороне Delphi функция SLUpdateMemoryHash требует аргумент типа Pointer - указатель на буфер в который считывается порция байтов из файла.
Не могу понять как правильно реализовать вызов SLUpdateMemoryHash на .NET C# и передать указатель на массив байт byteBuf который я получаю:
Код: c#
1.
2.
3.
4.
        FileStream fsIn = new FileStream(sFileIn, FileMode.Open);
        long bufSize = fsIn.Length;
        byte[] byteBuf = new byte[bufSize];
        int countRead = fsIn.Read(byteBuf, 0, bufSize);



Это не проблема а задача. И приведение решение ее для меня выглядит рабочим. Если онон не работает давайте разбираться почему глядя на симптомы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Вызов функции Delphi с аргументом Pointer на C# / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 401ms
Закрыть
start [/forum/topic.php?fid=20&mobile=1&tid=1400088]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 264ms
total:  401ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]