☆IdTCPClientのOpenWriteBuffer

Indy9のIdTCPClient.OpenWriteBufferがIndy10でエラーになりましたので、次のように書き換えました。

 //Indy9
  I := Stream1.Size;
  FIdTCPClient.OpenWriteBuffer;
  FIdTCPClient.WriteBuffer(Stream1.Memory^, I);
  FIdTCPClient.CloseWriteBuffer;

        
 //Indy10
  FIdTCPClient.IOHandler.WriteBufferOpen;
  FIdTCPClient.IOHandler.Write(Stream1);
  FIdTCPClient.IOHandler.WriteBufferClose;
別に名称まで変える必要ないと思うんだけど・・・。

|

☆IdFTPでファイル名取得

[Delphi7]

FTPサーバーのファイル名を取得する必要があったので、Indyを使ってプログラムしてみました。フォームにButton、Memo、IdFTP、IdAntiFreeze1を貼り付けます。

procedure TForm1.Button1Click(Sender: TObject);
var
 SL: TStringList;
 I: Integer;
 S1, S2: String;
begin
 IdFTP1.Host     := 'ホスト';
 IdFTP1.Username := 'ユーザー名';
 IdFTP1.Password := 'パスワード';
 IdFTP1.Connect;
 SL:= TStringList.Create;
 try
  IdFTP1.ChangeDir('フォルダ名');
  IdFTP1.List(SL);
  for I := 0 to IdFTP1.DirectoryListing.Count -1 do
  begin
   S1 := IdFTP1.DirectoryListing.Items[I].FileName;  //ファイル名
   S2 := DateTimeToStr(
    IdFTP1.DirectoryListing.Items[I].ModifiedDate); //日付
   Memo1.Lines.Add(S1+ #9 + S2);
  end;
 finally
  SL.Free;
  IdFTP1.Quit;
 end;
end;

使っているIndyのバージョンは、9.00.10となっています。

|

その他のカテゴリー

ADO | ADT | API | ArrayList | ASP.NET | BDE | BDP.NET | BdpConnection | Borland Developer Studio 2006 | CAPICOM | class | ClipBoard | CodeEditor | Convert.ToString | Custom component | DBExpress | Delphi 2005 | Delphi 2006 | Delphi 2007 | Delphi XE2 | Delphi7 | Delphi8 | Device Driver | Dialog | Docking | DocuWorks | Docuworks SDK | Drag&Drop | Evernote | EXCEL | Firebird | FireMonkey | Game | General | Generics | Google Earth COM API | Google Maps | Google SketchUp | Graphic | IDE | Imm | Indy | InstallAware Express6 | InterBase Admin | JWW | Microsoft SQL Server | MyBase | OnMouseDown | Oracle XE | Paradox | PreviewHandler | PrintDialog | PrintPreviewDialog | PropertyGrid | PSDファイル | Ribbon Controls | RichTextBox | Servers | SubClass | TAction | TActionList | TAnimate | TButton | TCategoryButtons | TClientDataSet | TComboBox | TComboBoxEx | TCustomEdit | TDBGrid | TDockTabSet | TDrawGrid | TEdit | TExcelApplication | TFont | TForm | third party | TImage | TLabel | TList | TListBox | TListView | TMemo | TOpenDialog | TOutlookApplication | TPageControl | TPanel | TRichEdit | TShellResources | TStringGrid | TTabControl | TToolBar | TToolButton | TTreeView | TWebBrowser | Update | VCL Styles | WinInet | XE2 | XPman | オープン配列パラメータ | グループ化 | トランスレーションマネージャー | ファイル処理 | ファイル名処理 | 動的配列 | 投票 | 文字列処理 | 日本語入力 | 暗号 | | 音声合成利用