明明先生的专栏

原创 行变列，查找某一时刻附近记录

查询某一时刻的记录，区分就地操作及远程操作。如果这个时刻附近有上位机操作记录则认为是远程操作，若无为就地操作

转载 sizeof的用法

转自w57w57w57的专栏  原文链接：http://blog.csdn.net/w57w57w57/article/details/6626840摘要：、Sizeof的作用非常简单：求对象或者类型的大小。然而sizeof又非常复杂，它涉及到很多特殊情况，本篇把这些情况分门别类，总结出了sizeof的10个特性：(0)sizeof是运算符，不是函数；(1)size...

原创 可变参数导出EXCElL

  //.H文件#include <stdarg.h>extern void StringGridToExcelMutiSheet(String CentStr,int Strgridcount,...);//多个页面，可变参数void StringGridToExcelMutiSheet(String CentStr,int Strgridcount,......

转载 去掉delphi2010启动时显示的升级对话框

找到如下的结点[HKEY_CURRENT_USER/SOFTWARE/CodeGear/BDS/7.0/AutoRun/UpdateCheck] 清空下面两个键的值"ProgramToRun"="""CommandLine"=""

原创 取重复数据的第一个条记录

  select  *  from [RemoteControlTryRecord]  a where id=(  select top 1 ID   from RemoteControlTryRecord  where a.MACID = MACID and ControResult=1   and ControlTime between '2018-04-08 00:00:00' and '2...

原创 服务器与客户间的通讯协议

原创 查询每天 所有设备试验成功了多少次，失败的SQl语句

  select count ( distinct macid)as Maccount , [ControlTime],sum (case when ControResult=1 then 1 else 0 end)   as SuccessCount,sum (case when ControResult=2 then 1 else 0 end) as  failCount from    ( ...

转载 VC DLL转换C++builder Lib

1、coff2omf用于转换Coff格式的Lib 到 OMF格式的Lib 。在cmd中的使用形式为coff2omf  c:/ml.lib  c:/ml1.lib 。其中coff2omf  的使用环境默认为打开cmd输入coff2omf  即可。转换完成之后，通过单击【project】->【Add to project】->【lib文件】->【导入】来把刚刚转换好的lib文件导入到工程里

原创 BCB project　options->application-> load icon 按钮灰显解决办法

主要为了解决发布的EXE程序 无法改变图标的问题。1. 打开工程 选择菜单project -> edit option source 进入工程BPR.XML文件编辑状态2. 找到“YFZ_Trans.res"/> ；       其中YFZ_Trans为工程文件名称；3. 找到“  ”     将此项内容修改为       YFZ_Trans.res" FORMNAME="" UN

转载 //此函数通过传入的进程ID来终止(杀死)进程

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明http://www.blogbus.com/flyxxtt-logs/43973152.html      这个函数可以用来终止或者说杀死一个进程，它不会留给进程及其所有线程清理的时间，系统会马上终止(杀死)这个进程的所有线程，致使进程终止。在使用此函数前我们必须要调用OpenProcess函数来获得我们要终止(杀死

原创 判断已打开线程与本进程对比

test: PROCESSENTRY32 process; HANDLE handle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); process.dwSize = sizeof(PROCESSENTRY32); if(!Process32First(handle,&process)) {

原创 我写的一个模拟管道算法

//在很多组态软件上都 管道图元，可以根据模拟出 管道内流动的效果。//这个算法只是模拟起来看是向管道流动，其实还是有些不完美。 但是基本也是够用。利用部分直角三角形的特点，如勾股定理，正弦，余弦函数。其它人估计看不懂。自己留个记念。借用Flex 中的线段工具 起点端点移动，产生类似管道流动的效果。加油，努力 。奋斗 。///初始化 if (Fle

转载 VARIANT 类型说明

string CAdoConnection::VariantToString(const _variant_t &var){ string strValue; TCHAR szValue[1024] = {0x00}; switch (var.vt) { case VT_BSTR://字符串 case VT_LPSTR://字符串 case VT_LPWSTR://字符串 s

原创 stringgrid 删除选中行

if (StrGridSensorList->Row>0) { for (int i=StrGridSensorList->Row;iRowCount-1;i++) { StrGridSensorList->Rows[i]->Assign(StrGridSensorList->Rows[i+1]); }

原创 线程安装退出的方法

// 退出时代码 if (thread_DataSave->Suspended) { thread_DataSave->Resume(); } thread_DataSave->ReturnToMain=true; thread_DataSave->Terminate(); thread_DataSave->WaitFor();

原创 删除文件夹及子文件

void __fastcall TForm_OpenFile::DeleteAllFile(String DstFileName){ HANDLE hFile = NULL; WIN32_FIND_DATA fd = {0}; String UseFile=DstFileName+"\\*.*"; hFile = ::FindFirstFile(UseFi

原创 进度条颜色变化ＢＣＢ

SendMessage(ProgressBarLoding->Handle, PBM_SETBARCOLOR, 0, RGB(255,128,0));

原创 文件夹内容复制（ 包含进度）

void __fastcall TForm_PrjPreView::BitBtnOKClick(TObject *Sender){ String tempstr=ExtractFilePath(Application->ExeName); String ReturnName=Edit_PjoNewName->Text.Trim(); String ProjectFi

原创 C++ builder 中 流式布局 panel块可自动排列

今天领导安排了一项工作，就是在一个窗体界面中显示所有设备的运行概览情况，经过一段时间思考 我决定使用单个窗体来显示一台设备的概览情况，然后用c++builder 6/delphi7 的窗口停靠功能再配合窗体的resize事件来实现。先帖代码 主窗体构造函数： FromList=new TList(); for (int i=0;i<20;i++) {

原创 保证控件与控件父控件背景一体

SetBkMode(Cnvs->Handle,TRANSPARENT); Cnvs->Brush->Style=bsClear; if (AMouseIn) { Cnvs->Brush->Color=RGB(41,90,148); Cnvs->Pen->Color=RGB(41,90,148); Cnvs->Pen->Width=1

原创 一段socket接收判断函数。保证能够接收完成

void __fastcall TServerConnect::TCPClientPort_ReadBuffer(TObject *Sender, TCustomWinSocket *Socket){     int count = Socket->ReceiveLength();    // Socket->     Socket->ReceiveBuf(&RecBuff

原创 应用程序间发送消息

void __fastcall TMainForm::Message_Re_Load(TMessage &Message){ //* if (Message.Msg==WM_COPYDATA) { COPYDATASTRUCT *pCopyData = (COPYDATASTRUCT *)Message.LParam ; int data

原创 c++ builder 中 char 和 AnsiString字符串对比 效率慢的解决办法

在以往的c++开发经验中 我不太喜欢在结构体中直接使用AnsiString 类。 因为涉及到内存复制类或者指针引用是常常会出现莫名奇妙的问题。并且可移值性差。在以往需要处理字符串对比时常常这样写char *S1AnsiString A1if (AnsiString (S1)==A1){ .......................具体处理内容。}但是如果将上述语句写到一个循

转载 颜色叠加算法

由于公司新的软件中需要增加 一种功能。类似组态软件中的图库中的图元可以任意修改颜色 。这样就省去添加多张图片切换操作。在各种搜索引擎中找了好多天，测试了好多遍终于找到了。。非常感觉作者的汇总文章转自叠加模式 http://www.cgspread.com/3551.html                    PS和Nuke的叠加模式计算算法相差甚远，最近想在Nuke

原创 在c++builder 中修改Addflow 控件修改节点的字体

afNode*NewNode; NewNode=AddFlowMain->SelectedNode; if(NewNode!=NULL) { IFontDisp *temp22=(IFontDisp *)NewNode->Font; IFont *piFont=NULL; IFontDisp* pFontDi

原创 c++ builder 6 fatal:error detected Lme279

在BCB IDE中, 选择 "Project/Options" 显示 "Project Options" 窗口.   选择"Packages" 选项卡, 在"Design packages" 选项框,取消选择 "Delphi 1.0 Compatibility Components". 完成, 单击 "OK" 按钮 并且 重新compile 你的项目.

原创 C++ buider 记录shortcut 快捷键

String KeyStr=ShortCutToText(ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData)));

原创 Delphi 调用 C++ 回调函数

//输入函数声明extern "C" __declspec(dllexport) int SetRecNotifyProc( void (*TempRecProForPub)(TICanFrame *TempFrame),char *BusName); //实现int SetRecNotifyProc( void (*TempRecProForPub)(TICanFrame

原创 图片缩放

BiliX:=40 / UseB.Width ; BiliY:=40 / UseB.Height ; if BiliX < BiliY then Fina :=BiliX else Fina := BiliY; if Fina > 1 then Fina :=1; Fin

原创 BCB listview 每列显示图标

lv->Items->Item[j]->SubItemImages[0]=0;

原创 delphi listview vico 模式自绘图标大小不等原因解决。

在AdvancedCustomDrawItem 事件中自绘     TRect Rectone=Item->DisplayRect(drBounds);获得每个item在的大小。 由于每个item 添加时的Cption 的长度（也就是字的多少，由于换行的原因）导致每个Rectone的大小不一样。会影响整体显示效果。所以解决应该名称保待统一

原创 利用图版背景颜色将PANEL透明化

//-------------------- panel 透明 //* HRGN hRgn = NULL; Graphics::TBitmap* MemoryBitmap = new Graphics::TBitmap; MemoryBitmap->Assign(Image7->Picture->Graphic); TColor ttt=MemoryBi

原创 删除表中前N条以外的数据

DELETE FROM 变电所表修改日志WHERE id NOT in          (SELECT TOP 2 id         FROM 变电所表修改日志         ORDER BY SetTime)

原创 遍历文件夹下内容

void __fastcall TFormBdsManager::FindDir(char* parent,String ExPandName){ HANDLE hFile = NULL; WIN32_FIND_DATA fd = {0}; String Parerntstr=AnsiString(parent)+"\\*.*"; hFile = ::FindF

原创 在listview 中写颜色变化

由于无法修改caption列中的颜色。只能修改成两部分。一部分为：void __fastcall TUserCorlorSetForm::lvCorlorAdvancedCustomDrawSubItem( TCustomListView *Sender, TListItem *Item, int SubItem, TCustomDrawState St

原创 获取文件的修改时间

TDateTime __fastcall GetDirLastTime(String DirName){ TDateTime nowtime ; SYSTEMTIME stime; HANDLE hDir = CreateFile (DirName.c_str(), GENERIC_READ,FILE_SHARE_READ|FILE_SHARE_DEL

原创 修改socket 缓存大小。。

int nRecvBuf=2048000; int re=setsockopt(Socket->SocketHandle, SOL_SOCKET,SO_RCVBUF,( char *)&nRecvBuf,sizeof(int )); int temprec=0; int reuse=sizeof(temprec); int cc= getsoc

转载 线程互斥

HANDLE hMutex;     hMutex=CreateMutex(NULL,TRUE,NULL); //TRUE表示调用CreateMutex的线程拥有了互斥对象          WaitForSingleObject(hMutex,INFINITE);//线程多次拥有互斥对象, 主要通过互斥对象内的计数器实现          ReleaseMutex(hMutex)

原创 删除固定时间内数据。

delete DeviceRecentState where data <  CONVERT(VARCHAR(19), dateadd(mi,60,GETDATE()),120)

原创 自己写的多表联合查询，统计，行变列

select trycord.*,b.* from (select top 2 * from RemoteTryRecord where id > ( select isnull(max(id),0) from (select top 2 id from RemoteTryRecord where data between '2014-12-03