Hallo alle, ich habe folgendes Problem und hoffe ihr könnt mit helfen. Ich beschäftige mich seit kurzem mit DDE Anwendungen, will später eine Anwendung zu einem Telefonprogramm ( läst sich als DDE-Client einrichten ) erstellen. Habe beim testen allerdings etwas entdeckt, was ich mir nicht erklären kann...
Habe mir nen Client und einen Server erstellt, nur um den Datentransfer zu testen. Problem ist, das es 1 mal funktioniert, doch ab dem 2ten Transfer nix mehr
Wenn ich dann die CleintAnwendung schliese und erneut starte gehts wieder, allerdings wieder nur einmal...
Hatte das schon wer, bzw was mach ich falsch?
CLIENT:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.FormCreate(Sender: TObject);
begin
with DDEClientConv1 do
begin
if not SetLink('PServer','TestTopic') then ShowMessage(Keine
Verbindung gefunden!');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DDEClientConv1.ExecuteMacro(PChar(Edit1.text),true);
end; |
SERVER
Quelltext
1:
2:
3:
4:
| procedure TForm1.TestTopicExecuteMacro(Sender: TObject; Msg: TStrings);
begin
ListBox1.items.AddStrings(Msg);
end; |
Sind nur die 3 Prozeduren, und ist soweit auch richtig verbunden.. 1mal gehts ja. Ich weis echt nicht weiter
Grüsse Marco
(20.10.02 15:30 Tino) Code-Tags hinzugefügt.
