Передача HBitmap из dll на Delphi в приложение на C#?

Question

[mastersoftna]

Есть библиотека на Delphi. У нее функция, которая рисует изображение и возвращает его HBitmap:

function TRGOpenHandle(FileName:PAnsiChar; Release:boolean):LongWord; stdcall; export;<br/>
begin<br/>
if FActive then<br/>
 begin<br/>
 try<br/>
 TRG.Clear;<br/>
 TRG.ClearBackground;<br/>
 TRG.LoadFromFile(FileName);<br/>
 TRG.ClearBackground;<br/>
 if Release then result:=TRG.Image.Picture.Bitmap.ReleaseHandle<br/>
 else result:=TRG.Image.Picture.Bitmap.Handle;<br/>
 except on E:Exception do<br/>
 begin<br/>
 MessageBox(0, PAnsiChar(E.Message), 'TRG.DLL', MB_OK + MB_ICONWARNING);<br/>
 FActive:=false;<br/>
 result:=0;<br/>
 end;<br/>
 end;<br/>
 end else<br/>
 begin<br/>
 result:=0;<br/>
 end;<br/>
end;

Если вызывать эту dll из приложения на Delphi, то все работает нормально, изображение отрисовывается. Если вызывать dll из приложения на C#, то изображение неотрисовывается, Image заливается просто белым цветом.


Вызов из C#:

LibWrap.TRGInit();<br/>
 bmp = Bitmap.FromHbitmap((IntPtr)LibWrap.TRGOpenHandle(files[i], false));<br/>
 files[i] = System.IO.Path.GetFileNameWithoutExtension(files[i]);<br/>
 bmp.Save(tiffPath + &quot;\\&quot; + files[i] + &quot;.tif&quot;, System.Drawing.Imaging.ImageFormat.Tiff);

Стоит только добавить в функцию dll вызов модального окна (именно модального), то и в c# все отрисовываетяс отлично. Но работать с постоянно выскакивающими модальными окнами невозможно. Что можно сделать?


Код функции при добавлении вызова модального окна:

function TRGOpenHandle(FileName:PAnsiChar; Release:boolean):LongWord; stdcall; export;<br/>
begin<br/>
if FActive then<br/>
 begin<br/>
 try<br/>
 TRG.Clear;<br/>
 TRG.ClearBackground;<br/>
 TRG.LoadFromFile(FileName);<br/>
Form2.ShowModal;<br/>
 TRG.ClearBackground;<br/>
 if Release then result:=TRG.Image.Picture.Bitmap.ReleaseHandle<br/>
 else result:=TRG.Image.Picture.Bitmap.Handle;<br/>
 except on E:Exception do<br/>
 begin<br/>
 MessageBox(0, PAnsiChar(E.Message), 'TRG.DLL', MB_OK + MB_ICONWARNING);<br/>
 FActive:=false;<br/>
 result:=0;<br/>
 end;<br/>
 end;<br/>
 end else<br/>
 begin<br/>
 result:=0;<br/>
 end;<br/>
end;

Так же отрисовываетяс, но через раз если сделать так:

function TRGOpenHandle(FileName:PAnsiChar; Release:boolean):LongWord; stdcall; export;<br/>
begin<br/>
if FActive then<br/>
 begin<br/>
 try<br/>
 TRG.Clear;<br/>
 TRG.ClearBackground;<br/>
 TRG.LoadFromFile(FileName);<br/>
 TRG.ClearBackground;<br/>
 Application.ModalStarted;<br/>
 Application.HandleMessage;<br/>
 Application.ModalFinished;<br/>
 Application.ProcessMessages;<br/>
 if Release then result:=TRG.Image.Picture.Bitmap.ReleaseHandle<br/>
 else result:=TRG.Image.Picture.Bitmap.Handle;<br/>
 except on E:Exception do<br/>
 begin<br/>
 MessageBox(0, PAnsiChar(E.Message), 'TRG.DLL', MB_OK + MB_ICONWARNING);<br/>
 FActive:=false;<br/>
 result:=0;<br/>
 end;<br/>
 end;<br/>
 end else<br/>
 begin<br/>
 result:=0;<br/>
 end;<br/>
end;

Подскажите как решить эту проблему, или хотя бы как убивать модальное окно программно. В чем может быть загвоздка, почему именно при вызове модального окна все срабатывает, а без него нет?

Comments

[GavriKos]

Можно узнать — зачем такие извращения? Почему нельзя и библиотеку написать на c#?

Answer 1

[korvindest]

С модальным окном все понятно, пока оно у вас хоть сколько нибудь висит, объект успевает синхронизироваться и уже отправляется в C# целиком.

Решать это задержкой не вариант, но для теста можете попробовать поставить просто большой wait (или Delay, не помню уже как в делфи называется).

Вы должны убедится, что в момент передачи управления в C# объект в памяти уже содержит то что вы передаете.

Это конечно все предположения, но думаю, что так оно и есть.

Comments

[mastersoftna]

Поставил Sleep в 5 сек. в функцию перед возвратом HBitmap. Вообще рисовать перестал. Непонимаю.

[GavriKos]

Надо так же разделить функции загрузки битмапа и выдачи его из библиотеки. И между вызовами этой функции основным приложением вставить Sleep

Answer 2

[GavriKos]

Можете попробовать такую механику — при вызове функции библиотеки в нее предаете колбек. Когда библиотека точно отрисует картинку (надеюсь, это можно проверить) — она вызовет колбек основного приложения.

Comments

[GavriKos]

Ну и по колбеку приходят данные и отображаются вашим приложением ;-)

[mastersoftna]

А можно подробнее про callback. Ну пример, как это реализовать.

[GavriKos]

Погуглите на тему «указатель на функцию». Но такой метод небезопасен с т.з. c#. Можете также посмотреть, какие механизмы c# и .net может использовать для получения уведомлений извне (может можно использовать сообщения)

[mastersoftna]

Дело в том, что библиотека написана давно на Delphi, она рисует сложные векторные объекты и там тысячи строк кода. Наши партнеры в Британии хотят использовать нашу библиотеку, они используют Clarion. Мы хотели проверить как она будет работать. Для испытаний выбрали C# и вот такие пироги. Возможно, что у наших партнеров все будет нормально с отрисовкой. Но проблема есть и ее хочется решить. Спасибо всем за советы, буду разбираться дальше. Кармы мало — плюсовать не могу.

Answer 3

[shsweb]

Попробуйте вместо вызова модального окна:

for i:=0 to 100 do Application.ProcessMessages;