随笔分类 - Delphi
摘要：◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：var xpanel,ypanel,xlabel,ylabel:integer;PANEL的MouseMove事件：xpanel:=x;ypanel:=y;PANEL的DragOver事件：xpanel:=x;ypanel:=y;LABEL的MouseMove事件：xlabel:=x;ylabel:=y;LABEL的EndDrag事件：label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;◇[DELPHI]取
阅读全文
摘要：function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end;end;procedure TForm1.btn2Click(Sender: TObject);var SourceFile,DestFile:string;begin SourceFile := 'http://www.baidu.com/'; De
阅读全文
摘要：procedure MyThread; stdcall;begin while True do begin end;end;procedure Func;var hThread:THandle; ThreadId:Cardinal; str:string;begin str := '123'; hThread := CreateThread(nil, 0, @MyThread, nil, 0, ThreadId); if (WaitForSingleObject(hThread, 5000) = WAIT_TIMEOUT) then begin CloseHandle(hThr
阅读全文
摘要：在Delphi中使用dbexpress来连接Mysql，并通过感知控件来显示数据库中的内容，但在将TSQLConnection、TSQLDataSet和TDataSource的属性都设置好后，在感知控件TDBEdit中却只能显示数值类型的字段记录，最后百度了一下，解决方法如下：/*-----------------------------------------------------------------------------------------*/双击你的query或者table控件~~右键-添加全部字段-在指定字段的Ongettext事件里写入 Text:=Sender.AsSt
阅读全文
摘要：/*--------------------------*/VC中的.H代码：/*--------------------------*/#ifndef CFUN_H#define CFUN_Hextern "C" __declspec(dllexport) int add(int a, int b);#endif/*--------------------------*/VC中的CPP代码：/*--------------------------*/// cfun.cpp : 定义 DLL 应用程序的入口点。//#include "stdafx.h"#
阅读全文
摘要：解决：http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html有解决方案。支持5.0.x版本。下载后的配置在\delphi7\dbexpress\dbxdrivers.ini 添加[MYSQL5]节：[MYSQL5]GetDriverFunc=getSQLDriverMYSQL50LibraryName=dbxopenmysql50.dllVendorLib=libmysql50.dllBlobSize=-1Database=DBNAMEErrorResourceFile=HostName=ServerNa
阅读全文
摘要：初步了解了一下HTTP1.1小试了一下，利用TcpClient控件发送HTTP1.1命令到IIS后取得网页内容。unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Sockets;typeTForm1=class(TForm)Button1:TButton;TcpClient1:TTcpClient;Memo1:TMemo;Edit1:TEdit;procedureButton1Click(Sender:TObject);privat
阅读全文
摘要：需引用WinSock单元procedure TForm1.btn1Click(Sender: TObject);var WSAData:TWSAData; Socket1:TSocket; Addr:TSockAddr; Re:Integer;begin //初始化WinSock if (WSAStartup(MakeWord(2,0), WSAData) <> 0) then begin mmo1.Lines.Add('WinSock初始化失败！'); Exit; end else mmo1.Lines.Add('WinSock开始运行……');
阅读全文
摘要：版本：indy10.2.3经delphi7下的安装成功，delphi11和delphi6的安装没有试用【自动安装】Lib\Fulld7.bat双击运行即可。自动会把bpl文件拷到C:\windows\system32重新打开delphi7会自动加载 dclIndyCore70.bpl dclIndyProtocols70.bpl【手工安装】1.windows的path路径中增加D7的路径在启用delphi7时，要能加载dclIndyCore70.bpl这个文件如果是自动安装，这个文件会拷到C:\windows\system32\dclIndyCore70.bpl,所以不用改path2.delp
阅读全文
摘要：用Delphi实现智能化Ping命令功能2007-11-08 14:21《软件报》28期众所周知，Ping命令是Windows系统自带的一个针对TCP/IP协议的可执行命令，其主要作用是通过发送数据包并接收应答信息来检测两台计算机之间的网络是否连通。当网络出现故障时，可以用这个命令来检测故障和确定故障地点。但在MS-DOS方式下执行此命令，而且每秒钟执行一次Ping操作，显得似乎有些另类，今天，我们将实现智能化Ping命令的功能，并实现操作的可视化。一、系统Ping命令的功能与执行命令执行格式：Ping IP地址 参数其中，参数最常用的就是-t，用于不间断Ping操作。在执行Ping的过程中，
阅读全文
摘要：http://www.cnblogs.com/del/archive/2008/12/28/993840.html
阅读全文
摘要：Delphi 与正则表达式http://www.cnblogs.com/del/category/113551.HTML
阅读全文
摘要：XML文件内容;<?xmlversion="1.0"encoding="GB2312"?><我的书><漫画作者="小飞"><书名>火影忍者</书名><价格>100</价格></漫画><漫画作者="大飞"><书名>死神</书名><价格>100</价格></漫画><漫画作者="阿斗"><书名>天牢</书名
阅读全文
浙公网安备 33010602011771号