一个不是太简单的问题，呵，大家多多关注！！！！火烧屁股了，大家都来看看呀！ (100分)

天真 · 2002-07-12

program Project1; uses   Forms,messages,windows,Dialogs; const   WM_MYSELF = WM_USER +1000; {$R *.RES} procedure test(handle:HWnd);stdcall;External'project2.dll'; procedure ShowCCC;stdcall;External'project2.dll'; procedure InputCCC(Point: Pointer);stdcall;External'project2.dll'; procedure MYTEST(var message: TMessage); message WM_MYSELF; begin   showmessage('ok'); end; begin   Application.Initialize;   showmessage('ok1');   test(application.Handle);   Application.Run; end.

李崇文 · 2002-07-12

这样肯定编译通不过，你的消息谁来接受，应该写在每个窗口李

天真 · 2002-07-12

那么如果是没有窗体的程序就不能接受消息？？？？？？！！！！

天真 · 2002-07-12

其实我只想实现一个功能，就是向没有窗体的程序发消息，没有窗体的程序接收消息而已

xeen · 2002-07-12

在 windows 操作系统中,没有建立窗体的线程是不能接受消息的。当一个线程 没有创建窗体的时候，它被认为是一个工作者线程(计算),不接受任何消息。 当它创建的窗体，才有相应的消息队列和与之对应的窗口过程......

pcc_mmz1 · 2002-07-12

应该是这样。   Windows 的消息处理技术，是基于WIndow（窗体）上的输入而进行的处理技术。 没有窗体，谁来接收各种消息？窗体接收到发给他的消息后，调用postmessage()将 消息发送到Windows的消息队列，等待Windowproc处理.

bowa · 2002-07-12

是这样子的

天真 · 2002-07-12

我在这儿再提个问题， 我看到APPLICATION。ONMESSAGE这么个事件， 我再看别人的讨论，他们说是由APPLICATION收到消息处理后再转发给窗体的，如果照你们这么说的话 如果没有窗体，APPLICATION。ONMESSAGE不是不能用了？ 还有，我目前在做一个项目，我做一个DLL，由我的DLL监听别人发过来的数据，如果有数据， 我再通知别人写的服务程序，来接收我发给服务程序的数据，你们说该怎么做好？？？？

天真 · 2002-07-12

还有你看NT中的有些服务还不是可以手工地把他们关掉，我觉得关闭该服务的方法也应该是用 消息的吧！！ 大家帮帮我！ 急！！！！！！！！！！！！！

老赵 · 2002-07-12

不知道咋办：（ 帮你提前。

tan_jian · 2002-07-12

其一: 建立线程,线程中用GetMessage捕捉消息,发送端PostThreadMessage; 其二: 用xxAPI(忘了这个API)了,建立虚窗口,返回值为窗口句柄,        好像参数其中一个为一消息回调函数!       直接向该Handle发送消息了!

天真 · 2002-07-12

tan_jian · 2002-07-12

to: 天真:  unit Unit1;     interface     uses     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,     Dialogs, DBTables, Db;     const     WM_OPENDATASET = WM_USER + 1;     WM_EXECUTESQL  = WM_USER + 2;     type     TThreadDataSet = class(TThread)     private       procedure WMOpenDataSet(Msg: TMsg);       procedure WMExecSQL(Msg: TMsg);     protected       procedure Execute; override;     public       procedure Open(DataSet: TDataSet);       procedure ExecSQL(DataSet: TDataSet);     end;       TForm1 = class(TForm)       procedure FormCreate(Sender: TObject);       procedure FormDestroy(Sender: TObject);     private       { Private declarations }   FThread : TThreadDataSet;     public       { Public declarations }     end;     var     Form1: TForm1;     implementation     {$R *.DFM}     procedure TThreadDataSet.ExecSQL(DataSet: TDataSet);   begin     PostThreadMessage(ThreadID, WM_EXECUTESQL, Integer(DataSet), 0);   end;     procedure TThreadDataSet.Execute;   var     Msg : TMsg;     begin     FreeOnTerminate := True;     PeekMessage(Msg, 0, WM_USER, WM_USER, PM_NOREMOVE);       while not Terminated do begin       if GetMessage(Msg, 0, 0, 0) then          case Msg.Message of            WM_OPENDATASET: WMOpenDataSet(Msg);            WM_EXECUTESQL:  WMExecSQL(Msg);          end;     end;   end;     procedure TThreadDataSet.Open(DataSet: TDataSet);   begin     PostThreadMessage(ThreadID, WM_OPENDATASET, Integer(DataSet), 0);   end;     procedure TThreadDataSet.WMExecSQL(Msg: TMsg);   var     Qry : TQuery;     begin     try       Qry := TQuery(Msg.wParam);       try         Qry.Open;       except         Qry.ExecSQL;       end;     except       On E: Exception do          ShowMessage(E.Message);     end;   end;     procedure TThreadDataSet.WMOpenDataSet(Msg: TMsg);   var     Ds : TDataSet;     begin     try       Ds := TDataSet(Msg.wParam);       Ds.Open;     except       On E: Exception do          ShowMessage(E.Message);     end;   end;     // --------------------------------------- //     procedure TForm1.FormCreate(Sender: TObject);   begin     FThread  := TThreadDataSet.Create(False);     FThread.Open(Table1);   // Opening a dataset (table or query)     FThread.ExecSQL(Query1);  // Executing a SQL   end;     procedure TForm1.FormDestroy(Sender: TObject);   begin     FThread.Terminate;   end;     end.

xeen · 2002-07-12

不用消息，也可以用事件内核对象. 在服务程序建立一工作者线程,初始化中: Datareadevent := createevent(nil,true,false,'Datareadevent'); 执行中: while true do begin  waitforsingleobject(Datareadevent,INFINITE);  resetevent(Datareadevent);  接受数据...... end; 在你的 Dll 中... while true do begin  if 有数据 then  begin   Datareadevent:= openevent(nil,false,'Datareadevent');   setevent(Datareadevent);  end;   end;

qinsir · 2002-07-12

关注一下

天真 · 2002-07-12

谢谢tan_jian, 好象是可以了，但我先试了，再给你分好吗？ 另开个贴子！

天真 · 2002-07-12

xeen, 也谢谢你，

天真 · 2002-07-12

欢迎大家来看看，希望也能从中得到点什么

天真 · 2002-07-12

谢谢大家

一个不是太简单的问题，呵，大家多多关注！！！！火烧屁股了，大家都来看看呀！ (100分)

天真

Unregistered / Unconfirmed

李崇文

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

xeen

Unregistered / Unconfirmed

pcc_mmz1

Unregistered / Unconfirmed

bowa

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

老赵

Unregistered / Unconfirmed

tan_jian

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

tan_jian

Unregistered / Unconfirmed

xeen

Unregistered / Unconfirmed

qinsir

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

Similar threads

一个不是太简单的问题，呵，大家多多关注！！！！ 火烧屁股了，大家都来看看呀！ (100分)

天真

Unregistered / Unconfirmed

李崇文

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

xeen

Unregistered / Unconfirmed

pcc_mmz1

Unregistered / Unconfirmed

bowa

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

老赵

Unregistered / Unconfirmed

tan_jian

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

tan_jian

Unregistered / Unconfirmed

xeen

Unregistered / Unconfirmed

qinsir

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

Similar threads

一个不是太简单的问题，呵，大家多多关注！！！！火烧屁股了，大家都来看看呀！ (100分)