380 lines
10 KiB
ObjectPascal
380 lines
10 KiB
ObjectPascal
unit U_DeviceJkTest;
|
||
|
||
interface
|
||
|
||
uses
|
||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
|
||
cxContainer, cxEdit, Vcl.Menus,
|
||
Vcl.StdCtrls, cxButtons, cxTextEdit, cxGroupBox, cxStyles, cxCustomData,
|
||
cxFilter, cxData, cxDataStorage, cxNavigator, dxDateRanges, ShellAPI,
|
||
dxScrollbarAnnotations, Data.DB, cxDBData, Data.Win.ADODB, cxGridLevel,
|
||
cxClasses, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
|
||
cxGridDBTableView, cxGrid, cxDropDownEdit, Vcl.ComCtrls, Vcl.ToolWin,
|
||
Datasnap.DBClient, cxMaskEdit, Vcl.Buttons, U_BaseList, cxProgressBar,
|
||
cxLookAndFeelPainters, Vcl.ExtCtrls;
|
||
|
||
type
|
||
TfrmDeviceJkTest = class(TfrmBaseList)
|
||
cxGroupBox1: TcxGroupBox;
|
||
InputLen: TcxTextEdit;
|
||
cxButton1: TcxButton;
|
||
DataSource1: TDataSource;
|
||
ADOQueryList: TADOQuery;
|
||
cxGrid1: TcxGrid;
|
||
tv1: TcxGridDBTableView;
|
||
tv1FtFileName: TcxGridDBColumn;
|
||
tv1FileType: TcxGridDBColumn;
|
||
tv1factory: TcxGridDBColumn;
|
||
tv1remark: TcxGridDBColumn;
|
||
tv1fileCreatedate: TcxGridDBColumn;
|
||
tv1FileEditDate: TcxGridDBColumn;
|
||
tv1fillTime: TcxGridDBColumn;
|
||
tv1FileSize: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
ToolButton2: TToolButton;
|
||
TBClose: TToolButton;
|
||
edt_dllName: TcxTextEdit;
|
||
cds_list: TClientDataSet;
|
||
cxButton2: TcxButton;
|
||
ADOQueryTmp: TADOQuery;
|
||
fileType: TcxComboBox;
|
||
ToolButton1: TToolButton;
|
||
SpeedButton1: TSpeedButton;
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure cxButton1Click(Sender: TObject);
|
||
procedure cxComboBox1PropertiesChange(Sender: TObject);
|
||
procedure cxButton2Click(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
private
|
||
fIsCommopen: Boolean;
|
||
fDllName:string;
|
||
procedure InitGrid();
|
||
procedure testCom();
|
||
function ExportFtErpFile(recid,mFileName:string;ADORead:TADOQuery):boolean;
|
||
procedure On1201(var Message: Tmessage); message 1201; // <20><><EFBFBD>ӳ<EFBFBD>
|
||
procedure On1301(var Message: Tmessage); message 1301; // <20><><EFBFBD><EFBFBD>
|
||
public
|
||
fFormID:Integer;
|
||
|
||
end;
|
||
|
||
var
|
||
frmDeviceJkTest: TfrmDeviceJkTest;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_globalVar,U_DeviceJkDll,U_RTFun;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmDeviceJkTest.cxButton1Click(Sender: TObject);
|
||
begin
|
||
if cds_list.IsEmpty then
|
||
begin
|
||
exit;
|
||
end;
|
||
|
||
|
||
testCom();
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
if fIsCommopen then
|
||
begin
|
||
CloseCom(fDllName);
|
||
end;
|
||
Action:=caFree;
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.FormCreate(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
cxGrid1.Align:=alClient;
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.FormDestroy(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
frmDeviceJkTest:=nil;
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.FormShow(Sender: TObject);
|
||
begin
|
||
// inherited;
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.InitGrid();
|
||
begin
|
||
try
|
||
tv1.BeginUpdate() ;
|
||
ADOQueryList.DisableControls ;
|
||
with ADOQueryList do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add('select recid, FileName,FileType,FileEditDate,fileCreateDate,FileSize,filltime,');
|
||
sql.Add('FilePath,remark,factory');
|
||
sql.Add('from RT_deviceDllFile');
|
||
if Trim(fileType.Text)<>'' then
|
||
sql.Add('where filetype='+QuotedStr(Trim(fileType.Text)));
|
||
sql.Add('order by fillTime desc');
|
||
Open;
|
||
|
||
SCreateCDS(ADOQueryList, cds_list);
|
||
SInitCDSData(ADOQueryList, cds_list);
|
||
end;
|
||
finally
|
||
ADOQueryList.EnableControls ;
|
||
tv1.ApplyBestFit() ;
|
||
tv1.EndUpdate ;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.TBCloseClick(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.testCom();
|
||
var
|
||
iniFileName:string;
|
||
filePath:string;
|
||
begin
|
||
try
|
||
// while True do
|
||
// begin
|
||
fDllName:=Trim(cds_list.FieldByName('FileName').AsString) ;
|
||
edt_dllName.Text:=fDllName ;
|
||
if Trim(cds_list.FieldByName('FileType').AsString)<>'' then
|
||
ExportFtErpFile(Trim(cds_list.FieldByName('recid').AsString),fDllName,ADOQueryTmp);
|
||
iniFileName:= StringReplace(fDllName,'.dll','.ini',[rfIgnoreCase]);
|
||
filePath:= ExtractFilePath(Paramstr(0))+iniFileName ;
|
||
if not FileExists(filePath) then
|
||
begin
|
||
ExportFtErpFile('',iniFileName,ADOQueryTmp);
|
||
end;
|
||
|
||
|
||
|
||
if not FileExists(ExtractFilePath(Paramstr(0))+iniFileName) then
|
||
begin
|
||
application.MessageBox(PChar(iniFileName+'<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'),'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',0);
|
||
Exit;
|
||
end;
|
||
OpenCom(self.handle,fDllName,fIsCommopen);
|
||
// Close;
|
||
// end;
|
||
finally
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.ToolButton1Click(Sender: TObject);
|
||
var
|
||
iniFileName:String;
|
||
filePath:string;
|
||
begin
|
||
if cds_list.IsEmpty then exit;
|
||
iniFileName :=Trim( cds_list.FieldByName('fileName').AsString );
|
||
iniFileName:= StringReplace(iniFileName,'.dll','.ini',[rfIgnoreCase]);
|
||
filePath:= ExtractFilePath(Paramstr(0))+iniFileName ;
|
||
if not FileExists(filePath) then
|
||
begin
|
||
ExportFtErpFile('',iniFileName,ADOQueryTmp);
|
||
end;
|
||
|
||
if not FileExists(filePath) then
|
||
begin
|
||
application.MessageBox(PChar(iniFileName+'<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'),'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ',0);
|
||
Exit;
|
||
end;
|
||
//
|
||
ShellExecute(0, 'open', PChar('notepad.exe'), PChar(filePath), nil, SW_SHOWNORMAL);
|
||
end;
|
||
|
||
///////////////////////////////////////////////////////
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܣ<EFBFBD><DCA3>ӷ<EFBFBD><D3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
||
///////////////////////////////////////////////////////
|
||
procedure TfrmDeviceJkTest.cxButton2Click(Sender: TObject);
|
||
begin
|
||
if fDllName<>'' then
|
||
CloseCom(fDllName);
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.cxComboBox1PropertiesChange(Sender: TObject);
|
||
begin
|
||
TBRafresh.Click;
|
||
end;
|
||
|
||
function TfrmDeviceJkTest.ExportFtErpFile(recid,mFileName:string;ADORead:TADOQuery):boolean;
|
||
var
|
||
Stream : TMemoryStream;
|
||
ff:TADOBlobstream;
|
||
mfileSize:integer;
|
||
mCreationTime:TdateTime;
|
||
mWriteTime:TdateTime;
|
||
IsFileHas:boolean;
|
||
mChildPath:string;
|
||
mFilePath:string;
|
||
begin
|
||
try
|
||
result:=false;
|
||
mChildPath:=''; //test\
|
||
///////////////////////////////////////////////
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>
|
||
mFilePath:= ExtractFilePath(Paramstr(0))+mChildPath;
|
||
IsFileHas:= FileExists(mFilePath+fDllName);
|
||
if IsFileHas then
|
||
begin
|
||
//////////////////////////
|
||
//<2F><>ȡ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>Ϣ
|
||
GetFileInfo(mFilePath+mFileName,mfileSize,mCreationTime,mWriteTime);
|
||
//eleteFile(mFilePath+fDllName);
|
||
end;
|
||
//////////////////////////////////////////
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>
|
||
if IsFileHas then
|
||
begin
|
||
with ADORead do
|
||
begin
|
||
close;
|
||
sql.Clear ;
|
||
sql.Add('select count(FileName) as cnt ');
|
||
sql.Add('from RT_deviceDllFile');
|
||
if recid<>'' then
|
||
sql.Add('where recid='+quotedStr(recid))
|
||
else
|
||
sql.Add('where FileName='+quotedStr(mFileName));
|
||
sql.Add(' and DATEDIFF(minute,'+ quotedStr(formatDateTime('yyyy-MM-dd hh:mm',mWriteTime))+',fileEditDate)>0');
|
||
Open;
|
||
|
||
|
||
//<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD><C2B5>ļ<EFBFBD>
|
||
if fieldByName('cnt').AsInteger>0 then
|
||
begin
|
||
close;
|
||
sql.Clear ;
|
||
sql.Add('select * ');
|
||
sql.Add('from RT_deviceDllFile');
|
||
if recid<>'' then
|
||
sql.Add('where recid='+quotedStr(recid))
|
||
else
|
||
sql.Add('where FileName='+quotedStr(mFileName));
|
||
|
||
Open;
|
||
|
||
ff := TADOBlobstream.Create(fieldByName('Files') as TblobField, bmRead);
|
||
end
|
||
else
|
||
begin
|
||
exit;
|
||
end;
|
||
|
||
if trim(fieldByName('FilePath').AsString)<>'' then
|
||
mChildPath:=trim(fieldByName('FilePath').AsString)+'\';
|
||
end;
|
||
end
|
||
//////////////////////////////////////
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
else
|
||
begin
|
||
with ADORead do
|
||
begin
|
||
close;
|
||
sql.Clear ;
|
||
sql.Add('select * ');
|
||
sql.Add('from RT_deviceDllFile');
|
||
if recid<>'' then
|
||
sql.Add('where recid='+quotedStr(recid))
|
||
else
|
||
sql.Add('where FileName='+quotedStr(mFileName));
|
||
Open;
|
||
|
||
if recordCount>0 then
|
||
begin
|
||
ff := TADOBlobstream.Create(fieldByName('Files') as TblobField, bmRead);
|
||
end
|
||
else
|
||
begin
|
||
application.MessageBox(pchar('δ<>ҵ<EFBFBD><D2B5>ļ<EFBFBD>'+mfileName+'!'),'<27><>ʾ<EFBFBD><CABE>Ϣ',0);
|
||
exit;
|
||
end;
|
||
|
||
if trim(fieldByName('FilePath').AsString)<>'' then
|
||
mChildPath:=trim(fieldByName('FilePath').AsString)+'\';
|
||
end;
|
||
|
||
end;
|
||
|
||
if ff<>nil then
|
||
begin
|
||
try
|
||
mfileName:=trim(ADORead.fieldByName('FileName').asString);
|
||
if not DirectoryExists(ExtractFileDir(mFilePath+mfileName)) then
|
||
ForceDirectories(ExtractFileDir(mFilePath+mfileName));
|
||
Stream:= TMemoryStream.Create ;
|
||
ff.SaveToStream(Stream);
|
||
Stream.SaveToFile(mFilePath+mfileName); //+'\tmpFile\'
|
||
finally
|
||
Stream.Free ;
|
||
ff.free;
|
||
end;
|
||
end;
|
||
UpdateFileTime(mFilePath+mfileName,ADORead.fieldByName('FileCreateDate').AsDateTime,ADORead.fieldByName('FileEditDate').AsDateTime,ADORead.fieldByName('FileEditDate').AsDateTime);
|
||
Result:=true;
|
||
except
|
||
application.MessageBox(pchar('<27><>ȡ<EFBFBD>ļ<EFBFBD>'+mfileName+'ʧ<><CAA7>!'),'<27><>ʾ<EFBFBD><CABE>Ϣ',0);
|
||
end;
|
||
end;
|
||
|
||
|
||
procedure TfrmDeviceJkTest.On1301(var Message: Tmessage);
|
||
var
|
||
i1, i2: Integer;
|
||
unitname: string;
|
||
fdata: double;
|
||
begin
|
||
i1 := Message.WParam;
|
||
i2 := Message.LParam;
|
||
|
||
// if trim(cds_list.fieldbyName('filetype').AsString) = '<27><><EFBFBD><EFBFBD>' then
|
||
// begin
|
||
InputLen.Text := format('%.2f', [i1 / 100000]);
|
||
|
||
//end;
|
||
end;
|
||
|
||
procedure TfrmDeviceJkTest.On1201(var Message: Tmessage);
|
||
var
|
||
i1, i2: Integer;
|
||
unitname: string;
|
||
fdata: double;
|
||
begin
|
||
i1 := Message.WParam;
|
||
i2 := Message.LParam;
|
||
|
||
// if trim(cds_list.fieldbyName('filetype').AsString) = '<27><><EFBFBD>ӳ<EFBFBD>' then
|
||
// begin
|
||
InputLen.Text := format('%.2f', [i1 / 100000]);
|
||
// end;
|
||
|
||
end;
|
||
end.
|