pnetstreamadapter.dpr

来自「这是不可多得的源代码」· 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('叫块