ネットワークファイルのタイムアウトについて (ID:29648)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

FileExists スレッド化

TFileExistsThread = class(TThread)
  private
    FFileName : String;
    FResult   : Integer;
  protected
    procedure Execute;override;
  published
    property FileName : String read FFilename write FFilename;
    property Result : Integer read FResult write FResult;
  end;

procedure TFileExistsThread.Execute;
begin
    Result := -1;
    if FileExists(FileName) = True then Result := 0 else Result := 1;
    Terminate;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
    FileExistsThread : TFileExistsThread;
    TC : Cardinal;
begin

FileExistsThread := TFileExistsThread.Create(True);
    FileExistsThread.Result := -2;
    FileExistsThread.FreeOnTerminate := False;
    FileExistsThread.FileName := '\\P4-240-1024\AA\AA.TXT';
    FileExistsThread.Resume;

TC := GetTickCount;
    while (FileExistsThread.Terminated = False) and (GetTickCount - TC < 5000) do
    begin
      Application.ProcessMessages;
    end;

case FileExistsThread.Result of
     -1://タイムアウト
      begin
        TerminateThread(FileExistsThread.Handle,0);
      end;
      0://見付かった
      begin
      end;
      1://見付からない
      begin
      end;
    end;
    FileExistsThread.Free;
end;

←解決時は質問者本人がここをチェックしてください。

戻る