من تابع گرفتن حجم فایل رو تو سورس پلاگین جای دادم حالا نمیدونم چطور براش تعریف کنم که آدرس فایل رو از PluginSet بگیره و بعد از گرفتن حجم چطور به PluginGet بده شرمنده اگه امکان داره برام کدش رو ویرایش کنید میدونم که یک مدت باید با دلفی کار کنم و با نحوه کارش آشنا بشم بعد راحت خودم درستش کنم ولی برای یک کارم که پیاده کردن یک الگوریتم هست نیاز به پلاگین دارم و کسی رو هم نتونستم برای ساختش پیدا کنم و فعلا که مشکل من همین قسمته ممنون میشم کمکم کنید با تشکر
unit PluginInterface;
interface
uses Windows, Messages, SysUtils, PluginInfo;
type
TPluginMode = (pmDesigner, pmRuntime);
var
hMMBWindow: Cardinal;
PluginMode: TPluginMode;
AppDir: string;
SR: TSearchRec;
TextInput: array [1..5] of string;
TextOutput: string;
NumInput: array [1..5] of Integer;
NumOutput: Integer;
EventKeys: string;
implementation
function Copyright: pChar; cdecl;
begin
Result := pChar(PluginCopyright);
end;
function GetShortInfo: pChar; cdecl;
begin
Result := pChar(PluginShortInformation);
end;
function GetInfo: pChar; cdecl;
begin
Result := pChar(PluginInformation);
end;
function GetType: Integer; cdecl;
begin
Result := 0;
end;
procedure SetPath(sPath: pChar); cdecl;
begin
AppDir := sPath;
end;
procedure SetFile(s: pChar); cdecl;
begin
TextInput[5] := TextInput[4];
TextInput[4] := TextInput[3];
TextInput[3] := TextInput[2];
TextInput[2] := TextInput[1];
TextInput[1] := s;
end;
function GetFile: pChar; cdecl;
begin
Result := pChar(TextOutput);
end;
procedure SetData(nData: Integer); cdecl;
begin
NumInput[5] := NumInput[4];
NumInput[4] := NumInput[3];
NumInput[3] := NumInput[2];
NumInput[2] := NumInput[1];
NumInput[1] := nData;
end;
function GetData: Integer; cdecl;
begin
Result := NumOutput;
end;
function MyFileSize(const FileName: String): Int64; cdecl;
begin
if FindFirst(FileName, faAnyFile, SR)=0 then
repeat
Result:= SR.Size;
until (FindNext(SR)<> 0);
FindClose(SR);
end;
exports
Copyright,
GetShortInfo,
GetInfo,
GetType,
SetPath,
SetFile,
GetFile,
SetData,
GetData,
MyFileSize;
end.