B
banelon
Unregistered / Unconfirmed
GUEST, unregistred user!
最近遇到点麻烦，想在两个应用程序间传输数据（字符串），要求快速、安全，请教各位大侠有没有好的解决方案，最好能有源代码？急急急！！！
F
Fencer
Unregistered / Unconfirmed
GUEST, unregistred user!
通过注册表，Ini文件，Dll,和发送消息都可以交换数据。<br>你说的用消息交换数据很容易，在一个程序中定义一个义消息，在<br>另一个程序中通过Lparam参数发给他就行了。这几种方式都符合你<br>的要求，不知你要什么样的程序说详细点可以给你一个。
A
amo
Unregistered / Unconfirmed
GUEST, unregistred user!
用内存映象文件吧。<br><br><br>unit memfileu;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> Button1: TButton;<br> Button2: TButton;<br> Memo1: TMemo;<br> Button3: TButton;<br> procedure Button1Click(Sender: TObject);<br> procedure Button2Click(Sender: TObject);<br> procedure Button3Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br> RPtValue =record<br>// x,y:double;<br> Pt_id:integer;<br> pt_value:single;<br> pt_state:integer;<br>// pt_unit:string[10];<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br><br>//读memfile<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> hMap:THandle;<br> data,d:^RPtValue;<br> i:integer;<br>begin<br> hMap:=CreateFileMapping(-1,nil,PAGE_READONLY,0,1024,'JZS_SHARE_MEMORY');<br> if hMap=NULL then exit;<br> data:=Mapviewoffile(hMap,FILE_MAP_READ,0,0,0);<br> d:=data;<br> for i:=0 to 25 do<br> begin<br> memo1.Lines.Add(inttostr(d^.Pt_id)+':'+floattostr(d^.pt_value)+':'+inttostr(d^.pt_state));<br> inc(d);<br> end;<br>end;<br><br>//创建/写memfile<br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br> hFile:THandle;<br> hMapping:THandle;<br> data,d:^integer;<br> i:integer;<br>begin<br> hMapping:=CreateFileMapping($ffffffff,nil,PAGE_READWRITE ,0,1024,pchar('JZS_SHARE_MEMORY'));<br> data:=MapViewOfFile(hMapping,FILE_MAP_WRITE,0,0,0);<br><br> d:=data;<br> for i:=0 to 25 do<br> begin<br> d^:=ord('a')+i;<br> inc(d);<br> end;<br><br>end;<br><br>procedure TForm1.Button3Click(Sender: TObject);<br>var<br> r: RPtValue;<br>begin<br> showmessage(inttostr(sizeof(r)));<br>end;<br><br>end.<br><br>
C
cAkk
Unregistered / Unconfirmed
GUEST, unregistred user!
DDE也可以.
Z
zhang guohua
Unregistered / Unconfirmed
GUEST, unregistred user!
用剪贴板,可以试试。
C
cAkk
Unregistered / Unconfirmed
GUEST, unregistred user!
实在懒的话,就看看Program Files/Borland/Delphi4/Demos/Ipcdemos下面<br>的例子,改一下就可以了.
L
Liu JZX
Unregistered / Unconfirmed
GUEST, unregistred user!
1、<br>CLIENT端<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> hMapFile:=CreateFileMapping($FFFFFFFF,nil,page_ReadWrite,0,10000,'Ddh');<br> if hMapFile<>0 then<br> MapFilePointer:=MapViewOfFile(hMapFile,File_Map_All_Access,0,0,0)<br> else<br> ShowMessage('hMapFile==0');<br> if MapFilePointer=nil then<br> ShowMessage('MapFilePointer=nil');<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> StrCopy(PChar(MapFilePointer),PChar(edit2.text));<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br> s:string;<br>begin<br> s:=PChar(MapFilePointer);<br> edit1.text:=s;<br>end;<br><br><br>Server 端<br>procedure TForm1.FormCreate(Sender: TObject);<br>var<br> h:Thandle;<br> MapFilePointer
ointer;<br>begin<br> h:=OpenFileMapping(FILE_MAP_ALL_ACCESS,true,PChar('Ddh'));<br> MapFilePointer:=MapViewOfFile(h,File_Map_All_Access,0,0,0);<br> edit1.text:=PChar(MapFilePointer);<br>end;<br><br>2、<br>Server 端<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> ds:TCopyDataStruct;<br> hd:THandle;<br>begin<br> ds.cbData:=length(edit1.text)+1;<br> GetMem(ds.lpData,ds.cbData);<br> StrCopy(ds.lpData,PChar(edit1.text));<br> hd:=FindWindow(nil,'Form2');<br> if hd<>0 then<br> SendMessage(hd,WM_COPYDATA,Handle,Cardinal(@ds))<br> else<br> ShowMessage('Not Find');<br> FreeMem(ds.lpData);<br><br>end;<br><br>CLIENT端<br><br>type<br> TForm2 = class(TForm)<br> Edit1: TEdit;<br> private<br> { Private declarations }<br> procedure MyMessage(var t:TWmCopyData);message Wm_CopyData;<br> public<br> { Public declarations }<br> end;<br><br>procedure TForm2.MyMessage(var t:TWmCopyData);<br>begin<br> edit1.text:=strpas(t.copydatastruct^.lpData);<br>end;<br><br>3、使用dde<br>4、剪切板<br>5、CreateMailsolt<br>6、使用原子<br>..............
ointer;<br>begin<br> h:=OpenFileMapping(FILE_MAP_ALL_ACCESS,true,PChar('Ddh'));<br> MapFilePointer:=MapViewOfFile(h,File_Map_All_Access,0,0,0);<br> edit1.text:=PChar(MapFilePointer);<br>end;<br><br>2、<br>Server 端<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> ds:TCopyDataStruct;<br> hd:THandle;<br>begin<br> ds.cbData:=length(edit1.text)+1;<br> GetMem(ds.lpData,ds.cbData);<br> StrCopy(ds.lpData,PChar(edit1.text));<br> hd:=FindWindow(nil,'Form2');<br> if hd<>0 then<br> SendMessage(hd,WM_COPYDATA,Handle,Cardinal(@ds))<br> else<br> ShowMessage('Not Find');<br> FreeMem(ds.lpData);<br><br>end;<br><br>CLIENT端<br><br>type<br> TForm2 = class(TForm)<br> Edit1: TEdit;<br> private<br> { Private declarations }<br> procedure MyMessage(var t:TWmCopyData);message Wm_CopyData;<br> public<br> { Public declarations }<br> end;<br><br>procedure TForm2.MyMessage(var t:TWmCopyData);<br>begin<br> edit1.text:=strpas(t.copydatastruct^.lpData);<br>end;<br><br>3、使用dde<br>4、剪切板<br>5、CreateMailsolt<br>6、使用原子<br>..............
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
可以直接send WM_char message.
K
kzl
Unregistered / Unconfirmed
GUEST, unregistred user!
有一个WM_COPYDATA(大概是它，记不太清)可在两个应用间交换数据。<br>如果要自定义消息：<br>用API:RegisterWindowMessage，在两个程序间用相同的消息字符串<br>将要传输的数据放在LParam中就行了
C
CJ
Unregistered / Unconfirmed
GUEST, unregistred user!
menxin的是最简单的方法
J
Jams
Unregistered / Unconfirmed
GUEST, unregistred user!
>>
B
banelon
Unregistered / Unconfirmed
GUEST, unregistred user!
感谢各位的意见，问题我已解决了，通过WM_COPYDATA系统消息发送数据，（KZL提到的），曾考虑用ATOM TABLE，可惜有255 BYTE 的限制，所以否定了，当然AMO提出的用内存映象文件，也是一种好方法，由于时间紧迫，来不急测试了。<br>
H
hrm
Unregistered / Unconfirmed
GUEST, unregistred user!
banelon:<br>通过鼠标钩子，东方快车和金山词霸都用这种方法。感兴趣可以给你一个例子。<br>请给我发个例子.<br>heruimin@263.net
G
gabor
Unregistered / Unconfirmed
GUEST, unregistred user!
hrm,请给我一个，谢谢了