2,498
社区成员
发帖
与我相关
我的任务
分享
OraQuery1: TOraQuery;
proCedure TfrmMain.Display_Result(certificate_no : string) ;
var
filename,nm:string;
ms : TMemoryStream;
Field:TBlobField;
begin
with OraQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT CALIBRATION_RESULT FROM CERTIFICATE_RESULT WHERE CERTIFICATE_NO ='''+certificate_no+'''');
Open;
if RecordCount > 0 then
begin
filename:=certificate_no+'.doc';
ms:= TMemoryStream.Create;
Field := FieldByName('CALIBRATION_RESULT') as TBlobField;
Field.SaveToStream(ms);
ms.Position:=0;
DeleteFile(AppPath+filename);
ms.SaveToFile(AppPath+filename);
ms.Free;
FComApp := CreateOLEObject('Word.Application');
FDoc := FComApp.Documents.Open(AppPath+filename,false);
// FComApp.Visible := True;
FDoc.PrintOut;
//SetParentWindow(pnl1);
end;
end;
end;