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

名前

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

本文

俺もとても興味があるんですが、
NetShareGetInfo というのは
どのようにコードを書くのでしょうか。

if FileExistTimeOut() then
begin
end else

なんて、かけるコードがあるとすごいうれしいのですが。

ちなみにIndyでpingを打つのはこんな感じ？
確か、IndyのDEMOに付いてきた記憶が。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Caption := IdIcmpClient1.Version;

IdIcmpClient1.ReceiveTimeout := 10;
  IdIcmpClient1.Host := '127.0.0.1';

IdIcmpClient1.Ping;  
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
  Output: String;
begin
  //出力形式は
  //Reply from 192.168.33.5: bytes=32 time<10ms TTL=128
  //Request timed out.
  if AReplyStatus.FromIpAddress = '0.0.0.0' then
  begin
    Output := 'Request timed out.';
  end else
  begin
    Output := '';
    Output := Output + 'Reply from ';
    Output := Output + AReplyStatus.FromIpAddress;
    Output := Output + ': bytes=';
    Output := Output + IntToStr( AReplyStatus.BytesReceived );
    if (AReplyStatus.MsRoundTripTime = 0) then
    begin
      Output := Output + ' time<1';
    end else
    begin
      Output := Output + ' time=';
      Output := Output + IntToStr( AReplyStatus.MsRoundTripTime );
    end;
    Output := Output + ' TTL=';
    Output := Output + IntToStr( AReplyStatus.TimeToLive );

//Output := Output + ' icmp_seq=';
    //Output := Output + AReplyStatus.SequenceId;
  end;

Memo1.Lines.Add(Output);
end;

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

戻る