Подробности к DLL->Form->DLL часть2

← →
Bor (2002-08-02 08:16) [0]

{----------------------------------------------------------------------------------}
// Установка ссылок на вспомогательные функции
procedure TFormArh.SetDummyInitFunctions(var Z:TZipUserFunctions);
begin
{ prepare ZipUserFunctions structure }
with Z do
begin
@Print := @DummyPrint;
@Comment := @DummyComment;
@Password := @DummyPassword;
@Service := @DummyService;
end;
{ send it to dll }
// ===!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ZpInit(Z); //ЗДЕСЬ ВЫЛЕТАЕТ ОШИБКА, до этого момента
//все работает - форма создается, кнопочка жмется :))
// ===!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
//ПОЧЕМУ???
//Если вместо VfpShell.Dll форму вызывать из ехе-ка все работает
end;

{----------------------------------------------------------------------------------}
function DummyPrint(Buffer: PChar; Size: ULONG): integer;
begin
FormArh.Memo.Lines.Add("print> "+StrPas(Buffer));
Result := size;
end;
{----------------------------------------------------------------------------------}
function DummyPassword(P: PChar; N: Integer; M, Name: PChar): integer;
begin
Result := 1;
end;
{----------------------------------------------------------------------------------}
function DummyComment(Buffer: PChar): PChar;
begin
//Form1.Memo.Lines.Add("comment> "+StrPas(Buffer));
Result := buffer;
end;
{----------------------------------------------------------------------------------}
function DummyService(Buffer: PChar; Size: ULONG): integer;
begin
//Form1.Memo.Lines.Add("service> "+StrPas(Buffer));
Result := 0;
end;
{----------------------------------------------------------------------------------}
{задание параметров сжатия}
procedure TformArh.Set_ZipDllOptions;
var
ZipOptions : TZPOpt;
begin
ZipOptions.Date := nil;
ZipOptions.szRootDir := nil;
ZipOptions.szTempDir := nil;
ZipOptions.fSuffix := false;
ZipOptions.fEncrypt := false;
ZipOptions.fSystem := true;
ZipOptions.fVolume := false;
ZipOptions.fExtra := false;
ZipOptions.fNoDirEntries := false;
ZipOptions.fExcludeDate := false;
ZipOptions.fIncludeDate := false;
ZipOptions.fVerbose := false;
ZipOptions.fQuiet := false;
ZipOptions.fCRLF_LF := false;
ZipOptions.fLF_CRLF := false;
ZipOptions.fJunkDir := false;
ZipOptions.fGrow := true;
ZipOptions.fForce := false;
ZipOptions.fMove := false;
ZipOptions.fDeleteEntries := false;
ZipOptions.fUpdate := false;
ZipOptions.fFreshen := false;
ZipOptions.fJunkSFX := false;
ZipOptions.fLatestTime := false;
ZipOptions.fComment := false;
ZipOptions.fOffsets := false;
ZipOptions.fPrivilege := false;
ZipOptions.fEncryption := false;
ZipOptions.fRecurse := 1;
ZipOptions.fRepair := 0;
ZipOptions.fLevel := "9";
{ send the options to the dll }
if not ZpSetOptions(ZipOptions) then ShowMessage("Error setting Zip Options");
end;

{ event handlers }
{----------------------------------------------------------------------------------}

procedure TformArh.Button1Click(Sender: TObject);
begin
Memo.Lines.Clear;
Set_ZipDllOptions;
ListBox1.Items.Add("c:\temp\1.txt");
ListBox1.Items.Add("c:\temp\2.txt");
ListBox1.Items.Add("c:\temp\3.txt");
ZipFiles("c:\mytest.zip", ListBox1.Items);
end;

end.

← →
Bor (2002-08-02 15:13) [1]

У мастеров соображений по этому поводе нет?????

Подробности к DLL->Form->DLL часть2 Найти похожие ветки