DLL

[W0LF]

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

Dll:

library pic;
uses
  SysUtils,
  Classes,windows;

{$R *.res}
{$R 0.res}
{$R 1.res}
{$R 2.res}
{$R 3.res}
{$R 4.res}
{$R 5.res}
{$R 6.res}
{$R 7.res}
{$R 8.res}
{$R 9.res}
{$R 10.res}
{$R 11.res}
{$R 12.res}

function WindowsDir: string; external 'data.dll';

procedure ExtractRes(ResType, ResName, ResNewName : String);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  Res.Free;
end;

procedure ExtractResFromDLL(s:integer);
begin
ExtractRes('PNG'+inttostr(s), 'PIC',WindowsDir+'\'+inttostr(s)+'.png')

end;

exports ExtractResFromDLL, ExtractRes;
end.

Form1:

procedure ExtractRes(ResType, ResName, ResNewName : String); external 'pic.dll';
procedure ExtractResFromDll(s:integer); external 'pic.dll';

procedure TForm1.N8Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to 12 do begin
ExtractResFromDll(i);
end;
end;

[Пепел Феникса]

для начала прочитать, то что пишшется в комменте чистого модуля
(про тип string)
а если через динамическое подключение?

[W0LF]

подключил динамически, первая картинка выходит с ресурсов, но потом сразу ошипка...

.....'Invalid pointer operation'......

var
  ExtractResFromDLL: procedure(s:integer);
  LibHandle: THandle;
begin
  @ExtractResFromDLL := nil;
  LibHandle := LoadLibrary('pic.dll');
  if LibHandle >= 32 then begin
  @ExtractResFromDLL := GetProcAddress(LibHandle,'ExtractResFromDLL');
   if @ExtractResFromDLL <> nil then begin
   for i:=0 to 12 do begin
  ExtractResFromDll(i);
  end; //после ошипки сразу эта строка выделяеться цветом (у меня синим, но у меня другая расцветка стоит)
  FreeLibrary(LibHandle);
  end;
  end;

[Selestis]

Я не знаю, но может быть это из-за того что у вас в DLL-ке процедура имеет имя "...Dll", а в модуле "...DLL"?.. Попробуйте одинаковое.

[W0LF]

не, в модуле таже самая ...DLL

[Selestis]

@ExtractResFromDLL := GetProcAddress(LibHandle,'ExtractResFromDLL');

Попробуйте убрать собачку.

[uberchel]

А зачем столько гемору ))

Вот Исходник DLL;

library Pic;

uses
  SysUtils,
  Classes, Windows;

{$R *.res}
{$R png.res}

procedure ExtractRes(ResType, ResName, ResNewName : String);
function GetWin: string;
var
 Win: Cardinal;
 Comp: array[0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(Comp,Win);
  Result:= Comp;
end;
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(GetWin +'\'+ResNewName);
  Res.Free;
end;

Вот EXE;

unit Main;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ExtractRes(ResType, ResName, ResNewName : String); external 'pic.dll';
procedure TForm1.btn1Click(Sender: TObject);
 var
 i:integer;
 begin
  for i:=0 to 5 do begin
   ExtractRes('PIC', 'PNG' + IntToStr(i),IntToStr(i) +'.bmp');
  end;
end;
end.

[W0LF]

так это уменя и есть))

уже сделал, проблема была в .... а фиг знает, просто вместо цыкла так все подряд прописал ресурсы, оно их по очереди и выковыряло..

спс всем