Category Archives: 技术文档资料
本栏目中收集了全部的技术文档资料
泰融影像管家(医学影像工作站)用户说明文档
2 of 2 in the series: 影像管家
- 泰融影像管理(医学影像工作站web版)-日志
本文记录了泰融影像管理在开发过程中的点滴细节,为项目完成后提共部份文档基础。
- 泰融影像管家(医学影像工作站)用户说明文档
本文主要为用户提供影像管理系列操作说明,让用户能在看完本文档后,能快速的使用泰融影像管理,能有一个更好的医学影像工作站使用体验。
超声打印
procedure Trepform.frxptBeforePrint(Sender: TfrxReportComponent);
var filepath: string;
rptformats: string;
chname, fname: string;
docharset, dofontchange: Boolean;
charsetindex, I: Integer;
picconter: Integer;
begin
ExportFileName := DateTimeToStr(dm.Mqry.fieldbyname('baogaoriqi').AsDateTime) + dm.mqryname.AsString;
picconter := 0; {默认的打印图片为0}
// sHostpitalLogo,
// sHostpitalName,
if frxpt.FindObject('caInfo') <> nil then
(frxpt.FindObject('caInfo') as TfrxMemoView).Memo.Text := s_CaInfo;
if frxpt.FindObject('hostname') <> nil then
(frxpt.FindObject('hostname') as TfrxMemoView).Memo.Text := sHostpitalName;
if frxpt.FindObject('hostname1') <> nil then
(frxpt.FindObject('hostname1') as TfrxMemoView).Memo.Text := sHostpitalName;
if frxpt.FindObject('logo') <> nil then
begin
if FileExists(sHostpitalLogo) then
(frxpt.FindObject('logo') as TfrxPictureView).Picture.LoadFromFile(sHostpitalLogo);
end;
if frxpt.FindObject('logo1') <> nil then
begin
if FileExists(sHostpitalLogo) then
(frxpt.FindObject('logo1') as TfrxPictureView).Picture.LoadFromFile(sHostpitalLogo);
end;
if ((frxpt.FindObject('reportTitle') as TfrxMemoView) <> nil) then
(frxpt.FindObject('reportTitle') as TfrxMemoView).Text := mainunit.P_reportTitle;
{这两行的决定超声所见和超声提示是否支持多行显示}
chname := mySysParms.getElementTextAttribute('/config/Print', 'charset', 'font_DEFAULT_CHARSET');
fname := mySysParms.getElementTextAttribute('/config/Print', 'font_fontname', '宋体');
dofontchange :=mySysParms.getElementBooleanAttribute('/config/Print','font_fontChange',True);
docharset:= mySysParms.getElementBooleanAttribute('/config/Print','font_used', True);
IdentToCharset(chname, charsetindex);
for i := 0 to frxpt.ComponentCount - 1 do
begin
if TComponent(frxpt.Components[i]) is TfrxRichView then
(TComponent(frxpt.Components[i]) as TfrxRichView).Wysiwyg := mainunit.Print_Wysiwyg;
if TComponent(frxpt.Components[i]) is TfrxMemoView then
begin
(TComponent(frxpt.Components[i]) as TfrxMemoView).Wysiwyg := mainunit.Print_Wysiwyg;
if docharset then
begin
(TComponent(frxpt.Components[i]) as TfrxMemoView).font.Charset := charsetindex;
if (TComponent(frxpt.Components[i]) as TfrxMemoView).Name <> 'hostname' then
(TComponent(frxpt.Components[i]) as TfrxMemoView).font.name := fname;
end;
end;
end;
filepath :=SPath.LocalPath+ dm.mqryimagepath.AsString;
filepath:=StringReplace(filepath,'\\','\',[rfReplaceAll]) ;
Exportpath:=filepath;
if FileExists(filepath + '\rpt1.jpg') then
picconter := picconter + 1;
if FileExists(filepath + '\rpt2.jpg') then
picconter := picconter + 1;
if FileExists(filepath + '\rpt3.jpg') then
picconter := picconter + 1;
if FileExists(filepath + '\rpt4.jpg') then
picconter := picconter + 1;
if FileExists(filepath + '\rpt5.jpg') then
picconter := picconter + 1;
if FileExists(filepath + '\rpt6.jpg') then
picconter := picconter + 1;
rptformats := dm.mqryrep_format.AsString;
rptformats := StringReplace(rptformats, 'D:\stusdata\reportformat\', '', [rfReplaceAll]);
if frxpt.FindObject('ReportTitle1') <> nil then
(frxpt.FindObject('ReportTitle1') as TfrxReportTitle).Tag := picconter;
if FileExists(filepath + '\rpt1.jpg') then
begin
if frxpt.FindObject('Picture1') <> nil then
(frxpt.FindObject('Picture1') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt1.jpg');
end;
if FileExists(filepath + '\rpt2.jpg') then
begin
if frxpt.FindObject('Picture2') <> nil then
(frxpt.FindObject('Picture2') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt2.jpg');
end;
if FileExists(filepath + '\rpt3.jpg') then
begin
if frxpt.FindObject('Picture3') <> nil then
(frxpt.FindObject('Picture3') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt3.jpg');
end;
if FileExists(filepath + '\rpt4.jpg') then
begin
if frxpt.FindObject('Picture4') <> nil then
(frxpt.FindObject('Picture4') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt4.jpg');
end;
if FileExists(filepath + '\rpt5.jpg') then
begin
if frxpt.FindObject('Picture5') <> nil then
(frxpt.FindObject('Picture5') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt5.jpg');
end;
if FileExists(filepath + '\rpt6.jpg') then
begin
if frxpt.FindObject('Picture6') <> nil then
(frxpt.FindObject('Picture6') as TfrxPictureView).Picture.LoadFromFile(filepath + '\rpt6.jpg');
end;
if frxpt.FindObject('dbjinchasuojian')<> nil then
(frxpt.FindObject('dbjinchasuojian') as TfrxMemoView).Font.Size:=i_ReportSJTS_FontSize;
if frxpt.FindObject('dbjianchajielun')<> nil then
(frxpt.FindObject('dbjianchajielun') as TfrxMemoView).Font.Size:=i_ReportSJTS_FontSize;
if frxpt.FindObject('Memo44')<> nil then
(frxpt.FindObject('Memo44') as TfrxMemoView).Font.Size:=i_ReportSJTS_FontSize;
if FileExists(filepath + '\CeLiang.jpg') then
begin
if frxpt.FindObject('Picturecl') <> nil then
(frxpt.FindObject('Picturecl') as TfrxPictureView).Picture.LoadFromFile(filepath + '\CeLiang.jpg');
end;
// if frxpt.FindObject('PageFooter1')<> nil then
// begin
// if (frxpt.FindObject('Page1') as TfrxReportPage).PageCount>1 then
// begin
// (frxpt.FindObject('PageFooter1') as TfrxPageFooter).PrintOnFirstPage:=False;
// (frxpt.FindObject('PageFooter1') as TfrxPageFooter).PrintOnLastPage:=true;
// end
// else
// begin
// (frxpt.FindObject('PageFooter1') as TfrxPageFooter).PrintOnFirstPage:=true;
// (frxpt.FindObject('PageFooter1') as TfrxPageFooter).PrintOnLastPage:=true;
// end;
//
// end;
//frxpt.Engine.
end;
PDFCreater2虚拟打印机生成PDF到目的路径
打印前执行加载签名
if frxpt.FindObject(‘DocQianMing’)<>nil then //加载医生签名,在报告页面上合适的位置放置一个图片名称为DocQianMing
begin
//mainunit.Current_user
docqmpath:=ExtractFilePath(Application.ExeName)+’DocQianMing\’+mainunit.Current_user+’.jpg’;
if FileExists(docqmpath) then
(frxpt.FindObject(‘DocQianMing’) as TfrxPictureView).Picture.LoadFromFile(docqmpath);
end;
if frxpt.FindObject(‘DocQianMing’)<>nil then //加载医生签名,在报告页面上合适的位置放置一个图片名称为DocQianMing
begin
//mainunit.Current_user
docqmpath:=ExtractFilePath(Application.ExeName)+’DocQianMing\’+mainform.DBComboBox1.Text+’.jpg’;
if FileExists(docqmpath) then
(frxpt.FindObject(‘DocQianMing’) as TfrxPictureView).Picture.LoadFromFile(docqmpath);
end;
程序中相关 配置文件
超声
//虚拟打印机名称配置
v_pdfPrinter:=mySysParms.getElementTextAttribute(‘/config/vPrint’,’PrintName’,’PDFCrestor’) ;
//内镜配置GWSET.INI
v_pdfPrinter:=regini.ReadString(‘虚拟打印机’,’打印机名称’,’PDFCreator’) ;
//内镜真实的打印机配置
V_DefaultPrinter:=regini.ReadString(‘打印’,’默认的打印机’,’default’);//设置默认的打印机