月度归档： 2011 年 1 月

Delphi使用流读写控件数据

保存到文件

MS := TMemoryStream.Create;
try
        MS.WriteComponent(listview1);
        MS.SaveToFile('文件名');
finally
        MS.Free;
end;

从文件读入控件

MS := TMemoryStream.Create;
try
     	MS.LoadFromFile('文件名');
     	MS.ReadComponent(listview1);
finally
	MS.Free;
end;

Delphi自动提交表单(这里只有一个表单)，弄了一个晚上,经过一个大牛的指点,10分钟搞定

procedure TMainForm.WebBrowser2DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  oFrames:OleVariant;
begin
  oFrames := WebBrowser2.OleObject.document.forms;
  if oframes.length <> 0 then
  begin
  oFrames.item(0).submit;
  end;
end;