วิธีการเขียนคำสั่งให้นำข้อมูลจาก Image Server มาแสดงในรายงาน

 

ตัวอย่างชุดคำสั่งที่ต้องเขียน

procedure DetailBeforeGenerate;
var cds:tclientdataset;
begin
   cds:=tclientdataset.create(nil);
   cds.HOSxP_GetDataset_ImageServer('select * from opdscan where hn="xxx"');
   cds.AssignDataToPipeLineLink5;
   cds.free;
  
end;

ตัและเนื่องจาก DataPipeLine5 จะต้องมีข้อมูลก่อน ดังนั้น Event GlobalOnCreate ของ Report นี้จึงต้องกำหนดให้ DBPipeLineLink5 มีข้อมูลก่อนด้วย ดังตัวอย่าง

procedure GlobalOnCreate;
var cds:tclientdataset;
begin
   cds:=tclientdataset.create(nil);
   cds.HOSxP_GetDataset_ImageServer('select * from patient_image limit 0');
   cds.AssignDataToPipeLineLink5;
   cds.free;
end;

หลังจากที่เขียนเสร็จแล้ว ให้วาง DBImage เอาไว้ใน Band Detail แล้วกำหนด DataPipeLine ไปที่ DBPipeLine5 แล้วเลือกกำหนด Field ให้ชี้ไปยัง Blob field ที่เก็บข้อมูลรูปภาพเอาไว้