unit1.pas

在DELPHI中利用IDFTP控件上传下载数据

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdFTP, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button2: TButton;
    ADOQuery2: TADOQuery;
    Image1: TImage;
    BitBtn1: TBitBtn;
    IdFTP1: TIdFTP;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure IdFTP1AfterClientLogin(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  MS.LoadFromFile('d:\alan.bmp');
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='insert into test(bmp) values(:bmp)';
  ADOQuery1.Parameters.ParamByName('bmp').LoadFromStream(ms,ftBlob);
  ADOQuery1.ExecSQL;
  if ADOQuery1.RowsAffected=1 then
    ShowMessage('ok')
  else ShowMessage('false');
  ms.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  MS1: TMemoryStream;
begin
  MS1 := TMemoryStream.Create;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Text:='select  *  from   test';
  ADOQuery2.Open;
  //MS1.SaveToStream(ADOQuery2.fieldbyname('bmp').);
  TBlobField(ADOQuery2.fieldbyname('bmp')).SaveToStream(ms1);
  MS1.Position:=0;
  image1.Picture.Bitmap.LoadFromStream(ms1);
  //MS1.Free;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

  IdFTP1.Username:='qjh';
  IdFTP1.Password:='';
  IdFTP1.Connect(True,-1);


 


    IdFTP1.Get('su7001.exe','d:\su7001.exe');

end;

procedure TForm1.IdFTP1AfterClientLogin(Sender: TObject);
begin
  ShowMessage('oklogin');
end;

end.