02 2011 档案
摘要：http://cy03wqh.blog.163.com/http://blog.csdn.net/sunstone/category/608413.aspx
阅读全文
摘要：unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm2 = class(TForm) Timer1: TTimer; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; L
阅读全文
摘要：FROM:http://hi.baidu.com/ytlvy2008/blog/item/e5a03ad1b1447cdb572c849f.html多线程编程(1) - 先入门再说。 多线程应该是编程工作者的基础技能, 但这个基础对我来讲的确有点难(起码昨天以前是这样). 开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先试试这个:procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin for i := 0 to 500000 do begin Canvas.TextOut(10, 1
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);varszText: array[0..254] of char;hCurrentWindow :hwnd;r:trect ;point:tpoint;begin hCurrentWindow := GetWindow(Handle,GW_HWNDFIRST); memo1.Clear; while hCurrentWindow <> 0 do begin if GetWindowText(hCurrentWindow ,@szText,255) > 0 then if pos(&#
阅读全文
摘要：unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm2 = class(TForm) Timer1: TTimer; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure Timer1Timer(Sender: TObject); private { Private declara
阅读全文
摘要：谁能使得以下代码能够快点，或者用其他方法实现功能，目前2000行数据需要10秒钟左右，如果不加红色部分代码的话需要1秒。unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,RzLstBox,RzChkLst,DB,MemDS,DBAccess,Uni,ComCtrls,RzTreeVw,SQLServerUniProvider;typeTForm1=class(TForm)UniConnection1:TUniConnection;U
阅读全文
摘要：最近写了一个小脚本，在公司里有时还是有用的::code@echo offtitle 一键处理打印机因任务不能取消，无法接着打印。 Power BY AK47--DATA:2010-03-31set serverName="Spooler":queryfor /f "skip=3 tokens=4" %%i in ('sc query %serverName%') do set "zt=%%i" &goto :next:nextif /i "%zt%"=="RUNNING"
阅读全文
摘要：好久没写技术文了 datasnap传大流。 完整代码，同时感谢叶兄传流的指点,（只公开十天）附：下面代码，转载请注明出处::code服务端：function TServerMethods1.DownLoadFile(AfileName: string): TStream;constSaveFolder = 'FSimage\';defaultName = 'Default.png'; // 此文件必须有//用默认文件处理不存在图片varALLpath: string;beginALLpath := LocalPath + SaveFolder + AfileNa
阅读全文
摘要：//相关生成代码，VirtualStringTree有点难入门，研究了二天半，终于入门了。PTagCustomListItem = ^TTagCustomListItem;TTagCustomListItem = record Name: string; Id: string;end;varMainFrm: TMainFrm;SysPath: string;List: TStringList;implementation{$R *.dfm}uses fDMfrm;procedure TMainFrm.BuildTree;beginList.Clear;Self.VirtualStringTre
阅读全文
摘要：今天在做拍卖系统的时候，因考虑到网络状况问题，需要将拍品所有信息下载到本机，包括拍品图片，因此需要实现从Internet下载文件的功能。下面是代码片段：1..23private4functionDownloadFile(SourceFile,DestFile:string):Boolean;5procedureURL_OnDownloadProgress(Sender:TDownLoadURL;6Progress,ProgressMax:Cardinal;7StatusCode:TURLDownloadStatus;8StatusText:String;varCancel:Boolean);9
阅读全文
摘要：以前不管是做什么软件，只要是关于网页post提交cookie的，我都是用TcpClient，为什么呢？因为我一直找不到idhttp提交Cookie的方法，今天终于有了结果。在Idhttp中，要想修改Cookie的代码，就要用到Request的RawHeaders中的Values值。这个值怎么用呢？Values接受一个string的值，该值指定了所访问的变量。如HTTP头是这样定义的(其中一些)：Accept-Language: zh-cnContent-Type: application/x-www-form-urlencodedAccept-Encoding: gzip, deflateUs
阅读全文
摘要：procedureTForm1.Cut1Click(Sender:TObject);beginSendMessage(ActiveControl.Handle,WM_Cut,0,0);end;procedureTForm1.Copy1Click(Sender:TObject);beginSendMessage(ActiveControl.Handle,WM_Copy,0,0);end;procedureTForm1.Paste1Click(Sender:TObject);beginSendMessage(ActiveControl.Handle,WM_Paste,0,0);end;//如果你开
阅读全文
摘要：上家公司有这样的一个需求：在网页中点一个链接，启动我们自己的一个客户端程序，并接受链接传递过来的参数，在客户端做相应的处理1。自定义浏览器协议 只要给注册表写进去一点信息就可以实现将自己定义的协议（如：mylink://）跟某客户端程序关联，google一下就可以了2.只能让这个客户端运行一个实例staticvoidMain(string[]url){Application.EnableVisualStyles();Application.SetCompatibleTextRenderingDefault(false);if(url!=null&&url.Length>0
阅读全文
摘要：都说QQ登陆器可以防止QQ密码被盗,网上下的,担心有后门,这里自己写个QQ登陆器,关键代码如下://Base64加密function Base64(Src: string): string;const DataSet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';var i, ModLen: integer; Current: string; Buf: array[1..3] of Byte; NewBuf: array[1..4] of Byte;begin result :=
阅读全文
摘要：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Buttons, ExtCtrls,Registry, ExtDlgs, bsSkinShellCtrls, BusinessSkinForm, bsSkinBoxCtrls, bsSkinCtrls;typeTTform1 = class(TForm) GroupBox1: TGroupBox; Bevel1: TBevel; Label2: TLabel; B
阅读全文
摘要：本文主要讲的是如何使用delphi编程来记录QQ的聊天记录,下面是主要代码，供参考：function Process_ReadRichEditText(AHandle: THandle): WideString;var vGetTextEx: GETTEXTEX; vGetTextLengthEx: GETTEXTLENGTHEX; L: Integer; vProcessId: DWORD; vProcess: THandle; vPointer: Pointer; vNumberOfBytesRead: Cardinal;begin Result := ''; if not
阅读全文
摘要：以TM2009为例，检查了一下，未登录之前一个窗体，上边两个控件，登录以后，窗体捕获到一个控件，根据这个，首先找到QQ登录框，输入用户名，密码的位置，获取窗体句柄的具体代码如下:这里先定义了一个record类型，1 TQQWnd= record2 QQWnd,QStatusWnd: HWND; //QQ窗口句柄，QQ弹出登录状态句柄3 QQNumWnd, QQPassWnd: HWND; //QQ号码输入句柄，QQ密码输入句柄4 end;51 function GetQQLoginHwdvar A QQWnd: TQQWnd: Boolean;2 var3 WinTitle: array[0.
阅读全文
摘要：本文主要讲解的是delphi编程模拟发送QQ消息！即利用外部程序发送QQ消息，代码很少，其实原理就是，找到QQ消息输入框，然后利用sendmessage传送一个文本信息进去,再找到发送按钮，模拟点击按下发送按钮就可以：var hd,hwnd1,hwnd2,hwnd3,hwnd4:DWORD;begin //学Delphi网群 － 群 hwnd1:=FindWindow(nil,'学Delphi网群 － 群');//根据标题名找handle if hwnd1<>0 thenbegin hwnd2 := FindWindowEx(hwnd1, THandle(nil),
阅读全文
摘要：unit HKProc; interface uses Windows, Messages,Dialogs,iniFiles,SysUtils; var hNextHookProc: HHook; procSaveExit: Pointer; function CBTProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; function EnableHotKeyHook: BOOL; export; function DisableHotKeyHook: BOOL; export; implementat
阅读全文
摘要：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)Timer1: TTimer;Memo1: TMemo;Label1: TLabel;procedure Timer1Timer(Sender: TObject);private{ Private declarations }public{ Public declarations }end;var
阅读全文
摘要：zzz可以调用函数FindWindow(窗口类名,窗口标题)获得窗口的句柄，然后调用EnumChildWindows(父窗口,回调函数名,参数)来获得父窗口下的子窗口的句柄，代码实现如下#include<windows.h>BOOLCALLBACKEnumChildProc(HWNDhWnd,LPARAMlParam);intWINAPIWinMain(HINSTANCEhInstance,HINSTANCEhPrevInstance,LPSTRlpCmdLine,intnCmdShow){charclassName[]="notepad";HWNDhWnd=:
阅读全文
摘要：varrow:integer;sqlstr,sqlstr2:String;beginASG2.ScrollBars:=ssNone;ASG2.RowCount := 1; //表格为空row:=ASG2.rowcount-1;sqlstr:='select * from Ta where 1=1 '; if Et1.Text<>'' then begin //sqlstr2:='%'+Et1.Text+'%'; sqlstr:=sqlstr+' and UPPER(KHMC) like UPPER('+QuotedStr('%'+Et1.Text+'%')+')'; end;
阅读全文
摘要：http://www.52delphi.com/list.asp?ID=1246
阅读全文
摘要：今天一个朋友在使用UNIGUI碰到了问题，他要遍历窗体上的控件，然后根据类名进行相应控制。原来的程序为：procedure TMainForm.Fj_component;var i: Integer;begin for i := 0 to MainForm.ComponentCount - 1 do begin UniMemo1.Lines.Add(MainForm.Components[i].ClassName); if MainForm.Components[i] is TUniBitBtn then begin UniLabel1.Caption := 'found'; (MainFor
阅读全文
摘要：1.取消新窗体的systemmenu，目的是去掉窗体的关闭按钮X2.在窗体加上新按钮，点击事件为close;3.在窗体的onclose实践中添加如下代码action:=canone;//这句一定要放在messagedlg前面messagedlg(xxxxxxx);http://blog.csdn.net/sunstone/archive/2011/01/29/6169286.aspx
阅读全文
摘要：在ServerModule单元中有如下属性，可以使用ServerModule.UniServerModule.ServerStats.ActiveSessionsServerModule.UniServerModule.ServerStats.MaxSessionsServerModule.UniServerModule.ServerStats.BytesSentServerModule.UniServerModule.ServerStats.BytesReceivedhttp://blog.csdn.net/sunstone/archive/2011/01/29/6169281.aspx
阅读全文
浙公网安备 33010602011771号