TClientSocketのリファレンスは？ (ID:1562)

名前

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

本文 うーん…。 いろいろやってみたのですけど、途中で応答がかえらなくなってしまいます。 var hFile : HINTERNET; Buffer : PChar; request,abled,finished: Cardinal; Cancel : Boolean; begin finished := 0; Cancel := False; // ファイルを開く hFile := FtpOpenFile(hHost,PChar(RemoteFile),GENERIC_WRITE, IfThen(AsciiMode,FTP_TRANSFER_TYPE_ASCII,FTP_TRANSFER_TYPE_BINARY),0); try repeat InternetQueryDataAvailable(hFile,request,0,0); Buffer := GetMemory(request);// バッファの準備 Stream.ReadBuffer(Buffer[0],request);// 書き込みの準備 // 書き込み if not InternetWriteFile(hFile,Buffer,request + 1,abled) then raise EWinInetError.Create('アップロード中にエラーが発生しました。'); Application.ProcessMessages;Sleep(0); Inc(finished,abled); if Assigned(mOnUploading) then OnUploading(Self,RemoteFile,Stream.Size,finished,abled,Cancel); until (abled = 0) or Cancel; finally FreeMemory(Buffer); InternetCloseHandle(hFile); end; end; よければご教授お願いします。