Class TDdeClientConv (unit DdeKon) |
Inherits from
TComponent
TDdeClientConv
constructor Create(AOwner: TComponent);
procedure CloseLink;
DdeUninitialize bug (win3.
destructor Destroy;
function ExecuteMacro(Cmd: PChar; waitFlg: Boolean): Boolean;
function ExecuteMacroLines(Cmd: TStrings; waitFlg: Boolean): Boolean;
function OpenLink: Boolean;
function PasteLink: Boolean;
function PokeData(const Item: string; Data: PChar): Boolean;
function PokeDataLines(const Item: string; Data: TStrings): Boolean;
function RequestData(const Item: string): PChar;
function SetLink(const Service, Topic: string): Boolean;
data has changed and we found a link that might be interested
function StartAdvise(AdviseFlags: Word): Boolean;
function ChangeLink(const App, Topic, Item: string): Boolean;
procedure ClearItems;
procedure Close;
function CreateDdeConv(FHszApp: HSZ; FHszTopic: HSZ): Boolean;
procedure DefineProperties(Filer: TFiler);
function GetCliItemByCtrl(ACtrl: TDdeClientItem): TPersistent;
error occurred, do cleanup
function GetCliItemByName(const ItemName: string): TPersistent;
procedure Loaded;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure OnAttach(aCtrl: TDdeClientItem);
procedure OnDetach(aCtrl: TDdeClientItem);
function OnSetItem(aCtrl: TDdeClientItem; const S: string): Boolean;
procedure Open;
procedure ReadLinkInfo(Reader: TReader);
procedure WriteLinkInfo(Writer: TWriter);
procedure DataChange(DdeDat: HDDEData; hszIt: HSZ);
procedure SetConnectMode(NewMode: TDataMode);
procedure SetDdeService(const Value: string);
procedure SetDdeTopic(const Value: string);
procedure SetFormatChars(NewFmt: Boolean);
procedure SetService(const Value: string);
procedure SetTopic(const Value: string);
procedure SrvrDisconnect;
procedure XactComplete;
property ConnectMode : TDataMode
property DdeService : string
property DdeTopic : string
property FormatChars : Boolean
property ServiceApplication : string
property Conv : HConv
property DataMode : TDataMode
property DdeFmt : Integer
property WaitStat : Boolean
event OnClose : TNotifyEvent
event OnOpen : TNotifyEvent
FAppName : string;
FCnvInfo : TConvInfo;
FConnectMode : TDataMode;
FConv : HConv;
FDataMode : TDataMode;
FDdeFmt : Integer;
FDdeService : string;
FDdeTopic : string;
FFormatChars : Boolean;
FHszApp : HSZ;
FHszTopic : HSZ;
FItems : TList;
FOnClose : TNotifyEvent;
FOnOpen : TNotifyEvent;
FWaitStat : Boolean;
constructor Create(AOwner: TComponent);
procedure CloseLink;
DdeUninitialize bug (win3.1) - make sure ddeMgr is at end of application
component list and therefore gets deleted (i.e DdeUninitialize) before
OleUninitialize
ddeMgr.ComponentIndex := Application.ComponentCount -1;
destructor Destroy;
function ExecuteMacro(Cmd: PChar; waitFlg: Boolean): Boolean;
function ExecuteMacroLines(Cmd: TStrings; waitFlg: Boolean): Boolean;
function OpenLink: Boolean;
function PasteLink: Boolean;
function PokeData(const Item: string; Data: PChar): Boolean;
function PokeDataLines(const Item: string; Data: TStrings): Boolean;
function RequestData(const Item: string): PChar;
function SetLink(const Service, Topic: string): Boolean;
data has changed and we found a link that might be interested
function StartAdvise(AdviseFlags: Word): Boolean;
function ChangeLink(const App, Topic, Item: string): Boolean;
procedure ClearItems;
procedure Close;
function CreateDdeConv(FHszApp: HSZ; FHszTopic: HSZ): Boolean;
procedure DefineProperties(Filer: TFiler);
function GetCliItemByCtrl(ACtrl: TDdeClientItem): TPersistent;
error occurred, do cleanup
function GetCliItemByName(const ItemName: string): TPersistent;
procedure Loaded;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure OnAttach(aCtrl: TDdeClientItem);
procedure OnDetach(aCtrl: TDdeClientItem);
function OnSetItem(aCtrl: TDdeClientItem; const S: string): Boolean;
procedure Open;
procedure ReadLinkInfo(Reader: TReader);
procedure WriteLinkInfo(Writer: TWriter);
procedure DataChange(DdeDat: HDDEData; hszIt: HSZ);
procedure SetConnectMode(NewMode: TDataMode);
procedure SetDdeService(const Value: string);
procedure SetDdeTopic(const Value: string);
procedure SetFormatChars(NewFmt: Boolean);
procedure SetService(const Value: string);
procedure SetTopic(const Value: string);
procedure SrvrDisconnect;
procedure XactComplete;
property ConnectMode : TDataMode
property DdeService : string
property DdeTopic : string
property FormatChars : Boolean
property ServiceApplication : string
property Conv : HConv
property DataMode : TDataMode
property DdeFmt : Integer
property WaitStat : Boolean
event OnClose : TNotifyEvent
event OnOpen : TNotifyEvent
FAppName : string;
FCnvInfo : TConvInfo;
FConnectMode : TDataMode;
FConv : HConv;
FDataMode : TDataMode;
FDdeFmt : Integer;
FDdeService : string;
FDdeTopic : string;
FFormatChars : Boolean;
FHszApp : HSZ;
FHszTopic : HSZ;
FItems : TList;
FOnClose : TNotifyEvent;
FOnOpen : TNotifyEvent;
FWaitStat : Boolean;