Class TDdeClientConv (unit DdeKon)

Inherits from

TComponent

TDdeClientConv

Constructors


constructor Create(AOwner: TComponent);



Functions

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;


Properties

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


Events

event OnClose : TNotifyEvent


event OnOpen : TNotifyEvent


Variables

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;



Constructors


constructor Create(AOwner: TComponent);


Functions


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;


Properties


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


Events


event OnClose : TNotifyEvent


event OnOpen : TNotifyEvent


Variables


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;