DDE ClientItem OnChange DDEClientItemChange

[Michael Habbe]

So, nach über einer Woche rastlosen Suchens bin ich nun fündig geworden.

In den Google-Groups war mehrfach zu lesen, dass ein gewisser Peter Below (TeamB) eine Wrapperunit geschrieben hatte, um den Kommunikation mit der DDEML-Unit hinzubekommen. Nach stundenlangem Suchen und vielen eMails an Leute, deren Adresse nicht mehr existent ist, habe ich dann in diesem Thread die gesuchten Units gefunden: DDE VCL replacements

Da diese Units direkt im Thread gepostet wurden und sie von jedermann verwendet werden können und sie ursprünglich auch mal von Peter an jedermann geschickt wurden, habe ich sie mal angehängt.

Um nun diese Units auch verwenden zu können, hier mal das kurze Beispiel, womit ich die Daten von meinem DDE-Server an den (nun funktionierenden) Client bekomme.

Delphi-Quellcode:

unit Unit1;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls, DDEObjec, DDEML;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    edtService: TEdit;
    edtTopic: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

function DdeDataChange(CallType, Fmt: UINT; Conv: HConv; hsz1, hsz2: HSZ; Data: HDDEData; Data1, Data2: DWORD): HDDEData; stdcall;

var
  Form1: TForm1;

implementation

{$R *.DFM}

var
  count: Integer = 0;
  dde: TDDEMLClass;

function DdeDataChange(CallType, Fmt: UINT; Conv: HConv; hsz1, hsz2: HSZ; Data: HDDEData; Data1, Data2: DWORD): HDDEData;
var
  str:String;
begin
  inc(count);
  dde.GetDataAsStrObj(data, str);
  Form1.Memo1.Lines.Add(IntToStr(count)+': '+str);
  //result := data; eine Result darf ich nicht zurückgen, der DDE-Server meldet sonst einen Timeout?!? 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  dde := TDDEMLClass.Create(DDEDataChange, 0);
  dde.Connect(PAnsiChar(edtService.Text), PAnsiChar(edtTopic.Text));
  dde.Execute(PAnsiChar(edtMacro.Text));
end;

end.

Naja, nun scheint es zu funktionieren. Mal schauen, was noch so an Probleme auf mich einstürzen.

Wäre jedenfalls Klasse, wenn jemand, der diese Units verwendet, einen kleine Quellcodeschnipsel postet, was er/sie damit anstellt.


mfg
Michael

... der nun darangeht, die eigentlichen Daten auszuwerten.