好!
以下代码能在web发布吗?
//AssignBmpFromDcm(filename, idx, TRMPictureView(View).Picture.Bitmap)
//从医疗影像文件中取出第idx帧,到TRMPictureView(View).Picture.Bitmap中去。
//每鸽医疗影像文件有十兆左右,不好下载到本地
procedure TDM.RM_RptBeforePrint(Memo: TStringList
View: TRMView);
var
filename: string;
idx: integer;
begin
filename := getReportValue(DataSet_Print, '图像文件');
if View is TRMPictureView then
with TRMPictureView(View) do
begin
if checkstrtoint(trim(Memo.Text)) then
idx := strtoint(trim(Memo.Text)) - 1
else
idx := 0;
if FileExists(filename) then
Visible := AssignBmpFromDcm(filename, idx, TRMPictureView(View).Picture.Bitmap)
else
Visible := false;
end;
end;