91 lines
2.2 KiB
ObjectPascal
91 lines
2.2 KiB
ObjectPascal
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.
|
|
|