delphi的简单问题 关于文件操作

Question

好像有个tfilestream类(名字记不清了)，查查帮助应该有

Answer 1

最好有原程序，我是想用delphi做一个网上传输文件，分可以加

Answer 2

用文件流，比较简单procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 FileStream :TfileStream;
 Buf :pchar;
begin
if OpenDialog1.Execute  then
begin
 Filestream := TFileStream.Create(OpenDialog1.FileName,fmShareDenyNone+fmShareOpenRead);
 Buf :=Allocmem(1024);
 FileStream.Read(Buf^,1024);
    ...
    ...
    ...
 Filestream.Free;
 Freemem(Buf);
end;
end;

Answer 3

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 FileStream :TfileStream;
 Buf :pchar;
begin
if OpenDialog1.Execute  then
begin
 Filestream := TFileStream.Create(K_FileName,fmOpenRead Or fmShareDenyNone)
with Filestream do
begin
 (OpenDialog1.FileName,fmShareDenyNone+fmShareOpenRead);
  SetLength(Buf,1024);
  ReadBuffer(buf,Size);
end;
 Filestream.Free;
 Freemem(Buf);
end;
end;