BlogJava-爱听古典的蚂蚁-随笔分类-C++Builder 相关

概率论

小蚂蚁 — Tue, 27 Nov 2007 16:51:00 GMT

前几天有个大学生找到我要写个程序,又不想让我知道程序用在什么地方,画了半天xyz 我大概知道他的意思,我问他是不是用来买彩票的,他不好意义的确认了.真想和他讲讲概率论,但看他研究得这么起劲也不好打击他,何况写这程序我可以收一笔小钱来买点书.算法是这样的:某个游戏有总数个N球,每次将会出M个球,如果你买B个球的话就能挣钱.现在要写个程序,随机在N个球里找出A个球(N>M>A>B),A个球里找出所有B个球的组合,并用这些B个球去匹配出M个球的历史记录,找到最远没出这B个球的买法A.看起来复杂,其实可以通过一个镶套的递归算法来解决,我用了单独一个线程来和处理界面的程序分开,把递归算法用个Recusion的C++类封装起来(幸亏没用C的写法,不然写到后面就惨了),加上点ADO的数据库代码,完工!
但我不认为那小伙子能用这程序挣到钱,因为概率论的精髓就是:本次发生的事件和上次无关.

小蚂蚁 2007-11-28 00:51 发表评论

芝麻开门

小蚂蚁 — Fri, 23 Nov 2007 15:15:00 GMT

VCam SDK正是我要找的东西,除了那个水印外没有其他限制,估计加密机制在驱动层里，我要学的东西已经够多了,没打算为了解这东东专门去学windows的驱动编程,但还是想碰下运气,跟踪了设置授权码的函数,找到DeviceIOControl的时候脑子里有个念头闪了一下,找来IDA反编译VCam的驱动,查找Function Code,接下来继续看...写这程序的老兄估计和我一样懒,为了调试方便加了句...呃...加了句"芝麻开门"!呵呵,美好的一天.

小蚂蚁 2007-11-23 23:15 发表评论

Flash 控件

小蚂蚁 — Tue, 19 Dec 2006 04:28:00 GMT

搞定一个Flash的VCL控件，跟踪不是很难，就是点多，花了一上午的时间

小蚂蚁 2006-12-19 12:28 发表评论

Auto Update

小蚂蚁 — Sat, 21 Oct 2006 06:42:00 GMT

上网找了很多资料，关于自动升级的实现都是基于web的，对我手头上的基于LAN的程序没有帮助，既然程序是数据库的应用，那为什么不把升级的程序放到数据库里呢？mysql的blob字段有长度限制，大概800K左右，要做分段处理，但BCB的Stream机制可以很方便的解决问题。

        TMemoryStream* memStream = new TMemoryStream();
        TFileStream* fStream = new TFileStream("update.exe",fmCreate);
        while (!update->Eof)
        {
          update->GetBlob("Data")->SaveToStream(memStream);
          memStream->SaveToStream(fStream);
          update->Next();
        }
        delete memStream;
        delete fStream;

多优雅的处理，BCB写数据库应用好得没话说。

小蚂蚁 2006-10-21 14:42 发表评论

任务栏上的图标

小蚂蚁 — Wed, 20 Sep 2006 14:27:00 GMT

刚写好的程序要用SSL通道来加密数据，为了实现方便通过加载stunnel来实现，程序开始前用CreateProcess打开stunnel，结束后PostMessage(WM_QUIT)，但任务栏上该死的stunnel图标却要用鼠标晃一下才消失，没办法只好“帮”它一把：Shell_NotifyIcon，HWND参数可以用FindWindow找到，uID麻烦点，用调试工具拦截stunnel调用Shell_NotifyIcon的地址，uID=1。

小蚂蚁 2006-09-20 22:27 发表评论

RecordViewDlg

小蚂蚁 — Wed, 20 Sep 2006 02:46:00 GMT

Info Power 是个很棒的VCL，特别是RecordViewDlg控件很有特点，在添加和编辑数据时很有用，但在打开EnterToTab参数时不能跳到确认键上，必须用鼠标操作。还好有它的源码，稍微修改一下就可以了：
//--------------------
// wwrcdvw.pas
//--------------------
......
      RecordPanel:= TPanel.create(RecordViewForm);
      with RecordPanel do begin
         parent:= RecordViewForm;
         Left := 0;
         Top := 41;
         Align := alClient;
         BevelInner := bvLowered;
         BorderWidth := 4;
         Caption := '';
         TabOrder := 0;   //I hack
         Name:= 'RecordPanel';
         visible:= True;
      end;

      if (rvokShowOKCancel in OKCancelOptions) then begin
         ButtonPanel:= TPanel.create(RecordViewForm);
         with ButtonPanel do begin
            parent:= RecordViewForm;
            Left := 0;
            Top := 0;
            Align := alBottom;
            Name:= 'UserPanel';
            Caption := '';
            TabOrder := 1; //I hack
            visible:= True;

            OkBtn:= TButton(wwCreateCommonButton(RecordViewForm, bkOK));
            OKBtn.Default:= not (rvoEnterToTab in Options);
            OkBtn.parent:= ButtonPanel;
            OKBtn.visible:= True;
            OKBtn.OnClick := OKBtnClick;
            OKBtn.TabStop:= True; //I hack

            CancelBtn:= TButton(wwCreateCommonButton(RecordViewForm, bkCancel));
            CancelBtn.Parent := ButtonPanel;
            CancelBtn.visible:= True;
            CancelBtn.OnClick := CancelBtnClick;
            CancelBtn.TabStop:= True; //I hack
            CancelBtn.Cancel:= False; { Allows Escape to be processed }

bottomPad := 1 + GetSystemMetrics(SM_CYDLGFRAME)*2 +8 +1; {Win95 fix }
Height := OkBtn.Top + OkBtn.height + BottomPad;

            OkBtn.Top := GetSystemMetrics(SM_CYDLGFRAME) + 5;
            CancelBtn.Top := GetSystemMetrics(SM_CYDLGFRAME) +5;
         end;
      end;

......

小蚂蚁 2006-09-20 10:46 发表评论