存储过程:

  stm:=TMemoryStream.Create;
  stm.write(buf^,c); //buf:pbyte
   freeMem(buf,c);

  Ado1.ProcedureName:='UPDATE_USER';
  Ado1.Parameters.Clear;
  ado1.Parameters.refresh;  //这句会自动获取存储过程的所有参数
  ado1.Parameters[1].Value:='test';
  ado1.Parameters[2].LoadFromStream(stm,ftBytes );
  ado1.ExecProc;

Windows自启动程序十大藏身之处

一、当前用户专有的启动文件夹

这是许多应用软件自动启动的常用位置，Windows自动启动放入该文件夹的所有快捷方式。用户启动文件夹一般在：\Documents and Settings\\「开始」菜单\程序\启动，其中“”是当前登录的用户帐户名称。

二、对所有用户有效的启动文件夹

这是寻找自动启动程序的第二个重要位置，不管用户用什么身份登录系统，放入该文件夹的快捷方式总是自动启动——这是它与用户专有的启动文件夹的区别所在。该文件夹一般在：\Documents and Settings\All Users\「开始」菜单\程序\启动。

三、Load注册键

介绍该注册键的资料不多，实际上它也能够自动启动程序。位置：HKEY_CURRENT_USER\Software\Microsoft\WindowsNT\ CurrentVersion\Windows\load。

四、Userinit注册键

位置：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit。这里也能够使系统启动时自动初始化程序。通常该注册键下面有一个userinit.exe，但这个键允许指定用逗号分隔的多个程序，例如“userinit.exe,OSA.exe”（不含引号）。

五、Explorer\Run注册键

和load、Userinit不同，Explorer\Run键在HKEY_CURRENT_USER和HKEY_LOCAL_MACHINE下都有，具体位置是：HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run，和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run。

六、RunServicesOnce注册键

RunServicesOnce注册键用来启动服务程序，启动时间在用户登录之前，而且先于其他通过注册键启动的程序。RunServicesOnce注册键的位置是：HKEY_CURRENT_USER\Software\Microsoft\Windows\ CurrentVersion\RunServicesOnce，和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce。

七、RunServices注册键

RunServices注册键指定的程序紧接RunServicesOnce指定的程序之后运行，但两者都在用户登录之前。RunServices的位置是：HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunServices，和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\ CurrentVersion\RunServices。

八、RunOnce\Setup注册键

RunOnce\Setup指定了用户登录之后运行的程序，它的位置是：HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ RunOnce\Setup，和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\Setup。

九、RunOnce注册键

安装程序通常用RunOnce键自动运行程序，它的位置：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce和HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce。

HKEY_LOCAL_MACHINE下面的RunOnce键会在用户登录之后立即运行程序，运行时机在其他Run键指定的程序之前。HKEY_CURRENT_USER下面的RunOnce键在操作系统处理其他Run键以及“启动”文件夹的内容之后运行。如果是XP，你还需要检查一下HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\ CurrentVersion\RunOnceEx。

十、Run注册键

Run是自动运行程序最常用的注册键，位置在：HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run，和HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run。

HKEY_CURRENT_USER下面的Run键紧接HKEY_LOCAL_MACHINE下面的Run键运行，但两者都在处理“启动”文件夹之前。

由于DELPHI不允许unit单元的循环引用,而类的成员在定义时，必须要用interface里的类型,因此要实现类成员的互相引用,必须用变通的方法.

unit1
interface
uses
  ,unit2,;

type
  tA=class
  private
    bbb:tB;
  end;

unit2
interface
uses
  ,unit1,;

type
  tB=class
  private
    aaa:tA;
  end;

上面的2个unit不能通过编译,因为循环引用了.如果不循环引用，又出现类型没定义。反正就是不能通过编译。

有人说尽量避免类的这种互相定义，实在要定义时就把这2个类放在一个unit中。但是这样并不符合我们的设想。

在什么情况下需要这种互相定义呢，我们假设一个老师只有1个学生，一个学生只有1个老师，那么一个学生，那他就有老师，因此他有一个成员变量，指向他的老师的。而这个老师也会有1个成员变量指向他的学生。这时就发生了嵌套定义。

由于unit不能循环引用的限制,实现这种嵌套好像只能放到一个unit中了,但是我们有不在一个unit的需要。那要如何实现呢。

我们知道在implementation中uses的unit不会发生循环引用,而类的实现部分(定义部分是在interface)恰好是在implementation,在implementation里uses的类型可以在implementation范围内引用。因此我们是可以在类方法的实现部分使用到另外一个类。但是在类的方法中定义的变量是局部的，一退出过程就消失了，不能随时引用。

我们知道对象实质是一个dword型的指针.只要我们传递另外一个类的指针保存起来，在要调用另外一个类的方法时再强制转换后使用。

具体测试在下面的2个unit中

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TA=class
  private
    { Private declarations }
      //tb:pinteger;
  public
      classB:pdword;
      procedure setTB(p:pinteger);
      procedure doTest;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
 unit2;

{$R *.dfm}
var
  aa:tA;
  bb:tB;

procedure TForm1.Button1Click(Sender: TObject);
var
 b:tB;
begin
 aa:=tA.Create;
 bb:=tb.Create;
 aa.classB:=@bb;
 bb.classA:=@aa;

 b:=tB(aa.classB);
 b.doTest;
end;

{ TA }

procedure TA.doTest;
begin
 showmessage('AAA');
end;



end.

unit Unit2;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  tB=class
  private
    { Private declarations }
     //ta:pinteger;
  public
      classA:pdword;
      procedure doTest;
  end;

implementation
uses
  unit1;


{ tB }

procedure tB.doTest;
begin
  showmessage('BBB');
end;

end.

通过搜索，终于找到原因所在。

原来在调用Socket.SendBuf(buf,count)后，立即freeMem(buf),造成socket还没来得及把buf发送完，就被free掉了。

因此把要发送的buf定义成全局变量，再程序开始创建，并在程序结束后释放。