Location:
Search - Delphi Pointer
Search list
Description: 函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别在于，过程没有返回值，而函数能有返回值。 在Delphi 7.0中，已为我们定义好了非常多的函数，大致分类有6种：数据类型转换函数、字符串、数组操作函数、文件、磁盘操作函数、内存、指针操作函数、数学运算函数、日期函数。-function sentence by one or more code components, can achieve a particular function. You can use your code more readable, understandable, accelerate programming speed and reducing duplication of code. Similar processes and functions, processes and functions most important difference is that the process did not go to the value and the function can return value. In Delphi 7.0, we have a very good definition of function, broadly categorized into six types : data conversion functions, string and array manipulation functions, documents, disk manipulation functions, memory, pointer manipulation functions, arithmetic function, the date function.
Platform: |
Size: 6623 |
Author: 陈修 |
Hits:
Description: Delphi 指针、地址、指针地址值的应用
Delhi7下编译-Delphi pointer, address, target address of the value of Delhi7 compiler
Platform: |
Size: 752204 |
Author: luotao |
Hits:
Description: 自己写的代码规范，简短有力。 每个项目开头引用 FastMM4。 每个单元开头写上描述、作者、日期等信息 所有New(pointer)的地方IncMem，所有dispose(pointer)的地方DecMem。 所有从TObject继承过来的类改为从TAutoObject继承。 所有从TInterfacedObject继承的接口实现改为从TAutoInterfacedObject或TAutoUserInterfacedObject继承实现。 尽量多的注释。 局域变量非属性变量用"m_"打头命名，局域变量属性变量用"F"打头命名，临时变量用"L"打头命名。
Platform: |
Size: 393 |
Author: lovemoqi@163.com |
Hits:
Description: VC编写的DLL，可以获得硬盘的型号、序列号以及计算机 ID， 带Delphi的源程序，在Win2K下通过，但是没有在Win9X下试过， 感兴趣的朋友可以在Win9X 下试一下，或者编写一个VB的范例。 函数以及定义： function ReadPhysicalDrive(driveID:integer;buffer:Pointer;bufLen:integer):integer; stdcall; external DiskID.dll name ReadPhysicalDriveInNT ; 获得WinNT下的硬盘型号以及序列号。参数driveID为硬盘的位置， IDE1上的主盘为0，类推到IDE2上的从盘的driveID为3。 function ReadPhysicalDrive9X (driveID:integer;buffer:Pointer;bufLen:integer):integer; stdcall; external DiskID.dll name ReadDrivePortsInWin9X ; 获得Win9X下的硬盘型号以及序列号。参数同上 function getHardDriveComputerID:int64; stdcall; external DiskID.dll name getHardDriveComputerID ; 获得计算机的ID -VC prepared DLL, get the hard drive model, serial number and computer ID, with Delphi s source code, adopted in Win2K, but not under Win9X tried interested can try under Win9X, or prepare a VB example. Function as well as the definition: function ReadPhysicalDrive (driveID: integer buffer: Pointer bufLen: integer): integer stdcall external DiskID.dll name ReadPhysicalDriveInNT obtained under WinNT Model and serial number of the hard disk. DriveID parameters for the hard disk location, IDE1 on the main disk to 0, by analogy to IDE2 on driveID from the disk 3. function ReadPhysicalDrive9X (driveID: integer buffer: Pointer bufLen: integer): integer stdcall external DiskID.dll name ReadDrivePortsInWin9X obtained under Win9X Model and serial number of the hard disk. Ibid parameters function getHardDriveComputerID: int64 stdcall external DiskID.dll name getHardDriveComputerID access to the computer s ID
Platform: |
Size: 204800 |
Author: 许豫飞 |
Hits:
Description: const WM_UNSUBCLASS = WM_USER + 2001 //卸载子类化消息 WM_SENDDATA = WM_USER + 2003 //收到要发送新数据包的消息 type PMyDLLVar = ^TMyDLLVar //用来共享的内存数据结构 TMyDLLVar = record SubClass: Boolean //是否已经子类化 HookWindow, SpyWindow: LongWORD //要安装HOOK的窗口及用于接收消息的窗口 hHook: LongWORD //HOOK句柄 OldWndProc: pointer //旧的窗口过程 end-const WM_UNSUBCLASS = WM_USER 2001// Uninstall subclass of news WM_SENDDATA = WM_USER 2003// received new data to be sent information packets type PMyDLLVar = ^ TMyDLLVar// used to share memory data structure TMyDLLVar = record SubClass : Boolean// if the child class of HookWindow, SpyWindow : LongWORD// HOOK to install a window for receiving news and the window hHook : LongWORD// handle OldWndProc HOOK : pointer// old process end window
Platform: |
Size: 198656 |
Author: 黄春标 |
Hits:
Description: program VirtualMemory {$APPTYPE CONSOLE} uses SysUtils, Windows const PageSize = 4096 //定义页面大小 var VmAddress, CommitAddress: Pointer //存放虚拟内存基址 Text: Pchar begin //保留二页虚拟内存 VmAddress := VirtualAlloc(nil, PageSize * 2, MEM_RESERVE, PAGE_READWRITE) if not Assigned(VmAddress) then begin WriteLn( 保留虚拟内存失败! ) ExitProcess(0) end else WriteLn(Format( 保留虚拟内存成功, 基址为:[%8.8x]! , [Longint(VmAddress)])) //提交第二页虚拟内存 CommitAddress := Pointer(Longint(VmAddress) + PageSize) CommitAddress := VirtualAlloc(CommitAddress, PageSize, MEM_COMMIT, PAGE_READWRITE) if not Assigne-program VirtualMemory ($ APPTYPE CONSOLE) uses SysUtils, Windows const PageSize = 4096// definition pages size var VmAddress, CommitAddress : Pointer// virtual memory-based storage site Text : Pchar begin// reservations two virtual memory VmAddress : = VirtualAlloc (nil. PageSize* 2, MEM_RESERVE, PAGE_READWRITE) if not Assigned (VmAddress) then begin WriteLn (reservations virtual memory failure!) ExitProcess (0) end else WriteLn (Format (virtual memory retention success, sites : [% 8.8x ]! [Longint (VmAddress)]))// to the second page virtual memory CommitAddress : = Pointer (Longint (VmAddress) PageSize) CommitAddress : = VirtualAlloc (CommitAddress, PageSize, MEM_COMMIT, PAGE_READWRITE) if not Assigne
Platform: |
Size: 23552 |
Author: 黄春标 |
Hits:
Description: 函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别在于，过程没有返回值，而函数能有返回值。 在Delphi 7.0中，已为我们定义好了非常多的函数，大致分类有6种：数据类型转换函数、字符串、数组操作函数、文件、磁盘操作函数、内存、指针操作函数、数学运算函数、日期函数。-function sentence by one or more code components, can achieve a particular function. You can use your code more readable, understandable, accelerate programming speed and reducing duplication of code. Similar processes and functions, processes and functions most important difference is that the process did not go to the value and the function can return value. In Delphi 7.0, we have a very good definition of function, broadly categorized into six types : data conversion functions, string and array manipulation functions, documents, disk manipulation functions, memory, pointer manipulation functions, arithmetic function, the date function.
Platform: |
Size: 6144 |
Author: 陈修 |
Hits:
Description: Delphi 指针、地址、指针地址值的应用
Delhi7下编译-Delphi pointer, address, target address of the value of Delhi7 compiler
Platform: |
Size: 751616 |
Author: luotao |
Hits:
Description: 这是截包和发包的小工具(用到ws_32.dll和hook技术、共享内存。。)，其中SendUdp.dll本来想用delphi写的因为vc++指针操作快，-This is the cut-off delivery of the package and small tools (used ws_32.dll hook and technology, shared memory. .) , SendUdp.dll which had wanted to use delphi write because vc pointer operation soon,
Platform: |
Size: 389120 |
Author: song |
Hits:
Description: 1、利用VFW的实现的视频采集、处理程序，支持各种USB视频设备。
2、在回调函数中的lpVHdr结构指针中有lpData指针，即指向每一帧图像的RGB像素矩阵。
3、语言：delphi-1, using the realization of VFW video collection, treatment procedures, supports a variety of USB video equipment. 2, in the callback function pointer in the structure of lpVHdr have lpData pointer that point to each frame image of the RGB pixel matrix. 3, language: delphi
Platform: |
Size: 340992 |
Author: 胡杨 |
Hits:
Description: 将一个文件切成n多个块,主要学习文件指针定位问题,p2p文件传输切块问题-A file into n number of blocks, mainly focuses on studying the problem of file pointer, p2p file transfer cut problem
Platform: |
Size: 3072 |
Author: 张群艺 |
Hits:
Description: 开始，运行输入 sigverif
通过检查数字签名就知道是不是ms的了。
主要使用Win32API实现验证应用或驱动程
WinVerifyTrust API。如果该API被Hook有没有其他方法验证应用或驱动程序是否通过微软签名？如果仅仅是被挂钩了IAT，那么可以直接通过函数指针调用。
如果是像Detours那样用jmp改写了函数头，可以通过读取WinTrust.dll中WinVerifyTrust的实现位置，恢复函数头的机器码。
不知道使用CryptoAPI，再使用指定的Microsoft证书
是不是更好一点，不容易被欺骗
怕调api被hook的话，自己将验证的代码写出来，用openssl应该容易点。-Start, Run enter sigverif by checking the digital signature is not on the know of the ms. Win32API realize the main use of the application or driver to verify WinVerifyTrust API. If the API was Hook has no other way to verify whether the application or driver through Microsoft Signed? If merely being linked to the IAT, you can call directly through the function pointer. If it is used as the Detours as to alter the function jmp head, can be read in WinVerifyTrust Wintrust.dll realize the location, the restoration of function of the binary header. Do not know the use of CryptoAPI, and then use the specified certificate is not Microsoft a little better, not easy to be deceived by fear api tune hook, then he would write the code to verify, using openssl should be easy points.
Platform: |
Size: 200704 |
Author: 齐欢乐 |
Hits:
Description: unit comm
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
SPComm, StdCtrls, ExtCtrls
type
TFcomm = class(TForm)
Comm1: TComm
GroupBox1: TGroupBox
Memo1: TMemo
Memo2: TMemo
GroupBox2: TGroupBox
Button1: TButton
Btn_send: TButton
Button2: TButton
procedure Button1Click(Sender: TObject)
procedure Button2Click(Sender: TObject)
procedure Btn_sendClick(Sender: TObject)
procedure Comm1ReceiveData(Sender: TObject Buffer: Pointer
BufferLength: Word)
private
{ Private declarations }
public
{ Public declarations }
end
Platform: |
Size: 152576 |
Author: liu |
Hits:
Description:
procedure senddata
var
i:integer commflg : Boolean
begin
commflg:=true
for i:=1 to 8 do
begin
if not fcomm comml writecommdata(sendbutter,i) then
begin
Commflg=false
break
end
end
end
(4) 接收数据
在编写基于串口的计算机工业测控时，通常需要由下位机向PC机发送数据以使PC机了解系统的测试数据或下位机的运行状态，并进而控制下位机的行为。利用Spcomm串口控件接收下位机发送的数据信息的示例代码如下：
//事件驱动方式接收数据程序
procedure TForm1.CommlReceiveData(Sender:Tobject Buffer:Pointer bufferLength:Word)
var
receivedata:array of byte
begin
sleep(100) //等待100ms，保证接收到所有数据
move(buffef ,receivedata,bufferlength)
//将接收缓存区中的数据转移到数组中
……
end
(5) 关闭串口
在系统开发中，应注意在不使用串口时应及时关闭串口，释放系统资源，否则可能会影响系统的其它应用。关闭串口的代码如下：
procedure TForm1.FormClose ( Sender TObj ect:var Action:TCIoseAction )
begin
comml.StopComm
end -
procedure senddata
var
i:integer commflg : Boolean
begin
commflg:=true
for i:=1 to 8 do
begin
if not fcomm comml writecommdata(sendbutter,i) then
begin
Commflg=false
break
end
end
end
(4) 接收数据
在编写基于串口的计算机工业测控时，通常需要由下位机向PC机发送数据以使PC机了解系统的测试数据或下位机的运行状态，并进而控制下位机的行为。利用Spcomm串口控件接收下位机发送的数据信息的示例代码如下：
//事件驱动方式接收数据程序
procedure TForm1.CommlReceiveData(Sender:Tobject Buffer:Pointer bufferLength:Word)
var
receivedata:array of byte
begin
sleep(100) //等待100ms，保证接收到所有数据
move(buffef ,receivedata,bufferlength)
//将接收缓存区中的数据转移到数组中
……
end
(5) 关闭串口
在系统开发中，应注意在不使用串口时应及时关闭串口，释放系统资源，否则可能会影响系统的其它应用。关闭串口的代码如下：
procedure TForm1.FormClose ( Sender TObj ect:var Action:TCIoseAction )
begin
comml.StopComm
end
Platform: |
Size: 1611776 |
Author: yingyu |
Hits:
Description: delphi中的指针操作示例，工学习使用-delphi pointer operations in the sample, the workers learn to use
Platform: |
Size: 24576 |
Author: renjunming |
Hits:
Description: DELPHI指针大全，总结得非常好的DELPHI指针操作方法，对OBJECT PASCAL有非常强的指导作用，难得的编程基础资料，对网络编程、远控编程，系统编程有益-DELPHI pointer Daquan, summed it up very good pointer operations DELPHI method, OBJECT PASCAL has a very strong role in guiding, basic information valuable programming, network programming, remote control programming, system programming useful
Platform: |
Size: 46080 |
Author: OceanLM |
Hits:
Description: delphi指针大全，介绍了指针的用法和技巧，对于delphi的学习有很大的帮助-Delphi pointer, pointer, introduces the usage and skills, to learn Delphi very helpful
Platform: |
Size: 46080 |
Author: zhouji |
Hits:
Description: delphi 指针的应用 希望能帮到初学者-delphi pointer applications hope to help beginners
Platform: |
Size: 5120 |
Author: zxf |
Hits:
Description: delphi-Pointer-all delphi指针大全,非常实用详细!-Delphi-Pointer-all delphi Pointer Daquan, very practical and detailed!
Platform: |
Size: 46080 |
Author: 深蓝 |
Hits:
Description: Delphi pointer,you can learn form this file about delphi pointer
Platform: |
Size: 45056 |
Author: TGBoss
|
Hits: