scanregister.pas

一个很好的学习例子,有需要的请下载研究,

unit ScanRegister;

interface
uses
  Classes, PrEximTrans, TransInterface;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('PrEximScan', [TImageTransClient, TImageTransServer, TScanServer, TScanClient]);
end;

end.