89 lines
2.6 KiB
ObjectPascal
89 lines
2.6 KiB
ObjectPascal
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,
|
||
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
|
||
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
|
||
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
||
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
|
||
|
||
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('<27><EFBFBD><DEB7><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡', '<27><>ʾ', MB_ICONWARNING);
|
||
Exit;
|
||
end;
|
||
FPath:='C:\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.
|