ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽVｿｽｿｽAｿｽ}ｿｽOｿｽｿｽｿｽ} 2005/07/19(ｿｽｿｽ) 06:40:25

ｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
Delphi 7ｿｽｿｽbinary fileｿｽｿｽread and writeｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾝは、
var  buffer: array of Byte;
stream: TFileStream;
n: Interger;

ｿｽﾆゑｿｽｿｽﾄ、
stream:=TFileStream.Create('Sample.DAT', fmOpenRead); n:=0; while stream.Position < stream.Size do begin
stream.Read(buffer[n], SizeOf(Byte));
n:= n+1;
end;
ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽmｿｽｿｽｿｽﾉ読み趣ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾙ様ｿｽﾉ趣ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
stream.Read(buffer, stream.Size);
ｿｽﾈどとゑｿｽｿｽｿｽﾆ、ｿｽSｿｽｿｽｿｽﾇみ趣ｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽﾇのようｿｽﾉゑｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽqｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽqｿｽｿｽｿｽgｿｽﾅピｿｽｿｽｿｽg...ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽ? 2005/07/19(ｿｽｿｽ) 08:31:15

>Stream.Read(buffer, Stream.Size);
>ｿｽﾈどとゑｿｽｿｽｿｽﾆ、ｿｽSｿｽｿｽｿｽﾇみ趣ｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽIｿｽzｿｽｿｽﾍ暗黙にポｿｽCｿｽｿｽｿｽ^ｿｽﾅゑｿｽｿｽ驍ｱｿｽﾆゑｿｽﾌに厄ｿｽｿｽLｿｽｿｽｿｽﾗゑｿｽ
  SetLength(buffer, Stream.Size);
  Stream.Read(Pointer(buffer)^, Stream.Size);

ｿｽVｿｽｿｽAｿｽ}ｿｽOｿｽｿｽｿｽ} 2005/07/19(ｿｽｿｽ) 18:20:40

ｿｽqｿｽｿｽｿｽgｿｽﾅピｿｽｿｽｿｽgｿｽlｿｽA

ｿｽIｿｽmｿｽﾈゑｿｽｿｽwｿｽEｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽASizeOf(buffer)ｿｽﾆゑｿｽｿｽｿｽｿｽ4ｿｽｿｽｿｽﾟゑｿｽｿｽﾄ暦ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾋ。ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾂゑｿｽｿｽﾅで申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽが、BlockReadｿｽﾆの使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍどのようｿｽﾉゑｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ