Mega Code Archive
[] Dde connection
<![CDATA[
Bir programdan diger programa parametre aktararak toplama yaptiran kodlar.
Delphi 7 ile yapilmistir.
Project2 kodu
Projeye DdeClientConv1 componenti ve 2 edit eklenmeli
// Baglan Butonu
procedure TForm1.Button1Click(Sender: TObject);
begin
DdeClientConv1.ConnectMode:=ddeManual;
DdeClientConv1.ServiceApplication:='C:\Project1.exe';
If DdeClientConv1.SetLink('Project1','ddeserverconv1') then
begin
if Not DdeClientConv1.OpenLink then
begin
ShowMessage('Baglanti Kurulamiyor');
Exit;
end;
end
else ShowMessage('Baglanti Kurulamiyor,Yol Dogrumu');
end;
// Hesapla Butonu
procedure TForm1.Button2Click(Sender: TObject);
begin
//1. parametre 2. parametre
DdeClientConv1.ExecuteMacro(pchar(Edit1.Text+#13+Edit2.Text+#13),false);
end;
// Proje1 kodu
//DdeServerConv1 componenti eklenmeli proje c:\project1.exe diye kaydedilmeli
procedure TForm1.DdeServerConv1ExecuteMacro(Sender: TObject;
Msg: TStrings);
var
m,n:String;
x:Integer;
begin
m:=Msg.Strings[0]; // Edit1.text
n:=Msg.Strings[1]; // Edit2.text
x:=StrToInt(m)+StrToInt(n1);
ShowMessage(IntToStr(x));
end;
]]>