2016年3月30日
delphi 使用superobject实现jsonrpc的http远程调用 good
[delphi] view plain copy procedure TForm5.Button4Click(Sender: TObject); var O, item: ISuperObject; Strm: TStringStream; result: string; ctx: TSuperRt Read More
posted @ 2016-03-30 20:41 findumars Views(1057) Comments(0) Diggs(0)
delphi cmd（4个例子都是通过管道取得）
[delphi] view plain copy //K8执行DOS并返回结果 function RunDosCommand(Command: string): string; var hReadPipe: THandle; hWritePipe: THandle; SI: TStartUpInfo Read More
posted @ 2016-03-30 20:34 findumars Views(2297) Comments(0) Diggs(0)
取CPU序列号，获取网卡，取硬盘系列号，获取目录下的文件，强制删除目录
[delphi] view plain copy unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type Read More
posted @ 2016-03-30 20:33 findumars Views(1234) Comments(0) Diggs(0)
Delphi中@,^,#,$特殊符号意义
概述： ^: 指针 @: 取址 #: 十进制符 $: 十六进制符 概述： ^: 指针 @: 取址 #: 十进制符 $: 十六进制符 @:取址运算符; var int:integer; p:^integer; begin new(P); int:=24; p:=@int; dispose(P); en Read More
posted @ 2016-03-30 20:28 findumars Views(1769) Comments(0) Diggs(0)
delphi 文件的读取（二进制文件和文本文件）
[delphi] view plain copy procedure TForm_main.Button5Click(Sender: TObject); var myStream:TFileStream; myFileSize:Integer; myTextFile:TextFile; text,d Read More
posted @ 2016-03-30 20:25 findumars Views(4033) Comments(0) Diggs(0)