unit_pacs_invoke_register.pas

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

unit Unit_Pacs_Invoke_Register;

interface

uses
  Forms, SysUtils, Classes, DB, DBClient, MConnect, ScktComp;

var
   socket_register_opened: boolean;
type
  TdmPacsRegister = class(TDataModule)
    dmc_register: TDCOMConnection;
    cds_register: TClientDataSet;
    cs_register: TClientSocket;
    cds_ip: TClientDataSet;
    procedure cs_registerError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure cs_registerConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure cs_registerLookup(Sender: TObject; Socket: TCustomWinSocket);
    procedure cs_registerRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmPacsRegister: TdmPacsRegister;

implementation

{$R *.dfm}

procedure TdmPacsRegister.cs_registerError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
    //Socket.
    if ErrorEvent in [eeGeneral, eeSend, eeReceive, eeConnect, eeDisconnect, eeAccept] then
        Application.MessageBox('Socket Error', 'ok');
end;

procedure TdmPacsRegister.cs_registerConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    socket_register_opened := true;
end;

procedure TdmPacsRegister.cs_registerLookup(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    socket_register_opened := false;
end;

procedure TdmPacsRegister.cs_registerRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
    s: string;
begin
    //
    //Socket.ReceiveBuf()
end;

end.