亚洲一区二区三区夜色,久久亚洲精品无码VA大香大香,亚洲国模精品一区

RCP入门�E�序的要�?

叽哩咕噜 — Wed, 24 Aug 2011 08:09:00 GMT

关于RCP�E�序开�?当写�W�一个Demo时的要点.记录下来.写得�_�糙,仅供自己参�?br />1. Action

    1> ApplicationActionBarAdvisor�cȝ��makeActions�Ҏ(gu��)��用来初始化Action,可以是内部定义的Action,也可以是自己从Action�cȝ��承的自定义Action.
    2>从Action�cȝ��承的Action重写run�Ҏ(gu��)��,�q�是Action执行时候运行的代码.
    3>内置Action 都实��C��IWorkbenchAction,用ActionFactory.QUIT.create获得Action.
    3>相比Delphi,JFace的Action�c�L��?把他攑֜�menubarManager�?他就变成了一个菜�?把他攑֜� ToolbarManager上就变成了工具图�?delphi里面一个菜单是一个menuItem + Action�l�成�?工具栏是Button + Action�l�成�?

2. 菜单:

    1>menubarManager 相当于有主菜�?如文�?�~�辑�{�菜单项.menubarManger.add(menubarManager).�q�样产生二��菜单.
    2>menubarManager.add(Action).�q�样��添加了一个子菜单.
    3>fillMenuBar(IMenuManager menuBar) �Ҏ(gu��)��传进来的menuBar��是最��端的菜单面�?相当于delphi里面��d��了一个XPMenu控�g,�?x��)在form上增加一条菜单面�?menuBar.add(menubarManager),�q�样��d��了一�U�菜�?

3.    工具�?/strong>
    1>重写fillCoolBar(ICoolBarManager coolBar) 可以��d��工具�?
    2>创徏一个ToolbarManager实例.��是一个工��h��.可以创徏多个.
    3>ToolbarManager.add(Action).�q�样��是��d��了一个工具图�?
    4>coolBar.add(ToolbarManager),��是在界面上��d��一块工��h��,可以增加多块工具�?

4.View�C�֛�
    1>可以从扩展点配置一个Action: 从plugin.xml的Extension标签,点add,扑և�views
    2>也可以从ViewPart�l�承一个类.createPartControl�Ҏ(gu��)��讄��一些初始化工作.
    3>View可以理解为Delphi的childwindow,子窗�?可以攑֐��U�控�?可以关闭,最大化,最��化.
    4>View的显�C�是依赖一个透视囄��.透视囑֏�以理解�ؓ(f��)不同的View或Editor的组�?��叫透视�?
    5>重写Perspective默认透视图createInitialLayout�Ҏ(gu��)��,�q�用layout.addView��d��q�显�C�Z��个视�?当加载默认视图时�?x��)加载该View�H�口.

5.Editor�~�辑�?/strong>
    1>Editor�c�d��C��ISaveablePart接口.�q�绑定了内置的Save Action,SaveAsAction
    2>当点击菜单中的保�?Action时会(x��)自动调用doSave�Ҏ(gu��)��.只要重写doSave�Ҏ(gu��)��保存当前的文件即可实��C��?
    3>Editor依赖了一个EditorInput�c?EditorInput�c�L��理解为像Struts中的ActionForm�c�M��?用来传递参数给Editor.
    4>如果不是需求这�U�集成编辑器的功�?一般用View可以满��,但是如像QQ聊天�q�样的编辑框的时�?用Editor开发应该是一个不错的选择.delphi里面像发送消息程�?采用了一个HtmlEdit控�g才解决了�q�个问题.
    5>Editor�H�口可以用window.getActivePage.openEditor(input, TxtEditor.ID)打开.

叽哩咕噜 2011-08-24 16:09 发表评论

关于"截断字符串或二进制数�?错误

叽哩咕噜 — Tue, 16 Aug 2011 06:42:00 GMT

公司一个很古老的�pȝ��,忽然出现了一个如下的错误:

查看了代�?执行了一个存储过�E�主要执行了Insert语句. 把几个Insert语句的相兛_��D늚�长度一�Ҏ(gu��)��发现有长度不相符,更改相关的长�?问题搞定.

叽哩咕噜 2011-08-16 14:42 发表评论

Delphi CreateThread 创徏多线�E�的写法

叽哩咕噜 — Wed, 01 Sep 2010 10:46:00 GMT

function CreateThread(lpThreadAttributes: Pointer;
                      dwStackSize: DWORD;
                      lpStartAddress: TFNThreadStartRoutine;
                      lpParameter: Pointer;
                      dwCreationFlags: DWORD;
                      var lpThreadId: DWORD): THandle; stdcall;

其中lpStartAddress�Q�lpParameter�Q�lpThreadId三个参数是必��ȝ��?br /> lpStartAddress参数指向的是�U�程执行体ThreadProc的开始地址�Q?br /> lpParameter指针�c�d��Q�线�E�的传入参数�Q�我们如果想�l�线�E�执行体ThreadProc传递我们自��q��数据�Q?br />            ��p��通过它了�Q?br /> lpThreadId�q�回创徏�U�程ID,�q�是我们控制�U�程必须的�?/strong>

主要说lpStartAddress和lpParameter�q�两个参�?.
lpStartAddress��d��始的地址.说明�q�是个指�?一般传一个方法的地址�q�去.. 也就是我们要执行的一�D�代�?
lpParameter��是参数.我们自己要执行的�Ҏ(gu��)��肯定�?x��)有参数�? 一般都是传一个Record�c�d��的指�?

下面复制一个我的Demo例子:

unit CreateThreadFrm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
MyParam = record    //�U�程的时候传�?br />     str:string;
end;
PMyParam=^MyParam; //Record�c�d��指针
   procedure CallAgent(msg: PMyParam);stdcall; //�q�个�Ҏ(gu��)��声明��Z��么要攑֜��q�里��可�?攑֜��c�TForm1里面��׃��?
type
TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{
发送消息给消息弹出代理�E�序   POPAgent.exe
DDZ
2010�q?�?8�?4:44:36
}

procedure TForm1.Button1Click(Sender: TObject);
var
PMyPara:PMyParam;
MyPara:MyParam;
Cthread: THandle;   //�U�程句柄
Tid: DWord;
begin
new(PMyPara) ;   //另外�q�里�q�有一个问�?�q�里只New开辟类�?�q�没有FreeMem�?x��)不会(x��)漏�?br /> PMyPara.str := 'h太低发出�?;
Cthread:=CreateThread(nil,0,@CallAgent,PMyPara,0,Tid); //创徏一个线�E�，同时调用�U�程函数
end;

procedure CallAgent(msg: PMyParam);stdcall;
var
HlAgent:HWND;
ds:TCopyDatastruct;
AgentMsg:string;
begin

//showmessage(msg^.str);
AgentMsg := msg.str;
//Application.ProcessMessages;
ds.cbData := Length(AgentMsg)+1;
GetMem(ds.lpData,ds.cbData); //分配内存
StrCopy(ds.lpData,PChar(AgentMsg)); //复制值到指针

HlAgent :=FindWindow('TmsgpopMainCaller','调用�?);
if HlAgent <> 0 then
begin
    SendMessage(HlAgent,WM_COPYDATA,0,Cardinal(@ds));
end;
FreeMem(ds.lpData); //释放内存 �q�里要释�? 上面的Record记录要不要释�?�?我这样写�?x��)报错�?br /> end;

end.

看这个例子可以参�?nbsp; CreateThread 函数�?�U�程间的通信�Ҏ(gu��)��.�q�两个技术点.

叽哩咕噜 2010-09-01 18:46 发表评论

叽哩咕噜 — Tue, 31 Aug 2010 10:31:00 GMT

WIN下面�q�程间通信的最常用办法��是消息�?

下面记录两种消息通信的方�?
--------------------------------------------------------------------------------------------
一.�W�一�U�办�?利用注册W(xu��)indows全局的消�?�q�覆盖wndProc�q�程来监听消息处�?
1.
    发送消息方:
    private
            strWM:Cardinal;  //定义一个局部变�?br />     ...
    proccedure Form1.Create(sender:TObject);
    begin
        strWM:= RegisterWindowMessage('newspopMessage'); //注册一个windows全局消息,通过�q�个消息与其它进�E�通信
    end;

    ...
    procedure Form1.Button1Click1(Sender:TObject);
    var
        h:Cardinal;
    begin
        //通信的步骤得先找到要通信的信息窗口Handle
        h:=findWindow('目标�q�程�H�口�c�d��','�H�口Caption');
        //发送消息消息类型�ؓ(f��)自定义的strWM
        SendMessage(h,strWM,0,0);  //�q�里同样可以带参�?wParam,lParam.但我传一个PChar,��d��的时候��L��?不知道�ؓ(f��)�?br />
    end;

2.
    接收消息�?
        private
            strWM:Cardinal;  //定义一个局部变�?br />             procedure wndProc(var msg:Tmessage);override; //覆盖�q�个�Ҏ(gu��)��,可以监听所有的Windows消息回调函数
         ...
        proccedure Form1.Create(sender:TObject);
        begin
            strWM:= RegisterWindowMessage('newspopMessage'); //注册一个windows全局消息,�q�个相当于暗�?br />         end;
        procecure form1.wndProc(var msg:TMessage);
        begin
            //在这里处理这个消息就行了
            showmessage(strpas(PChar(mes.lparam))); //�q�样写会(x��)报错�?但可以处理其它无参数的事�?br />         end;

----------------------------------------------------------------------------------------------
�?�W�二�U�办�?发送一个WM_COPYDATA的消�?�q�且可以带一个TCopyDataStruct的结构类型参�?

1.
    发送消息方:


  procedure TMainForm.CallAgent(msg: string);
  var
    HlAgent:HWND;
    ds:TCopyDatastruct;    //定义一个TCopyDatastruct�l�构体变�?br /> begin
    AgentMsg := msg;
    ds.cbData := Length(msg)+1; //�l�构体的�W�一个元�? 长度cbData
    GetMem(ds.lpData,ds.cbData); //分配内存,�l�构体的�W�二个参�? 数据的指针lpDATA
    StrCopy(ds.lpData,PChar(msg)); //复制值到�l�构指针

    HlAgent :=FindWindow('TmsgpopMainCaller','调用�?); //查找目标�H�体的Handle
    if HlAgent <> 0 then
    begin
      //ShowMessage('�? + IntToStr(Cardinal(@ds)));
      SendMessage(HlAgent,WM_COPYDATA,0,Cardinal(@ds));   //发送WM_COPYDATA消息,�q�带上参�?@ds
    end;
    FreeMem(ds.lpData); //释放数据内存
end;

2.
    接收方程�?
    public
            procedure MyMessage(var m:TWmCopyData);message WM_CopyData;   //定义一个消息响应过�E?�q�传入一个TWmCopyData的参�?br />     ...
    procedure TmsgpopMainCaller.MyMessage(var m: TWmCopyData); //实现响应
    var
      msg:string;
    begin
      msg :=StrPas(m.CopyDataStruct^.lpData);    //获取参数数据
      ShowMessageForm := TShowMessageForm.Create(self,msg); //处理
    end;

叽哩咕噜 2010-08-31 18:31 发表评论