unit U_SLT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, cxControls, cxContainer, cxEdit, cxImage, IdFTP,
  ShellAPI, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
  dxSkinsDefaultPainters;

type
  TfrmSLT = class(TFrame)
    cxImage1: TcxImage;
    Panel1: TPanel;
    procedure cxImage1DblClick(Sender: TObject);
  private
    CYID, FileName: string;
    { Private declarations }
  public
    procedure Init(fCYID: string; fFileName: string; fPicture: TJpegImage);
    { Public declarations }
  end;

implementation

uses
  U_DataLink;
{$R *.dfm}

procedure TfrmSLT.Init(fCYID: string; fFileName: string; fPicture: TJpegImage);
begin
  CYID := trim(fCYID);
  FileName := trim(fFileName);
  Panel1.Caption := FileName;
  cxImage1.Picture.Assign(fPicture);
end;

procedure TfrmSLT.cxImage1DblClick(Sender: TObject);
var
  IdFTP1: TIdFTP;
  FPath, FFName: string;
  FInt: integer;
begin
  try
    IdFTP1 := TIdFTP.Create(self);
    IdFTP1.Host := PicSvr;
    IdFTP1.Username := 'three';
    IdFTP1.Password := '641010';
    IdFTP1.Connect();
  except
    IdFTP1.Quit;
    IdFTP1.Free;
    Application.MessageBox('�޷����ӵ��ļ������������飡', '��ʾ', MB_ICONWARNING);
    Exit;
  end;
  FPath := 'D:\Right1209\';
  if not DirectoryExists(ExtractFileDir(FPath)) then
    CreateDir(ExtractFileDir(FPath));
  FFName := Trim(FileName);
  FFName := FPath + FFName;
  if FileExists(FFName) then
  begin
    FInt := 1;
  end;
  if FInt <> 1 then
    IdFTP1.Get(UserDataFlag + 'YP\' + FileName, FFName);
  if IdFTP1.Connected then
  begin
    IdFTP1.Quit;
    IdFTP1.Free;
  end;
  ShellExecute(Handle, 'open', PChar(FFName), '', '', SW_SHOWNORMAL);

end;

end.