Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷

Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
ÔÚDelphiÖÐ,ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀà,ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£ TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏÂ: 1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£ 2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖᣠTstreamÖж¨ÒåµÄÐé·½·¨ÓÐËĸö: 1¡¢Read:´Ë·½·¨ÊµÏÖ½«Êý¾Ý´ÓÁ÷ÖжÁ³ö¡£º¯ÊýÔ­ÐÎΪ: Function Read(var Buffer;Count:Longint):Longint;virtual;abstract; ²ÎÊýBufferΪÊý¾Ý¶Á³öʱ·ÅÖõĻº³åÇø,CountΪÐèÒª¶Á³öµÄÊý¾ÝµÄ×Ö½ÚÊý,¸Ã·½·¨·µ»ØÖµÎªÊµ¼Ê¶Á³öµÄ×Ö½ÚÊý,Ëü¿ÉÒÔСÓÚ»òµÈÓÚCountÖÐÖ¸¶¨µÄÖµ¡£ 2¡¢Write:´Ë·½·¨ÊµÏÖ½«Êý¾ÝдÈëÁ÷ÖС£º¯ÊýÔ­ÐÎΪ: Function Write(var Buffer;Count:Longint):Longint;virtual;abstract; ²ÎÊýBufferΪ½«ÒªÐ´ÈëÁ÷ÖеÄÊý¾ÝµÄ»º³åÇø,CountΪÊý¾ÝµÄ³¤¶È×Ö½ÚÊý,¸Ã·½·¨·µ»ØÖµÎªÊµ¼ÊдÈëÁ÷ÖеÄ×Ö½ÚÊý¡£ 3¡¢Seek:´Ë·½·¨ÊµÏÖÁ÷ÖжÁȡָÕëµÄÒÆ¶¯¡£º¯ÊýÔ­ÐÎΪ: Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract; ²ÎÊýOffsetÎªÆ«ÒÆ×Ö½ÚÊý,²ÎÊýOrigintÖ¸³öOffsetµÄʵ¼ÊÒâÒå,Æä¿ÉÄܵÄȡֵÈçÏÂ: sofromBeginning:OffsetÎªÒÆ¶¯ºóÖ¸Õë¾àÀëÊý¾Ý¿ªÊ¼µÄλÖᣴËʱOffset±ØÐë´óÓÚ»òÕßµÈÓÚÁã¡£ sofromCurrent:OffsetÎªÒÆ¶¯ºóÖ¸ÕëÓ뵱ǰָÕëµÄÏà¶ÔλÖᣠsofromEnd:OffsetÎªÒÆ¶¯ºóÖ¸Õë¾àÀëÊý¾Ý½áÊøµÄλÖᣴËʱOffset±ØÐëСÓÚ»òÕßµÈÓÚÁã¡£¸Ã·½·¨·µ»ØÖµÎªÒƶ¯ºóÖ¸ÕëµÄλÖᣠ4¡¢Setsize:´Ë·½·¨ÊµÏָıäÊý¾ÝµÄ´óС¡£º¯ÊýÔ­ÐÎΪ: Function Setsize(NewSize:Longint);virtual; ÁíÍâ,TStreamÀàÖл¹¶¨ÒåÁ˼¸¸ö¾²Ì¬·½·¨: 1¡¢ReadBuffer:´Ë·½·¨µÄ×÷ÓÃÊÇ´ÓÁ÷Öе±Ç°Î»ÖöÁÈ¡Êý¾Ý¡£º¯ÊýÔ­ÐÎΪ: Procedure ReadBuffer(var Buffer;Count:Longint); ²ÎÊýµÄ¶¨Òå¸úÉÏÃæµÄReadÏàͬ¡£×¢Òâ:µ±¶ÁÈ¡µÄÊý¾Ý×Ö½ÚÊýÓëÐèÒª¶ÁÈ¡µÄ×Ö½ÚÊý²»Ïàͬʱ,½«²úÉúEReadErrorÒì³£¡£ 2¡¢WriteBuffer:´Ë·½·¨µÄ×÷ÓÃÊÇÔÚµ±Ç°Î»ÖÃÏòÁ÷дÈëÊý¾Ý¡£º¯ÊýÔ­ÐÎΪ: Procedure WriteBuffer(var Buffer;Count:Longint); ²ÎÊýµÄ¶¨Òå¸úÉÏÃæµÄWriteÏàͬ¡£×¢Òâ:µ±Ð´ÈëµÄÊý¾Ý×Ö½ÚÊýÓëÐèҪдÈëµÄ×Ö½ÚÊý²»Ïàͬʱ,½«²úÉúEWriteErrorÒì³£¡£ 3¡¢Copyfrom:´Ë·½·¨µÄ×÷ÓÃÊÇ´ÓÆäËüÁ÷Öп½±´Êý¾ÝÁ÷¡£º¯ÊýÔ­ÐÎΪ: Function Copyfrom(Source:TStream;Count:Longint):Longint; ²ÎÊýSourceΪÌṩÊý¾ÝµÄÁ÷,CountΪ¿½±´µÄÊý¾Ý×Ö½ÚÊý¡£µ±Count´óÓÚ0ʱ,Copyfrom´ÓSource²ÎÊýµÄµ±Ç°Î»Öÿ½±´Count¸ö×Ö½ÚµÄÊý¾Ý;µ±CountµÈÓÚ0ʱ,CopyfromÉèÖÃSource²ÎÊýµÄPositionÊôÐÔΪ


Ïà¹ØÎĵµ£º

Delphi PureAPIWindow program

program PureAPIWindow;
uses
SysUtils,
Windows,
Messages;
const
WinClassName = 'DvsClass';
StrOut = 'Davis TextOut';
//´°¿Ú»Øµ÷º¯Êý
function MyWinProc(
hWindow: HWND;
aMessage: UINT;
WParam: WPARAM;
LParam: LPARAM): LRESULT; stdcall; export; ......

Delphi¹ØÁªÎļþÀ©Õ¹Ãû

unit unitMain;
interface
uses
Registry, shlobj,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TExtForm = class(TForm)
ledExtension: TLabeledEdit;
ledAssocApp: TLabeledEdit;
GetAssocApp: TButton;
AssocTh ......

Delphi µÄRTTI»úÖÆÇ³Ì½

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420610
Ŀ¼
===============================================================================
¡Ñ
RTTI ¼ò½é
¡Ñ Àà(class) ºÍ VMT µÄ¹ØÏµ
¡Ñ Àà(class)¡¢ÀàµÄÀà(class of class)¡¢Àà±äÁ¿(class
variable) µÄ¹ØÏµ
¡Ñ TObject.ClassType ºÍ TObject.ClassInf ......

Delphi×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»

Delphi×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»
ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
s:string;
p:pchar;
a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
    p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
    s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
    StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ ......

Delphi Öд®¿ÚͨѶµÄʵÏÖ

  Delphi ÊÇÐÂÒ»´ú¿ÉÊÓ»¯¿ª·¢¹¤¾ß£¬Ëü¾ßÓй¦ÄÜÇ¿´ó¡¢¼ò±ãÒ×ÓúʹúÂëÖ´ÐÐËÙ¶È¿ìµÈÌØµã£¬ÊÇÈ«Çò¹«ÈϵĿìËÙÓ¦Óÿª·¢¹¤¾ß¼¼ÊõµÄÏÈÇýÕߣ¬ËüÔ½À´Ô½ÔÚ¹¹¼ÜÆóÒµÐÅϢϵͳ·½Ãæ·¢»Ó×ÅÖØÒª×÷Óá£ÓÉÓÚDelphi ÕâЩÏÔÖøÌØµã£¬Ðí¶à³ÌÐòԱѡÔñDelphi×÷Ϊ¿ª·¢¹¤¾ß±àÖÆ¸÷ÖÖÓ¦ÓóÌÐò¡£µ«ÊÇ£¬ÁîÈËÍïϧµÄÊÇDelphiûÓÐ×Ô´ø´®¿Ú ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ