mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-29 12:32:14 -05:00
125 lines
3.2 KiB
PHP
125 lines
3.2 KiB
PHP
{
|
|
This file is part of the Mufasa Macro Library (MML)
|
|
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
|
|
|
|
MML is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
MML is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with MML. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
See the file COPYING, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
extensions.inc for the Mufasa Macro Library
|
|
}
|
|
|
|
type
|
|
TStringArray = array of string;
|
|
function ext_UnTar(const Input : string; var Content : TStringArray) : boolean;
|
|
var
|
|
Stream : TStringStream;
|
|
begin
|
|
result := false;
|
|
try
|
|
Stream := TStringStream.Create(Input);
|
|
content := UnTar(Stream);
|
|
result := (length(content) > 0);
|
|
finally
|
|
stream.free;
|
|
end;
|
|
end;
|
|
|
|
function ext_UnTarEx(const Input : string;const outputdir : string; overwrite : boolean): boolean;
|
|
var
|
|
Stream : TStringStream;
|
|
Untarrer : TUntarThread;
|
|
begin
|
|
result := false;
|
|
try
|
|
Stream := TStringStream.Create(Input);
|
|
Untarrer := TUntarThread.Create(stream,outputdir,overwrite);
|
|
Untarrer.Resume;
|
|
while Untarrer.Finished = false do
|
|
begin
|
|
Application.ProcessMessages;
|
|
sleep(25);
|
|
end;
|
|
result := Untarrer.Result;
|
|
finally
|
|
Untarrer.Free;
|
|
stream.free;
|
|
end;
|
|
end;
|
|
function ext_DecompressBZip2(const input: string;var output : string; const BlockSize: Cardinal): boolean;
|
|
var
|
|
Stream : TStringStream;
|
|
Decompress : TDecompressThread;
|
|
MS : TMemoryStream;
|
|
begin
|
|
result := false;
|
|
try
|
|
Stream := TStringStream.Create(Input);
|
|
Decompress := TDecompressThread.Create(Stream);
|
|
Decompress.Resume;
|
|
while Decompress.Finished = false do
|
|
begin
|
|
Application.ProcessMessages;
|
|
sleep(25);
|
|
end;
|
|
ms := Decompress.Result;
|
|
if ms.size > 0 then
|
|
begin
|
|
ms.Position:= 0;
|
|
SetLength(output,ms.Size);
|
|
MS.Read(output[1],MS.size);
|
|
result := true;
|
|
end;
|
|
ms.free;
|
|
finally
|
|
stream.free;
|
|
Decompress.Free;
|
|
end;
|
|
end;
|
|
|
|
function ext_GetPage(const url : string) : string;
|
|
var
|
|
t: TDownloadThread;
|
|
begin
|
|
result := '';
|
|
try
|
|
t := TDownloadThread.Create(url,@result);
|
|
t.Resume;
|
|
while not t.done do
|
|
begin
|
|
Application.ProcessMessages;
|
|
Sleep(25);
|
|
end;
|
|
except
|
|
on e : exception do
|
|
mDebugLn('Exception in GetPage in Extensions: ' + e.message);
|
|
end;
|
|
end;
|
|
|
|
function ext_MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType;Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
|
|
begin
|
|
result := MessageDlg(acaption,amsg,dlgtype,buttons,helpctx);
|
|
end;
|
|
|
|
function ext_SDTMToMDTM(Const DTM: TSDTM): TMDTM;
|
|
begin
|
|
result := SDTMToMDTM(DTM);
|
|
end;
|
|
|
|
function ext_InputQuery(const ACaption, APrompt : String; var Value : String) : Boolean;
|
|
begin
|
|
result := InputQuery(acaption,aprompt,value);
|
|
end;
|