unit_pacs_invoke_query.pas

来自「a program written by delphi about middle」· PAS 代码 · 共 60 行

unit Unit_Pacs_Invoke_Query;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, ScktComp, Sockets;

type
  TdmPacsQuery = class(TDataModule)
    dmc_query: TDCOMConnection;
    cds_query: TClientDataSet;
    csmit: TClientSocket;
    cds_port: TClientDataSet;
    procedure csmitError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure csmitRead(Sender: TObject; Socket: TCustomWinSocket);
    //constructor Create(Owner: TComponent);
    //destructor Destroy; override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmPacsQuery: TdmPacsQuery;

implementation

{$R *.dfm}

procedure TdmPacsQuery.csmitError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
    ErrorCode := 0;
end;

procedure TdmPacsQuery.csmitRead(Sender: TObject; Socket: TCustomWinSocket);
var
    s: string;
    ft: integer;
begin
    s := Socket.ReceiveText;
    if s = '' then exit;
    //1：检查登记；2：发送客户基本资料；3：请求客户资料；4：结论建议；5：显示；6：采集
    ft := StrToInt(copy(s,4,1));
    case ft of
      1 : ;
      2 : ;
      3 : ;
      4 : ;
      5 : ;
      6 : ;
    else ;
    end;
end;

end.