Проблема преобразование jpg в bmp через dll

[inndim]

Здравствуйте всем!
Пытаюсь написать dll которая будет конвертировать jpg в bmp, в delphi эта функция прекрасно работает, а вот экспортировать из dll не получается. Мне нужно чтобы из программы кликнув по кнопке, в dll передавался путь к файлу, а затем там этот jpg файл конвертировался в bmp и функция возвращала бы bitmap который я потом бы мог скопировать в Timage. Вот ниже привожу полностью код dll и самой программы, но увы почему-то не работает Помогите пожалуйста заставить всё это работать, я уже всю голову сломал. Да кстати SaveToClipboardFormat,LoadFromClipb oardFormat мне не подходят.

Dот код dll

library jpgtobmp;

uses
  SysUtils,Classes,jpeg,Graphics;

{$R *.res}
function convertjpgtobmp(p:String; bmp:TBitmap): TBitmap; stdcall;
var
JPEG: TJPEGImage;
begin
    JPEG := TJPEGImage.Create;
    JPEG.LoadFromFile(p);
    Bmp.Assign(JPEG);
    result:=bmp;
    JPEG.Free;
end;
exports convertjpgtobmp;
begin
end.

А вот код моей програмки, из которой я пытаюсь вызвать фунуцию из dll

unit Convert;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
   function convertjpgtobmp(p: string; bmp:TBitmap):TBitmap; stdcall;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Image1: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
function convertjpgtobmp; external 'jpgtobmp.dll';

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
    convertjpgtobmp(opendialog1.FileName,image1.Picture.Bitmap);

end;

Заранее спасибо.

[alexBlack]

И Вам здравствуйте.
Модули VCL, подключаемые к dll имеют свои разделы инициализации, которые выполняются когда dll подгружается к приложению. По сути мы получаем два отдельных набора классов - для приложения и для DLL.
TBitMap.assign проверяет соответствие класса (as) и объект
TJPEGIMage(созданный в dll) отвергается как неопознанный.
Оба объекта должны быть созданы и использоваться или в dll или в приложении.
Лучшее, что Вы можете сделать - вернуть Handle of TBitMap:

function convertjpgtobmp(p:String):THandle; stdcall;
var JPEG: TJPEGImage;
    B:TBitMap;
begin
   B := TBitMap.Create;
   JPEG := TJPEGImage.Create;
   JPEG.LoadFromFile(p);
   B.Assign(JPEG);
   JPEG.Free;
   result := B.Handle;
   //B.free; 
   // Обратите внимание - объект не уничтожаем, чтобы не освободить Handle
   //Поэтому нужно предусмотреть отдельную процедуру для освобождения
end;

В приложении:

function convertjpgtobmp(p:String):THandle; stdcall; external 'jmptobmp.dll';
procedure TForm1.Button1Click(Sender: TObject);
var fileName:String;
    H:THandle;
    B : TBitMap;
begin
   fileName := 'alex.jpg';
   UniqueString(fileName);

   H := convertjpgtobmp(FileName);
   B := TBitMap.Create;
   B.Handle := H;
   Image1.Picture.Bitmap.Assign(B);
   ...
end;

Как видите, решение не очень элегантное.
Проще вообще отказаться от такого подхода и поместить эту функцию в приложение.
-------------------------------
Можно еще попробовать передать Canvas.Handle в dll и отрисовать полученный BitMap на канве.
-------------------------------
И не забывайте uses ShareMem.

[mutabor]

Можно как var параметры передать объект приемник и источник, а что вернет функция уже не важно, можно и процедуру сделать.

з.ы. Тут проблема не в конвертации а в передаче параметров. Так, как я написал, работает 100%.
А вот дельфи строки в DLL передавать не рекомендуется, PChar надо.

Приблизительно так: функция принимает из программы путь к файлу и ссылку на JpegImage, в функции создается локальный битмап, грузиться из файла, копируется (Assign) в тот JpegImage, битмап освобождается. Вернуть функция может результат успешно или нет завершилась.

[alexBlack]

Сообщение от mutabor

Можно как var параметры передать объект приемник и источник, а что вернет функция уже не важно, можно и процедуру сделать.

з.ы. Тут проблема не в конвертации а в передаче параметров. Так, как я написал, работает 100%.
А вот дельфи строки в DLL передавать не рекомендуется, PChar надо.

mutabor, честно говоря не улавливаю Вашу мысль. Что не так с параметрами ? Отбросим пока передачу строк.

Приблизительно так: функция принимает из программы путь к файлу и ссылку на JpegImage, в функции создается локальный битмап, грузиться из файла, копируется (Assign) в тот JpegImage, битмап освобождается. Вернуть функция может результат успешно или нет завершилась.

// exe---------------
var G:TJPEGImage;
begin
   G := TJPEGImage.Create;
   try
      jpeg2bmp_1(G);
   finally
      G.free;
   end;
  ...
// dll----------------
procedure jpeg2bmp_1(G:TJPEGImage);
var B:TBitMap;
begin
   B := TBitMap.Create;
   G.loadFromFile('bulzano.jpg');
   B.Assign(G);
   B.free;
end;

Этот код дает Can't convert TIPEGImage to TBitMap.
Я думаю из-за несоответствия в B.assign при проверке класса (что-то вроде Source is TJPEGImage)

Вот если оба класса созданы в dll или в exe, то assign работает нормально. Например, так:

// exe ------
var G:TJPEGImage;
begin
   G := TJPEGImage.Create;
   try
      jpeg2bmp(image1.Picture.BitMap, G);
   finally
      G.free;
   end;
   ...
// dll--------
procedure jpeg2bmp(B:TBitMap; G:TJPEGImage);
begin
   G.loadFromFile('bulzano.jpg');
   B.Assign(G);
end;

Достаточно передать классовую ссылку и можно создавать объект в dll.
Например, так:

// exe--------
type TJPEGImageClass = class of TJPEGImage;
   procedure jpeg2bmp_2(B:TBitMap; C:TJPEGImageClass); external 'dll.dll' name 'jpeg2bmp_2';
   jpeg2bmp_2(image1.Picture.BitMap, TJPEGImage);
// dll---------
type
   TJPEGImageClass = class of TJPEGImage;
procedure jpeg2bmp_2(B:TBitMap; C:TJPEGImageClass);
var G:TJPEGImage;
begin
   G := C.Create;
   try
      G.loadFromFile('bulzano.jpg');
      B.Assign(G);
   finally
      G.free;
   end;
end;

[mutabor]

mutabor, честно говоря не улавливаю Вашу мысль. Что не так с параметрами ? Отбросим пока передачу строк.

Пардон, неясно выразился, тема называется "Проблема преобразование jpg в bmp через dll", вот я и говорю проблема тут не в преобразовании, а как лучше параметры в dll передать.

[inndim]

Спасибо всем за ответы, теперь примерно всё понял.