Witam, chciałem dołączyć plik z zasobami do DLL;ki i pozniej w programi korzystać z tych zasobów, niestety nie obyło się bez problemów. Czytałem artykuły na stronie, ale nadal nie chce sięm kompilowć mój program, który ma postać taką
unit frmMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
lbl1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
DLL:THandle;
Buff:array[1..255] of PAnsiChar;
begin
DLL := LoadLibrary('ZasobyDLL.dll');
LoadString(DLL, 101, Buff, SizeOf(Buff));
lbl1.Caption := Buff;
FreeLibrary(DLL);
end;
end.
DLL-ka wygląda tak
```delphi
library ZasobyDLL;
{$R 'Tekst.res' 'Tekst.rc'}
uses
SysUtils,
Classes;
begin
end.
No i pliczek z zasobami
STRINGTABLE
BEGIN
101, "Marek"
102, "Łotocki"
END
Otrzymuje komunikat:
Incompatible types: Array and PAnsiChar
Incompatible types: String and Array
Dodam jeszcze że parcuje na Delphi 2005 Personal