VPF::Почему? - Форум программистов

W1zArD

Дата 29.4.2006, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3

Проблемка...
Суть в том что в TListView НИЧЕГО не добавляется... Ничего (не считая пустых строк) не пойму вроде ВСЕ правильно!

Вот процедура поиска и проверка dll на валидность...

Код


type
PlugName=function:string;
PlugVersion=function:string;
PlugAuthor=function:string;
PlugDate=function:string;

procedure SearchPlugins;
var
sr:TSearchRec;
Path:string;
lib:THandle;
item:TListItem;
pn:PlugName;
pv:PlugVersion;
pa:PlugAuthor;
pd:PlugDate;
begin
Path:=Edit1.Text+'\';
ListView1.Clear;
if FindFirst(Path+'*.dll',faAnyFile-faDirectory,sr)=0 then
try
repeat
item:=adjustment_.PList.Items.Add;
lib:=LoadLibrary(pchar(sr.Name));
if lib<>0 then begin
item.Caption:=sr.Name;
@pn:=GetProcAddress(lib,'Plugin_Name');
if @pn<>nil then item.SubItems.Add(pn);
@pv:=GetProcAddress(lib,'Plugin_Version');
if @pv<>nil then item.SubItems.Add(pv);
@pa:=GetProcAddress(lib,'Plugin_Author');
if @pa<>nil then item.SubItems.Add(pa);
@pd:=GetProcAddress(lib,'Plugin_Date');
if @pd<>nil then item.SubItems.Add(pd);
end else
FreeLibrary(lib)
until FindNext(sr)<>0;
finally
FindClose(sr);
end;
end;

Вот dll-ка...

Код


library Sample;

uses
  SysUtils;

{$R *.res}

function Plugin_Name:string;stdcall;
begin
result:='Sample Plugin'
end;

function Plugin_Version:string;stdcall;
begin
result:='0.1a'
end;

function Plugin_Author:string;stdcall;
begin
result:='W!z@rD'
end;

function Plugin_Date:string;stdcall;
begin
result:='29.04.06'
end;

exports
Plugin_Name,
Plugin_Version,
Plugin_Author,
Plugin_Date;

begin
end.

Демо

Дата 29.4.2006, 21:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Когда мастером создания DLL пользуешься, комментарии читаешь?

--------------------

Quadr0

Дата 29.4.2006, 23:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 11:06

Poseidon

Дата 2.5.2006, 00:35 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Лучше ShortString вместо String smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

sergejzr

Дата 2.5.2006, 00:35 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 1
Всего: 360

Модератор: Название темы должно отражать ее суть!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »