Delphi TZipMaster - Find 메서드를 사용하는 방법?

Question

Delphi XE를 사용하여, TZipMaster 1.91 (최신)

찾기 기능에 전달 된 FSpec arg와 일치하는 첫 번째 파일 이름의 파일 이름을 가져 오려고합니다. 그러나이 함수를 호출 할 때 액세스 위반이 발생합니다.

var 
    DBBakFl : String; 
    d : Integer; 
    begin 
    ZipMaster191.ZipFileName := 'myzip.zip'; 

    try 
     DBBakFl := ZipMaster191.Find('*.FBK', d).FileName; 
    except 
     raise Exception.Create('Find raised an exception'); 
    end; 

도움을 주시면 감사하겠습니다.

편집 : 구성 요소 작성자 인 러셀 피터스 (Russell Peters)의 이메일에서 거의 즉각적인 답변을 받았습니다. 내 대답보기.

Answer 1

:

나는 당신이 AV를 얻을 놀라게하고 있지 않다

var 
    Idx: Integer; 
    Entry: TZMDirEntry; 
    DBBakFl : String; 
begin 
try 
    Idx := -1; // search from beginning, starts at Idx + 1 
    Index := ZipMaster191.Find('*.FBK', Idx); 
    if Index <> nil then 
     DBBakFl := Index .FileName; 
except 
    raise Exception.Create('Find raised an exception'); 
end; 

OR 
var 
    Idx: Integer; 
    DBBakFl : String; 
begin 
try 
    Idx := -1; // search from beginning, starts at Idx + 1 
    if ZipMaster191.Find('*.FBK', Idx) <> nil then 
     DBBakFl := ZipMaster191[Idx].FileName; 
except 
    raise Exception.Create('Find raised an exception'); 
end; 

OR 

var 
    Idx: Integer; 
    DBBakFl : String; 
begin 
try 
    Idx := -1; // search from beginning, starts at Idx + 1 
    ZipMaster191.Find('*.FBK', Idx) ; 
    if Idx >= 0 then 
     DBBakFl := ZipMaster191[Idx].FileName; 
except 
    raise Exception.Create('Find raised an exception'); 
end; 

In a loop it is easy 

Idx := -1; 
while ZipMaster191.Find('*.FBK', Idx) <> nil do 
begin 
     DBBakFl := ZipMaster191[Idx].FileName; 

러셀 피터

Answer 2

찾기 호출이 실패하면 유효한 TZMDirEntry 인스턴스가 반환되지 않으므로 FileName 속성에 액세스 할 수 없습니다.

찾기 결과를 변수에 할당하고 해당 속성이나 메서드에 액세스하기 전에 유효성을 검사하십시오. 어쩌면 이런 식으로. 문서에서는 TZMDirEntry가 추상 클래스임을 보여 주므로 대신 자손 클래스를 사용해야 할 수도 있습니다. 같은 시도

var 
    DBBakFl : String; 
    d : Integer; 
    lDirEntry: TZMDirEntry; 
    begin 
    ZipMaster191.ZipFileName := 'myzip.zip'; 

    lDirEntry := ZipMaster191.Find('*.FBK', d); 
    if Assigned(lDirEntry) then 
     DBBakFl := lDirEntry.FileName 
    else 
     ShowMessage('file not found'); 

Answer 3

: 효과적으로 노력하고있는 것을 발견으로

var 
    DBBakFl : String; 
    d : Integer; 
    DirEntry: TZMDirEntry; 
begin 
    ZipMaster191.ZipFileName := 'myzip.zip'; 

    DirEntry := ZipMaster191.Find('*.FBK', d); 
    if Assigned(DirEntry) then 
    begin 
    DBBakF1 := DirEntry.FileName; 
    .... 
    end; 

이 실패는 전무 TZMDirEntry에서 파일 이름을 얻는 것입니다. 기본적으로 동일하게 : 나는 이메일 구성 요소의 저자 중 한, 러셀 피터스에서 거의 즉각적인 대답을 얻었다 전송

var 
    DBBakFl : String; 
    DirEntry: TZMDirEntry; 
begin 

    DirEntry := nil; 
    DBBakF1 := DirEntry.FileName; 
end;