IT博客-kenlistian-随笔分类-Base

EA4简要调试方法

kenlistian — Sat, 15 Jan 2011 02:09:00 GMT

MQL4提供了几种获取信息的方法。

1."Alert" 会出现一个对话窗口显示用户指定数据。 Alert("FreeMargin grows to ", AccountFreeMargin(), "!");

2. "Comment"将会在图表窗口的左上角显示用户指定的数据。 Comment("FreeMargin is ", AccountFreeMargin(), ".");

3."Print"在系统日志中打印用户指定的数据。

Print("FreeMargin is ", AccountFreeMargin(), ".");

或单独打印到文件中 int h1; h1 = FileOpen("ttt.csv", MODE_CSV | MODE_WRITE, ";");

if(h1 < 0) { Print("Unable to open file my_data.csv"); return(false);

}

//把测试结果放入到文件中 FileWrite(h1, High[1], Low[1], Close[1], Volume[1]);

FileClose(h1);

4.错误的获取用"GetLastError"的功能。

如下 int iTickNum = 0; int iLastError = 0;

...

iTickNum = OrderSend(Symbol(), OP_BUY, g_Lots, Ask, 3, 0, Ask + g_TakeProfit * g_Points);

if(iTickNum <= 0) {

iLastError = GetLastError();

if(iLastError != ERR_NO_ERROR)

Alert("Some Message");

}

kenlistian 2011-01-15 10:09 发表评论

管家婆7.1恢复方法

kenlistian — Thu, 12 Feb 2009 10:00:00 GMT

老套, 该管家婆一旦数据量过大,到达9999,19999,29999左右就会不稳定,搞不好就下次登录就弹出数据破坏. 由于是帮人,不得不搞,现在进销存软件多,但是也有人钟情这套. 出现这个问题,在网上搜到2个工具,按方法修复.其中要恢复前,把sysdata.dbf中的stocknum字段从0该为1. 如果有foxpro改当然可以.没有,直接搞个二进制编辑工具改把以上30改31.用excel改的话,也许用工具修复后怕进不去.

附:修复工具tools.rar

kenlistian 2009-02-12 18:00 发表评论

delphi接口基本学习摘录

kenlistian — Sun, 04 Jan 2009 08:16:00 GMT

声明接口
        IMyInterface = interface(IInterface)
         ['{63E072DF-B81E-4734-B3CB-3C23C7FDA8EA}']
              function GetName(const str: String): String; stdcall;
              function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
              function _AddRef: Integer; stdcall; //使接口引用数加1。
              function _Release: Integer; stdcall; //使接口引用数减1，当小于等于0时作释放动作。
        end;

说明：如果有继续关系则在括号里填父接口，否则省却，如：IMyInterface = interface这样就行。
说明：GUID可选，如要实现具有COM特性的接口则需要加上
             zc：接口GUID，最好加上，最好分离功能及其封装。

接口中所有的数据成员都是public访问限制，数据成员指定其为不能私有或其他的域成员。
接口中的方法只能有声明，看上去像没有构造和析构方法的纯虚类。

type
IInterface = interface
    ['']
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
end;

该接口实现了QueryInterface，_AddRef,_Release,凡是继承于该接口，则不需要声明
该三个虚函数。
在实现新接口的类中，也要从TInterfacedObject 后继承，原因在于该类实现以上函数的
实现部分，不要考虑QueryInterface等完成。如下：
type
TNewInterfaceClass = class(TInterfacedObject, INewInterface)
   ...
end;

接口的实现
         接口服务是由类来实现的。
                TIntfClass = class(TObject, IMyInterface)
                private
                    FCounter: Integer;
                    FRefCount: Integer;
                public
                    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
                    ...
                end;

获取接口
    a. 使用类型转换。
        如：var aIntf: IMyInterface;
               begin
                       aObj := TIntfClass.Create;
                        try
                            aIntf := (IMyInterface(aObj);
                                ...
    b. 利用Delphi编译器内建机制。如：aIntf := aObj。
    c. 利用对象的QueryInterface方法。
           如
                 OleCheck(aObj.QueryInterface(IID, aIntf)); 只能存取有GUID的COM接口。
   d. 利用as操作符。
         使用as操作符必须符合下面条件：
    1.接口要从IInterface接口继承下来。
    2.有GUID值
      在Delphi7中接口的实现类还必须是从TInterfacedObject继承下来才行，
    如 TIntfClass = class(TInterfacedObject, IMyInterface)
       zc: 最好用该方法，考虑使用接口有其他语言开发l情况下的使用。

接口和对象生命期
对接口直接=nil即可，freeAndNil则不需要。因接口特性，会计数减少1

接口的委托(Interface Delegation)
分为两种：
1. 对象接口委托
2. 类对象委托。
（略）

kenlistian 2009-01-04 16:16 发表评论

delphi下编写filter以及调试

kenlistian — Sun, 04 Jan 2009 03:29:00 GMT

一般用dspack开发directshow

1.从工程文件以dll方式建立filter工程,在工程头加上如下

uses
BaseClass,
xxx.pas; //编写filter单元的文件,套加

{$E ax} //编译出.AX格式文件

exports //导出Filter相关的函数,定义在BaseClass.Pas
DllGetClassObject,
DllCanUnloadNow,
DllRegisterServer,
DllUnregisterServer;

begin
end.

2.创建单元文件main.pas,下面基本可以照套.

unit main;
interface
uses BaseClass, ActiveX, DirectShow9, Windows;

{DirectShow9 定义了各种DirectShow基本接口和类型,
BaseClass 实现了各种接口的基类}

const
CLSID_MyClass : TGUID = '{90A70CF4-A445-4211-B962-308054E93023}';

//定义Filter媒体类型和Pin的属性,这里是演示TransformFilter如下:
MyPinTypes : TRegPinTypes =
(clsMajorType: @MEDIATYPE_NULL;
clsMinorType: @MEDIASUBTYPE_NULL);

MyPins : array[0..1] of TRegFilterPins =
      ((strName: 'Input'; bRendered: FALSE; bOutput: FALSE; bZero: FALSE;
        bMany: FALSE;     oFilter: nil;              strConnectsToPin: nil;
       nMediaTypes: 1;    lpMediaType: @MyPinTypes),
       (strName: 'Output'; bRendered: FALSE; bOutput: TRUE; bZero: FALSE;
        bMany: FALSE;      oFilter: nil;            strConnectsToPin: nil;
       nMediaTypes: 1;     lpMediaType: @MyPinTypes));

//从基类TBCTransInPlaceFilter派生出一个TransformFilter,
// TBCTransInPlaceFilter支持数据的"就地"处理,从这个基类派生出新的Filter,
// 只要实现function Transform(Sample: IMediaSample): HRESULT;
// function CheckInputType(mtin: PAMMediaType): HRESULT
//这两个虚函数就可以使用了

type
TMyClass = class(TBCTransInPlaceFilter)
function Transform(Sample: IMediaSample): HRESULT; override;
function CheckInputType(mtin: PAMMediaType): HRESULT; override;
end;

implementation

function TMyClass.CheckInputType(mtin: PAMMediaType): HRESULT;
begin
// 这里是检测mtin的媒体类型,如果跟我们所要的是一样,我们就返回S_OK,否则返回S_False,
//if IsEqualGUID(mtin.majortype, MEDIATYPE_Video) and IsEqualGUID(mtin.subtype, MEDIASUBTYPE_RGB24) then
// result := S_OK else result := S_False;
result := S_OK;
end;

function TMyClass.Transform(Sample: IMediaSample): HRESULT;
begin
//这里就是我们实现对Sample的数据进行处理的代码,可以是视频的处理,
//可以是音频的处理,要看输入PIN(MyPinTypes)是什么样的媒体类型
result := NOERROR;
end;

initialization

//类工厂注册Filter的一些信息,
// 第一个参数是Filter本身的实现对象TMyClass,
// 第二个参数是Filter的名字'MyFilter',
// 第三个参数是Filter的GUID CLSID_MyClass,
// 第四个参数是注册Filter的类型,
// 第五个参数是Filter的Merit值,这个值如果设得高的话,智能连接里被使用率就要高,
// 第六个参数是PIN的个数,这里一个输入PIN一个输出PIN,所以是2,
// 最后一个参数是PIN的类型属性,就是上面定义的MyPins数组

TBCClassFactory.CreateFilter(TMyClass, 'MyFilter', CLSID_MyClass,
CLSID_LegacyAmFilterCategory, MERIT_DO_NOT_USE, 2, @MyPins);
end.

调试FIlter
1. 先注册.用regsvr32
2. 在Run Parameters里的Host Application里设置Graphedt.exe的路径,
3. Run
    如果跟不进去,则在工程文件编译开关中加入debug宏(或定义在工程文件中)
    还跟不进去的话，估计是在工程管理中有多个工程，在工程管理中只能有
    一个工程。（不知道是delphi7的问题还是其他，反正我机子上是不能在多工
   程文件下跟进去。怪）

kenlistian 2009-01-04 11:29 发表评论