Снова после застоя взялся за плагины и столкнулся с тем что при любой команде read write вылетает ошибка.
думал где то в коде ступил все вырезал и оставил в онлоад запись и все равно ошибка
Код:
library plugin;
{$define ShareMM}
{$define AttemptToUseSharedMM}
{$define RELEASE}
uses
FastMM4 in '/fastmm/FastMM4.pas',
FastMM4Messages in '/fastmm/FastMM4Messages.pas',
usharedstructs in '/units/usharedstructs.pas',
SysUtils,
Windows,
dialogs,
Classes,
strutils;
var
min_ver_a: array[0..3] of Byte = ( 3,5,23, 141 );
min_ver: LongWord absolute min_ver_a;
ps: tPluginStruct;
cid: Integer;
function GetPluginInfo(const ver: LongWord): PChar; stdcall;
begin
if ver<min_ver then
Result:='Òåñòîâûé ïëàãèí'+sLineBreak+
'Âåðñèÿ íå êàòèò'
else
Result:='Òåñòîâûé ïëàãèí';
end;
function SetStruct(const struct: PPluginStruct): Boolean; stdcall;
begin
ps := struct^;
Result:=True;
end;
procedure OnLoad; stdcall;
var
buf: string;
begin
ps.WriteS(buf,'qqqqq');
end;
exports
OnLoad,
GetPluginInfo,
SetStruct;
begin
end.