Посылаем адресс компонента в dll

[Altera]

procedure proc(p: pointer); stdCall;
begin
   tImage(p^).Picture.LoadFromFile('d:\documents\atom.bmp');
end;

Картинка загружаеться норм. Но после завершения работы проги появляеться ошибка...

[alexBlack]

У меня отрабатывает нормально.
Вот мой проект. Может у Вас в другом месте ошибка ?

[Altera]

Приведите свой, exe и dll... Спасибо!

[Altera]

Пашет....
По чему надо писать:
P2 := TPicture.Create;
P2.free;Разве нельзя это как то подругому сделать?

И на кой вообще нужен модулю shareMem?
Дайте кто нить нормальный пример с обяснением...
Благодапрю заранее...

[alexBlack]

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

Пашет....
По чему надо писать:
P2 := TPicture.Create;
P2.free;Разве нельзя это как то подругому сделать?

Про P2 я объяснил на предыдущей странице - пост #10.

По другому:
- внести изменения и перекомпилировать Graphics.

- создавать image1:TImage в самой dll и получать указатель на нее оттуда

- м.б. есть еще варианты. Мне пока в голову ничего не приходит.

А чем не нравится P2. Оформите это красиво и все:

procedure initGraphics;
var P2:...
begin
    P2 := TImage.Create ...
    P2.free
end;

begin
    initGraphics;
end.

[Altera]

Когда твой компилю, всё OK! Но когда свой в точно сти пишу, ошибка на ошибке....

Мне не нравиться этот способ инициализации...!!!
У когото ещё получаеться тоже самое?

[Altera]

Люди, я просто удивляюсь, как что-то серьёзное, так все молчат...
Что, и правдо никто не знает?

[BOBAH13]

разве это серьезное P.s. мои вопросы последнии не видел. А тема эта уже проезденная до ужаса. А дело в том, что VCL ( а именно передача указателя на объект в тело dll ) это и вся проблема. От нее не уйти, решение делать придеться, другими путями. http://programmersforum.ru/showthrea...4759&page=3#23

[alexBlack]

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

Когда твой компилю, всё OK! Но когда свой в точно сти пишу, ошибка на ошибке....

Может все-таки покажете код ?

[Altera]

procedure Ttest_form2.Button1Click(Sender: TObject);
begin
   proc('d:\documents\atom.bmp', @image1);
   //t.chengeText('Привет мир!!!');
end;

..........

library dll;

uses
  forms, Classes, dialogs, sysUtils, extCtrls, controls, stdCtrls;

{$R *.res}
type
   testing = class
   protected
   fComp: tImage;
   published
   constructor create;
   procedure setValue(value: pChar);
   property comp: tImage read fComp write fComp;
end;
var
t: testing;
procedure kote(text: pChar; comp: pointer); stdCall;
begin
   t := testing.create;
   t.Comp := tImage(comp^);
   t.setValue(text);
   t.Free;
end;

exports kote;

{ testing }

constructor testing.create;
begin
   fComp := tImage.create(application);
end;


procedure testing.setValue(value: pChar);
begin
   fComp.Picture.LoadFromFile(strPas(value));
end;

begin
end.