pnetstreamadapter.dpr

来自「多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术」· DPR 代码 · 共 22 行

Program PNETStreamAdapter;

{$APPTYPE CONSOLE}

uses System.IO,
	Borland.Delphi.Classes,
  Borland.Vcl.Forms,
	Borland.Vcl.Graphics,
	Borland.Vcl.Controls,
	Borland.Vcl.Forms,
	Borland.Vcl.Dialogs,
	Borland.Vcl.StdCtrls,
	Borland.Vcl.ExtCtrls;

var
  aWrapper : TCLRStreamWrapper;
  fStream : FileStream;
  iValue : Integer;
begin
  if (ParamCount = 0) then
  begin
    ConSole.WriteLine('叫块