|
ｿｽ@ｿｽｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽﾆスｿｽgｿｽｿｽｿｽｿｽｿｽOｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽ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
ｿｽｿｽ 2005/03/14(ｿｽｿｽ) 16:10:42
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽSｿｽｿｽ闖ｿｽﾅ固定長ｿｽfｿｽ[ｿｽ^ｿｽ送信ｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾈのでゑｿｽｿｽｿｽｿｽA
ｿｽ@ｿｽoｿｽCｿｽiｿｽｿｽｿｽ^ｿｽzｿｽｿｽｿｽｿｽ`
ｿｽASLH,TTCｿｽｿｽ成ｿｽｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽzｿｽｿｽﾉセｿｽbｿｽg
ｿｽBReadLnｿｽﾅ読搾ｿｽｿｽだテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽzｿｽｿｽﾉセｿｽbｿｽg
ｿｽCTCliantSocketｿｽﾅバｿｽCｿｽiｿｽｿｽｿｽ^ｿｽzｿｽｿｽﾌ托ｿｽｿｽMｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽLｿｽBｿｽﾅはテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽ1BYTEｿｽｿｽｿｽﾂバｿｽCｿｽiｿｽｿｽｿｽ^ｿｽﾉ変奇ｿｽｿｽｿｽｿｽﾄセｿｽbｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽIｿｽﾈ包ｿｽｿｽ@ｿｽﾍなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽ{ｿｽﾌ包ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽIｿｽﾈ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾈ擾ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/03/14(ｿｽｿｽ) 19:52:45
ｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽ轤ｷｿｽﾝまゑｿｽｿｽｿｽB
var
f: file;
b: byte;
begin
AssignFile(f, 'test.txt');
Reset(f,1);
BlockRead(f, b, Sizeof(b));
CloseFile(f);
end;
ｿｽﾆゑｿｽｿｽ轤ｩｿｽｿｽｿｽﾟバｿｽCｿｽiｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾆゑｿｽｿｽﾄ開ｿｽｿｽｿｽﾌはゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Reset(),BlockRead()ｿｽﾉつゑｿｽｿｽﾄはヘｿｽｿｽｿｽvｿｽｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽ 2005/03/15(ｿｽｿｽ) 15:33:07
ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽｿｽｿｽｿｽ書搾ｿｽｿｽﾝゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽRｿｽ[ｿｽhｿｽTｿｽCｿｽYｿｽwｿｽｿｽﾌブｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ[ｿｽhｿｽﾅゑｿｽCRLFｿｽ判断ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、
CRLFｿｽｿｽﾜんだｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽiｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽ{2BYTEｿｽjｿｽｿｽ1ｿｽｿｽｿｽﾇみとゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌゑｿｽｿｽﾟ、Byteｿｽ^ｿｽzｿｽｿｽﾌ厄ｿｽｿｽｿｽ2ｿｽoｿｽCｿｽgｿｽｿｽﾈゑｿｽｿｽAｿｽoｿｽbｿｽtｿｽ@ｿｽﾉ追会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽAｿｽ`ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ`ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ１ｿｽ`ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽﾍ鯉ｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、BlockReadｿｽﾅ包ｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽﾇみ趣ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽﾌ場合ｿｽｿｽzｿｽ中ゑｿｽｿｽ辜鯉ｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽCRLFｿｽｿｽﾈゑｿｽｿｽﾄ詰ｿｽﾟなゑｿｽｿｽｿｽﾎならずｿｽAｿｽｿｽｿｽｿｽｿｽIｿｽﾉどゑｿｽｿｽﾈのゑｿｽｿｽﾈ？ｿｽHｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾅ抵ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ1BYTEｿｽﾇ搾ｿｽｿｽﾝゑｿｽCRLFｿｽﾈ外ｿｽ送信ｿｽoｿｽbｿｽtｿｽ@ｿｽﾉ暦ｿｽｿｽﾟ搾ｿｽｿｽﾞのゑｿｽｿｽﾇゑｿｽｿｽﾌゑｿｽｿｽAｿｽｿｽｿｽいｿｽ試ｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾈみに、ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽ[ｿｽvｿｽｿｽStringｿｽ^ｿｽｿｽ1ByteｿｽﾃゑｿｽByteｿｽ^ｿｽﾉ変奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽﾔゑｿｽ200BYTEｿｽｿｽｿｽRｿｽ[ｿｽhｿｽ‾ｿｽPｿｽｿｽｿｽｿｽｿｽｿｽ40ｿｽbｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽIｿｽﾉは変ゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽPｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽHｿｽHww
ｿｽｿｽ 2005/03/15(ｿｽｿｽ) 15:34:07
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ閧ｨｿｽ閧ｨ 2005/03/15(ｿｽｿｽ) 17:10:29
> ｿｽBReadLnｿｽﾅ読搾ｿｽｿｽだテｿｽLｿｽXｿｽgｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ難ｿｽeｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽzｿｽｿｽﾉセｿｽbｿｽg
TStringList ｿｽﾅ読み搾ｿｽｿｽﾟば趣ｿｽｿｽｿｽｿｽIｿｽｿｽ CRLF ｿｽﾅ具ｿｽﾘゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇ。
TStringList ｿｽﾌ搾ｿｽｿｽｿｽ Strings[] ｿｽｿｽ String ｿｽ^ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAString ｿｽ^ｿｽｿｽｿｽｿｽ
byte ｿｽﾌ配ｿｽｿｽﾉ読み搾ｿｽｿｽﾞのは、ｿｽPｿｽｿｽ Move() ｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽB
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
i: Integer;
ba: array of byte;
begin
sl := TStringList.Create;
try
sl.LoadFromFile('c:¥readme.htm');
for i := 0 to sl.Count-1 do
begin
if sl[i] = '' then continue;
SetLength(ba,Length(sl[i]));
Move(sl[i][1],ba[0],Length(sl[i]));
//
// ｿｽｿｽｿｽｿｽｿｽｿｽ ba ｿｽｿｽgｿｽｿｽ
//
end;
finally
sl.Free;
end;
end;
ｿｽ閧ｨｿｽ閧ｨ 2005/03/15(ｿｽｿｽ) 17:18:09
ｿｽｿｽﾅゑｿｽ TStringList ｿｽﾌ暦ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAReadLn ｿｽﾅ読み搾ｿｽｿｽだ茨ｿｽsｿｽｿｽ String
ｿｽ^ｿｽﾅゑｿｽ Move ｿｽｿｽgｿｽｿｽｿｽﾌはまゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽ 2005/03/17(ｿｽｿｽ) 11:18:27
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽmｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾈゑｿｽCRLFｿｽｿｽﾓ趣ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ良ゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ暦ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
