天行健,君子以自强不息;地势坤,君子以厚德载物。


预览模式: 普通 | 列表

Delphi在Webbrowser上绘制图像

unit Unit1;

interface

uses

查看更多...

Tags: Delphi Webbrowser 图像 TCanvas TBitmap

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 439

AdminCMD

program AdminCMD;

{$APPTYPE CONSOLE}

uses

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 204

Delphi利用Webbrowser登陆QQ群文档

unit Unit1;

interface

查看更多...

Tags: Delphi Webbrowser QQ群 文档

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 308

Delphi获取系统服务描述信息

program Project1;

{$APPTYPE CONSOLE}

uses

查看更多...

Tags: Delphi 系统服务 信息 QueryServiceConfig2

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 289
Delphi中使用IXMLHTTPRequest如何用POST方式提交带参



说明:服务器端为JAVA,编码UTF-8,返回数据编码UTF-8;数据交换格式JSON。

查看更多...

Tags: Delphi IXMLHTTPRequest POST 参数

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 343

Delphi Class of 类引用

Delphi Class of 类引用也就是类的类型,也可说是指向类的指针



查看更多...

Tags: Delphi class 类引用 TStringsList

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 294

Get TreeView Node By Text(TreeView上查找)

 How to locate (search and select) a TreeView node given by node text using Delphi. 

Many times while developing Delphi applications using the TreeView component I've bumped into a situation to need to search for a tree node given by only the text of the node.

In this article I'll present you with one quick and easy function to get TreeView node by text.    

A Delphi example

First, we'll build a simple Delphi form containing a TreeView, a Button, CheckBox and an Edit component - leave all the default component names.

查看更多...

Tags: TreeView Node Text

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 450

Delphi获取网卡MAC地址的两种方法

1.使用Dll中的API函数:

function MacAddress: string;
var
  Lib: Cardinal;

查看更多...

Tags: Delphi 网卡 MAC地址 方法

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 258

Delphi中Ocx的动态注册方法

 方法1


uses windows;

type
   TDllRegisterServer = function: HResult; stdcall;
 
function RegisterOCX(FileName: string): Boolean;
var
   OCXHand: THandle;
   RegFunc: TDllRegisterServer;
begin
   OCXHand := LoadLibrary(PChar(FileName));
   RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer');
   if @RegFunc <> nil then
     Result := RegFunc = S_OK
   else
     Result := False;
   FreeLibrary(OCXHand);
end;

function UnRegisterOCX(FileName: string): Boolean;
var
   OCXHand: THandle;
   RegFunc: TDllRegisterServer;
begin
   OCXHand := LoadLibrary(PChar(FileName));
   RegFunc := GetProcAddress(OCXHand, 'DllUnregisterServer');
   if @RegFunc <> nil then
     Result := RegFunc = S_OK
   else
     Result := False;
   FreeLibrary(OCXHand);
end;

方法2

procedure TForm1.Button1Click(Sender: TObject);
var
   astr:String;
   bstr:String;
   ProcAddr:Pointer;
   DllAddr:Integer;
begin
   od1.Execute;
   astr:=od1.FileName+chr(0);
   DllAddr:=LoadLibrary(PChar(astr));
   if DllAddr<>0 then
     begin
       bstr:='DllregisterServer'+chr(0);
       //只要将以上处改为DllUnRegisterServer即不注册ActiveX控件
       ProcAddr:=GetProcAddress(DllAddr,PChar(bstr));
       if ProcAddr<>nil then
         CallWindowProc(ProcAddr,DllAddr,0,0,0)
       else
           ShowMessage(od1.FileName+'不是有效的控件');
       FreeLibrary(DllAddr);
     end
   else
       ShowMessage(od1.FileName+'无法装载');
end;



uses OLEctl {, ....};
interface{...}
var  OCXHandle: THandle;
RegFunc: TDllRegisterServer;
begin
 
OCXHandle:= LoadLibrary('c:/XXX.ocx');
 
RegFunc := GetProcAddress(OCXHandle, 'DllRegisterServer');
 
if RegFunc <> 0 then ShowMessage('Error!');
 
FreeLibrary(OCXHand);
 
end;
 
或者
 
WinExec("regsvr32.exe/s yourocx.ocx",SW_NORMAL);

 

Tags: Delphi Ocx 动态注册 .

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 242

简易对象垃圾回收框架 for Delphi

(一).缘起


1.1 我的一个出错程序

查看更多...

Tags: Delphi 对象 垃圾回收 框架

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 273