из .exe TBitMap передать в DLL(форма)

[lexaltd]

У меня есть .exe(программа моя) в ней создаётся TBitMap , и мне надо этот TBitMap передать DLL(в DLLке находится форма ,для работы с TBitMap(это моя DLL))
Можно конечно сохранять в файл TBitMap и потом читать из DLL, но хочется без файлов
Вопросы:
1.)Можно ли передать из .exe TBitMap в DLL(форма) , если да то как , если можно поподробней
2.)Если через файл , то не потеряется ли качество после сохранения и чтения из файла , будет сохраняться в .BMP

Зарание спасибо за ответы

[BaronTreep]

Может попробывать передавать сразу указатель на картинку, только осторожно, чтобы "переполнения" не вышло.

[Stilet]

Ну сделай в ДЛЛ процедуру с параметром типа TBitMap

[lexaltd]

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

Ну сделай в ДЛЛ процедуру с параметром типа TBitMap

Так как передать этот параметр типа TBitMap в ДЛЛ процедуру из .exe ???
Если можно с примером , я что то не как не могу догнать

[Neeter]

Похоже вы не знаете, что значит параметр:

procedure MyProcedure(Param1: integer; Param2: string; var Param3: TBitmap);

Понятно?
И передавать тоже просто:

MyProcedure(10, 'asdf', b);

где b - TBitmap

[MalCer]

Вот как из ресурсов загрузить bmp в DLL:

library Project1;
uses
  Windows, Graphics;
procedure DrawBMP (Handle : THandle); export; stdcall;
var
  wrkBitmap : TBitmap;
  wrkCanvas : TCanvas;
begin
  wrkBitmap := TBitmap.Create;
  wrkCanvas := TCanvas.Create;
  try  
    wrkBitmap.LoadFromResourceName (HInstance, 'BMP1');
    wrkCanvas.Handle := Handle;
    wrkCanvas.Draw(0, 0, wrkBitmap);
  finally
    wrkCanvas.Free;
    wrkBitmap.Free;
  end;
end;
exports
  DrawBMP;
{$R DLLRes.res}  // подключение файлов ресурсов
begin 
end.

[lexaltd]

Вы не поверете я знал , что значит параметр
Вопрос не втом , может я не понятно написал

Например
Это в .exe

procedure TForm1.BitBtn1Click(Sender: TObject);
var
BitMap : TBitMap;
begin
 BitMap := TBitMap.Create;
 ShowDLL;// открывает форму в DLL
end;

Это в .DLL

procedure TForm1.FormShow(Sender: TObject);
begin
 // Это событие происходит при открытии формы из DLL
 // и как суда передать BitMap из .exe
end;

Или вы имели введу типа такого ShowDLL(BitMap : TBitMap);// открывает форму в DLL

[Stilet]

Я пожалуй подробнее распишу:
Вот ДЛЛ с процедурой, работающей с битмапом:

library Project1;

uses
  Graphics,
  SysUtils,
  Classes;

{$R *.res}
  procedure tb(b:TBitmap);
  begin
   if b<>nil then b.FreeImage;
  end;

  exports tb;
begin
end.

А вот так вызывать:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   procedure tb(b:TBitmap); external 'Project1.dll';
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  tb(Image1.Picture.Bitmap);
end;

end.

[lexaltd]

Спасибо всем, получилось
Только почему - то не работает процедура Assign , вываливается ошибка

Cannot assign a TBitmap to a TBitmap.

Эта функция в ДЛЛ для открытия формы в ДЛЛ

function ShowAbout(Handle: THandle;BitMap : TBitMap):Longint;
begin
 Application.Handle:= Handle;
 Form1:= TForm1.Create(Application);
 Form1.Image1.Picture.Bitmap.Assign(BitMap);// тут вываливается ошибка 
 Form1.Show;
 Result:=LongInt(Form1);
end;

Пришлось сделать так

function ShowAbout(Handle: THandle;BitMap : TBitMap):Longint;
begin
  Application.Handle:= Handle;
  Form1:= TForm1.Create(Application);
  BitMap1 := TBitMap.Create;
  BitMap1.Width := BitMap.Width;
  BitMap1.Height := BitMap.Height;
  BitMap1.Canvas.Draw(0,0,BitMap);
  Form1.Image1.Picture.Bitmap.Assign(BitMap1);
  Form1.Show;
  Result:=LongInt(Form1);
end;

Можете объяснить почему не работает процедура Assign

[Stilet]

Возможно нужно передавать var параметр:

function ShowAbout(Handle: THandle;var BitMap : TBitMap):Longint;

Однако, не пробовал.
И кстати, почему не попробовать обычным присваиванием?