关于C#的Stream的简单问题
下面几个Delphi函数,要改成C#应该怎么写啊?
谢谢procedure info.LoadFromFile(const FileName: string)
var
MS:TMemoryStream;
begin
MS := TMemoryStream.Create;
try
MS.LoadFromFile(FileName);
LoadFromStream(MS, IsShallow);
finally
MS.Free;
end;
end;//==============================================================================procedure info.LoadFromStream(Stream: TStream; IsShallow: Boolean = False);
begin
Stream.ReadBuffer(ID, SizeOf(Smallint));
Stream.ReadBuffer(companyID, SizeOf(Smallint));
Stream.ReadBuffer(Type, SizeOf(Smallint));
Stream.ReadBuffer(UserID, SizeOf(Smallint));
Stream.ReadBuffer(UpdateTime, SizeOf(TDateTime));
end;//==============================================================================procedure info.SaveToFile(const FileName: string);
var
MS:TMemoryStream;
begin
MS := TMemoryStream.Create;
try
SaveToStream(MS, IsShallow);
MS.SaveToFile(FileName);
finally
MS.Free;
end;
end;//==============================================================================procedure info.SaveToStream(Stream: TStream);
begin
Stream.WriteBuffer(ID, SizeOf(Smallint));
Stream.WriteBuffer(companyID, SizeOf(Smallint)); Stream.WriteBuffer(Type, SizeOf(Smallint)); Stream.ReadBuffer(ImeMode, SizeOf(Smallint));
Stream.WriteBuffer(UserID, SizeOf(Smallint));
Stream.WriteBuffer(UpdateTime, SizeOf(TDateTime));
end;
下面几个Delphi函数,要改成C#应该怎么写啊?
谢谢procedure info.LoadFromFile(const FileName: string)
var
MS:TMemoryStream;
begin
MS := TMemoryStream.Create;
try
MS.LoadFromFile(FileName);
LoadFromStream(MS, IsShallow);
finally
MS.Free;
end;
end;//==============================================================================procedure info.LoadFromStream(Stream: TStream; IsShallow: Boolean = False);
begin
Stream.ReadBuffer(ID, SizeOf(Smallint));
Stream.ReadBuffer(companyID, SizeOf(Smallint));
Stream.ReadBuffer(Type, SizeOf(Smallint));
Stream.ReadBuffer(UserID, SizeOf(Smallint));
Stream.ReadBuffer(UpdateTime, SizeOf(TDateTime));
end;//==============================================================================procedure info.SaveToFile(const FileName: string);
var
MS:TMemoryStream;
begin
MS := TMemoryStream.Create;
try
SaveToStream(MS, IsShallow);
MS.SaveToFile(FileName);
finally
MS.Free;
end;
end;//==============================================================================procedure info.SaveToStream(Stream: TStream);
begin
Stream.WriteBuffer(ID, SizeOf(Smallint));
Stream.WriteBuffer(companyID, SizeOf(Smallint)); Stream.WriteBuffer(Type, SizeOf(Smallint)); Stream.ReadBuffer(ImeMode, SizeOf(Smallint));
Stream.WriteBuffer(UserID, SizeOf(Smallint));
Stream.WriteBuffer(UpdateTime, SizeOf(TDateTime));
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货