unit U_SLT1;

interface

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

type
  TfrmSLT1 = class(TFrame)
    cxImage1: TcxImage;
    Panel1: TPanel;
    procedure cxImage1Click(Sender: TObject);
    procedure cxImage1DblClick(Sender: TObject);
  private
    CYID, FileName, Url: string;
  //   procedure Sharpen(SrcBmp:TBitmap);
    { Private declarations }
  public
    procedure Init(fCYID: string; fFileName: string; fPicture: TJpegImage; FUrl: string);
    { Public declarations }
  end;

implementation

uses
  U_DataLink;
{$R *.dfm}

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

procedure TfrmSLT1.cxImage1Click(Sender: TObject);
begin
 // Fsplcode:=splcode;
 // FPatFile:=patfile;
///  frmSample_List.Fsplcode:=splcode;
///  frmSample_List.FPatFile:=patfile;
//  showmessage(splcode);
end;

procedure TfrmSLT1.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('YP\'+FileName,FFName);
//  if IdFTP1.Connected then
//  begin
//    IdFTP1.Quit;
//    IdFTP1.Free;
//  end;
//  ShellExecute(Handle, 'open',PChar(FFName),'', '', SW_SHOWNORMAL);
//  ShellExecute(Handle, 'open', 'Explorer.exe', Url, nil, SW_SHOWNORMAL);

  ShellExecute(Handle, 'open', 'Explorer.exe', PAnsiChar(Url), nil, SW_SHOWNORMAL);
end;

end.