110 lines
3.5 KiB
PHP
110 lines
3.5 KiB
PHP
procedure Lape_CreateFile(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_CreateFile(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_OpenFile(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_OpenFile(Pstring(Params^[0])^, PBoolean(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_RewriteFile(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_RewriteFile(Pstring(Params^[0])^, PBoolean(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_AppendFile(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_AppendFile(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_CloseFile(const Params: PParamArray);
|
|
begin
|
|
ps_CloseFile(PInteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_EndOfFile(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_EndOfFile(PInteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_FileSize(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PLongInt(Result)^ := ps_FileSize(PInteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ReadFileString(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_ReadFileString(PInteger(Params^[0])^, Pstring(Params^[1])^, PInteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_WriteFileString(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_WriteFileString(PInteger(Params^[0])^, Pstring(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_SetFileCharPointer(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_SetFileCharPointer(PInteger(Params^[0])^, PInteger(Params^[1])^, PInteger(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_FilePointerPos(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PInteger(Result)^ := ps_FilePointerPos(PInteger(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_FileExists(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_FileExists(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_DirectoryExists(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_DirectoryExists(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_CreateDirectory(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_CreateDirectory(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_ForceDirectores(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pboolean(Result)^ := ps_ForceDirectores(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_GetFiles(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PStringArray(Result)^ := ps_GetFiles(Pstring(Params^[0])^, Pstring(Params^[1])^);
|
|
end;
|
|
|
|
procedure Lape_GetDirectories(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PStringArray(Result)^ := ps_GetDirectories(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_DeleteFile(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
PBoolean(Result)^ := ps_DeleteFile(Pstring(Params^[0])^);
|
|
end;
|
|
|
|
procedure Lape_WriteINI(const Params: PParamArray);
|
|
begin
|
|
ps_WriteINI(Pstring(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^, Pstring(Params^[3])^);
|
|
end;
|
|
|
|
procedure Lape_ReadINI(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_ReadINI(Pstring(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_DeleteINI(const Params: PParamArray);
|
|
begin
|
|
ps_DeleteINI(Pstring(Params^[0])^, Pstring(Params^[1])^, Pstring(Params^[2])^);
|
|
end;
|
|
|
|
procedure Lape_ExtractFileExt(const Params: PParamArray; const Result: Pointer);
|
|
begin
|
|
Pstring(Result)^ := ps_ExtractFileExt(Pstring(Params^[0])^);
|
|
end;
|