Динамические библиотеки

[Ericnex]

Как создать мою программу через динамическую библиотеку. Говорят что можно испоьзовать массив символов.
procedure TForm1.Button1Click(Sender: TObject);
Function Tekst(n,k:integer):integer;
var i,h:integer;
begin
if n > 0 then
begin
for i:=1 to 500 do
h := Image1.Canvas.TextHeight('H');
Image1.Canvas.TextOut(0, (k-n)*h*5,IntToStr(k-n+1));
Image1.Canvas.TextOut(0, (k-n)*h*5+h,'Как это было:');
Image1.Canvas.TextOut(0, (k-n)*h*5+2*h,'У попа была собака- он ее любил.');
Image1.Canvas.TextOut(0, (k-n)*h*5+3*h,'Она съела кусок мяса- он её убил.');
Image1.Canvas.TextOut(0, (k-n)*h*5+4*h,'Убил и закопал на могиле написал:');
Image1.Canvas.Font.Size:=Image1.Can vas.Font.Size*2;
end;
end;
var n,h,k:integer;
begin
Try
k := strtoint(Edit1.Text);
Except
exit;
end;
n:=k;
Image1.Canvas.Font.Assign(Font);
Image1.Canvas.Brush.Color := Color;
Image1.Canvas.Brush.Style := bsSolid;
h := Image1.Canvas.TextHeight('H');
Image1.Height:=h*n*5;
Image1.Canvas.FillRect(Rect(0,0,Ima ge1.Width, Image1.Height));
For n:=k DownTo 0 do Tekst(n,k);
end;
end.

end.

[F1Book]

Столкнулся также с проблемой динамических библиотек. Причем на самом первом простом этапе. Итак исходная dll:

PHP код:

library MyDll;
uses
  SysUtils,
  Classes,

function MassNil(a:integer):integer; stdcall;
var i:integer;
begin
   Result:=a+100;
end;

exports MassNil;

begin

end. 


Программа вызывающая ее:

PHP код:

var
  Form1: TForm1;
  MassNil: function(a:integer):integer;
  LibHandle: THandle;
  fd:integer = 1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
  {"Чистим" адрес функции от "грязи"}
  @MassNil := nil;
  {Пытаемся загрузить библиотеку}
  LibHandle := LoadLibrary('MYDLL.DLL');
  {Если все OK}
  if LibHandle >= 32 then begin
    {...то пытаемся получить адрес функции в библиотеке}
    @MassNil := GetProcAddress(LibHandle,'MassNil');
    {Если и здесь все OK}
    if @MassNil <> nil then
      {...то вызываем эту функцию и показываем результат}
      fd:=MassNil(fd);
      ShowMessage('Библиотека загружена'+intToStr(fd));
  end;
  {И не забываем освободить память и выгрузить DLL}
  FreeLibrary(LibHandle);
end; 


Компилирую, вроде все ок, но результат не возвращает, более того после выгрузки библиотеки выдает ошибку .
В чем может быть трабл? Вроде все просто и не пашет !

[eduard93]

Соглашения вызова, в вашем случае stdcall, указываются с обоих сторон.

[F1Book]

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

Соглашения вызова, в вашем случае stdcall, указываются с обоих сторон.

Спасибо помогло . А никто не подскажет как воткнуть dll написанную в Delphi в С++ (Visual Studio 2005). Пробовал проблему решить в лоб - не прокатило, т.е. объявил в С++ как:

PHP код:

#uses 'ИМЯ.dll' 


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