关于TStringStream的问题

coolspac 2008-04-29 02:00:20

问题是这样的
有个TStringStream
里面存有数据，如果存成文件用winhex进行查看
可以看出是这样的一个结构

00[字符串1]00[一个无符号整形数i(<65535)]0000[字符串2]00[字符串3]00.....

大致就是这么一个结构
举个具体的例子就是将其直接存为二进制文件后是这种文件流：

0062000C00000063006400

这里是字符串1=a，字符串2=b，字符串3=c，字符串4=d，i=12

因为其中有00，也就是字符串中的终止符，所以我直接用tstringstream的readstring无法正常将其转化为string

但是我现在需要用程序分别取出tstringstream中的字符串1，字符串2，字符串3...和i的值，有什么办法？
每个字符串的长度是不固定的。

...全文

499 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

UltraBejing 2008-05-01

打赏
举报

回复

这个简单啊,网上搜一下就得到答案了.

skylkj 2008-04-29

打赏
举报

回复

....... 中间带#0的不是正常的字符串啦,用pos应该不行

其实我觉得自己写个算法处理下应该不麻烦吧....

coolspac 2008-04-29

打赏
举报

回复

经过测试
var
s:string;
a:integer;
s:=#1#1#0'dsf'#0'adsf'#0#$EA#0#0#0'sfg'#0'ds'#0;//我首贴说的那种格式类似
a:=pos(s,'d');

得不到正确的pos

coolspac 2008-04-29

打赏
举报

回复

我想实现的最理想的方案是一次将这些数据全部读进对应的变量里，但是因为长度变量长度可变，好像不行

帮助么，我是一直搜索find相关函数去了

skylkj 2008-04-29

打赏
举报

回复

pos()
delphi自带的帮助你有用法

coolspac 2008-04-29

打赏
举报

回复

delphi中没有返回string中某一字串的第一次出现的位置的函数么？

skylkj 2008-04-29

打赏
举报

回复

用Tmemorystream或者其他随便什么stream把二进制文件读到内存
然后从头一个字节一个字节的读,读到第一个不是0的字节,就是字符串1的开始,再读到下一个0,就是字符串1的结束....依此类推...

Fast Report 4.X——Delphi 2009的中文解决方法 1.更换FastReport/Source文件夹的文件（frxrcClass.pas,frxrcDesgn.pas,frxrcExports.pas,frxrcInsp.pas）（文件不会上传，可以在Delphi中打开以上文件，将乱码部分可以修改即可！） 2.修改frxRes.pas函数 procedure TfrxResources.AddXML(const Str: AnsiString); var Stream: TStringStream; begin Stream := TStringStream.Create(Str,TEncoding.UTF8); {修改文UTF8编码} ///Stream := TStringStream.Create(UTF8Encode(String(str)));（网上有说这样改的，不过我试验不成功！） LoadFromStream(Stream); Stream.Free; end; 经本人使用无问题!

FastReport 4.7x雖然已支援unicode，也附有Taiwan(繁中)的介面，但轉換後仍是一大堆?號。其中問題出在Res\frcc.exe，frcc轉檔後的儲存格式為Ansi並非UTF-8，經手動轉換並更改中文字被截斷的部份。此部份可下載frcc.rar，解壓後取代FastReport 4\Res\frcc.exe 另一部份為frxRes.pas，字碼轉換的問題，應修改： procedure TfrxResources.AddXML(const Str: AnsiString); var Stream: TStringStream; begin Stream := TStringStream.Create(Str); LoadFromStream(Stream); Stream.Free; end; 修改為 procedure TfrxResources.AddXML(const Str: AnsiString); var Stream: TStringStream; begin {$IFDEF Delphi12} Stream := TStringStream.Create(UTF8Encode(String(str))); {$ELSE} Stream := TStringStream.Create(Str); {$ENDIF} LoadFromStream(Stream); Stream.Free; end; 完成後執行：FastReport 4 recompile wizard 1. Change language to: "Taiwan" 2. Compile 3. Recompile all package 4. Compile

1、frxres.pas文件，修改以支持中文字符资源本地化，修改在Source目录吧，否则会被覆盖 procedure TfrxResources.AddXML(const Str: AnsiString); var Stream: TStringStream; begin {$IFDEF Delphi12} Stream := TStringStream.Create( UTF8Encode(String(Str))); {$ELSE} Stream := TStringStream.Create( Str); {$ENDIF} LoadFromStream(Stream); Stream.Free; end; 2、然后调用FRResTool.exe工具转换资源文件,转换后的资源最后用编辑器打开另存为utf-8格式 3、如果用它自带的编译工具，则删除它自带的frcc.exe工具，否则它自动会调用这个工具去生成上面的本地化资源代码。

在界面添加控件TIdSSLIOHandlerSocketOpenSSL和TIdHTTP idslhndlrscktpnsl1: TIdSSLIOHandlerSocketOpenSSL; idhtp1: TIdHTTP; 设置idhtp1.IOHandler属性为idslhndlrscktpnsl1 将openssl-1.0.1j-i386-win32.zip解压出来的libeay32.dll和ssleay32.dll放到exe所在路径 function httpAPIPost(url,param:string):string; var ResponseStream,PostStream:TStringStream; begin try idslhndlrscktpnsl1.SSLOptions.Method:=sslvSSLv23; idhtp1.HandleRedirects := True; idhtp1.ReadTimeout := 10000; idhtp1.Request.ContentType := 'application/json;charset=utf8'; ResponseStream:=TStringStream.Create(''); PostStream:=TStringStream.Create(param); PostStream.Position:=0; idhtp1.Post(url,PostStream, ResponseStream); Result:=UTF8Decode(ResponseStream.DataString); finally PostStream.Free; ResponseStream.Free; end; end;

{接收一行数据 Socket,超时，结束符}function SocketRevLine(Socket: TCustomWinSocket; TimeOut: Integer; EndStr: string = #13#10): string;var bufInfo: TBufChar; i: Integer; strStream: TStringStream; {保存所有的数据} FSocketStream: TWinSocketStream;begin strStream := TStringStream.Create(‘‘); FSocketStream := TWinSocketStream.Create(Socket, TimeOut); while Socket.Connected do begin {确定接收的超时，可见WaitForData的源码} if not FSocketStream.WaitForData(TimeOut) then Break; ZeroMemory(@bufInfo, SizeOf(bufInfo)); {每次只读一个字符，以免读入了命令外的数据} i := FsocketStream.Read(bufInfo, 1); if i = 0 then Break; strStream.Write(bufInfo, i); if pos(EndStr, strStream.DataString) <> 0 then Break; end; Result := strStream.DataString; {没有读到回车换行符,就表示有超时错，这时返回空字符串} if Pos(EndStr, Result) = 0 then Result := ‘‘; strStream.Free; FSocketStream.Free;end;

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章