где хранятся данные при работе с dll ?

[alextrof94]

А почему бы не заюзать более свежие дельфи, от Embracadero? Там и компоненты посвежее, и совместимости все сразу есть с новыми виндами. ХЕ2 ломается без проблем.

[xrob]

Аватар, ваш способ не проканал:
битмап удаляется после B.ReleaseHandle;
проверял с помощью SaveToFile, запущенных из библиотеки.
до ReleaseHandle сохраняется корректный файл, после - файл пустой.
в проге тот же результат - SaveToFile сохраняет пустой bmp...

Пепел Феникса, никаких проблем ))
специально проверил, все удаляется без ошибок.

А почему бы ...

alextrof94, консервативные черты характера...
к д10 я привык, она мне как родная =)

[alextrof94]

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

alextrof94, консервативные черты характера...
к д10 я привык, она мне как родная =)

Ну если только так, просто не вижу смысла юзать Delphi 7 (2001), когда можно заюзать Delphi XE2 (2012), так же с WinXP|Win7-8, PS CS2 | PS CS5, притом что новые версии уже доказали стабильность и удобность.

[xrob]

alextrof94, найти и скачать - дополнительная заморочка,
все никак руки не дойдут. за совет спасибо =)

такс, друзья, а если передать в dll указатель на массив,
функция в dll его заполнит - где он тогда будет лежать?

ну полюбому же в проге, как нет то?
я же передаю не объект какой-нибудь, а указатель на ячейку памяти!
и это указатель на ячейку памяти, находящейся в программе, а не в библиотеке.
да и не важно вообще, где эта память находится!
какая бы функция его ни получила, и где бы она ни находилась - при разыменовании указателя
работать она будет именно с той ячейкой, на которую ссылается указатель, правильно?

[Sibedir]

Ну вот как-то так вроде заработало

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtDlgs, Vcl.ExtCtrls,
  Vcl.StdCtrls;

type
  TLoadJPGFromFileProc = procedure (B: TBitmap; Path: PChar);  stdcall;

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  DLLHandle: THandle;
  LoadJPGFromFile: TLoadJPGFromFileProc;
  BMP: TBitmap;
  FN: PChar;
begin
  if OpenDialog1.Execute then begin
    DLLHandle := LoadLibrary ('LoadJPEG.dll');
    try
      if DLLHandle <> 0 then begin
        @LoadJPGFromFile := GetProcAddress (DLLHandle, 'LoadJPGFromFile');
        if Addr (LoadJPGFromFile) <> nil then begin
          FN := PChar (OpenDialog1.FileName);
          BMP := TBitmap.Create;
          LoadJPGFromFile (BMP, FN);
          Image1.Picture.Bitmap := BMP;
        end;
      end;
    finally
      FreeLibrary (DLLHandle);
    end;
  end;
end;

end.

library LoadJPEG;

uses
  SysUtils, Classes, Types, Vcl.Graphics, Vcl.Imaging.jpeg;

procedure LoadJPGFromFile(B: TBitmap; Path: PChar);  stdcall;
var
  _JPG: TJPEGImage;
  _BMP: TBitmap;
  r: TRect;
begin
  if FileExists(Path) then begin
    _JPG := TJPEGImage.Create;
    _BMP := TBitmap.Create;

    _JPG.LoadFromFile(Path);
    _BMP.Assign (_JPG);

    B.Width  := _JPG.Width ;
    B.Height := _JPG.Height;
    r := Rect (0, 0, B.Width, B.Height);
    B.Canvas.CopyRect (r, _BMP.Canvas, r);

    _JPG.Free;
    _BMP.Free;
  end;
end;

exports LoadJPGFromFile;

begin
end.

Т.е. смысл, я так понял, в том, что-бы рисовать средствами уже готовой канвы, а не создавать новую. API меняет данные там, где и хранится эта канва.

[Аватар]

Да, сглупил в посте #8. Стоит так попробовать. Работает, но для dll не проверял

procedure LoadJPGFromFile(out pHBitmap: HBITMAP; Path:PChar);  stdcall;
var J:TJPEGImage;
    B: TBitmap;
begin
  J:=TJPEGImage.Create;
  J.LoadFromFile(Path);
  B:=TBitmap.Create;
  B.Assign(J);
  pHBitmap:=B.ReleaseHandle;
  B.Free;
  J.Free;
end;

Обращение

var xHBitmap: HBITMAP;
    Bitmap: TBitmap;

  LoadJPGFromFile(xHBitmap,'d:\MyPicture.jpg');
  Bitmap:=TBitmap.Create;
  Bitmap.Handle:=xHBitmap;
  Image1.Picture.Bitmap.Assign(Bitmap);
  Bitmap.Free;

[xrob]

Господа, всем спасибо, решил проблему сам.
Простенькая длл-ка эволюционировала в небольшой сервер.

загрузка jpg в программе осуществляется в 3 этапа:

1. запускаем функцию длл CreateAndLoad(Path, var Width,Height):handle;
она создает TJPEGImage, загружает файл, возвращает размеры изображения и хендл объекта - простой интегер

2. создаем в программе битмап и array of byte. длину массива ставим Width*Height*3 - (кол-во px * 3 цвета)
просим длл заполнить этот массив ScanLine'ми изображения (передаем указатель на первую ячейку и handle изображения)

3. переписываем байты массива в ScanLine'ы битмапа - все! изображение загружено
остается только удалить созданный в длл TJPEGImage, для этого делаем соотв. запрос, передавая handle,
полученный в 1 этапе.

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

Я создал TJPEGImage = class(TBitmap), в котором в процедуре LoadFromFile реализовано то, что описано выше.
Эта система прошла свое боевое крещение и прекрасно себя показала!
никаких ошибок, программа работает на ура.

Дайте мне медаль! И можно мне вон тот пирожок с полки?
p.s.: только что пришел домой с вечеринки по случаю моей
грандиозной победы над таким скользким явлением как TJPEGImage

[eval]

я таки как и некоторы тут никак не могу понять - нафига тут длл ?