delphi - TFileStream 的行为很奇怪-6ren

delphi - TFileStream 的行为很奇怪

转载作者：行者123 更新时间：2023-12-03 18:20:53

30

4

我有这个代码单元:(我在 Win XP sp 3 上运行 Delphi 7)。

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

CONST
   EOL = #13#10;

type
  TForm1 = class(TForm)
    Button1: TButton;

    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    Procedure StringToStream(Ofile : TFileStream; Const StrValue : String);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1   : TForm1;
  Curdir  : String;
  Ofile   : TFileStream;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   Ofile := TFileStream.Create(curdir + '\TESTfil.HTML', fmCreate,fmsharedenynone);
   try
      StringToStream(Ofile, '<HTML><BODY> </BODY></HTML>' + EOL);
//      StringToStream(Ofile, '</BODY></HTML>' + EOL);
   finally
      Ofile.Free;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Curdir := ExtractFileDir(Application.ExeName);
end;

Procedure Tform1.StringToStream(Ofile : TFileStream; Const StrValue : String);

BEGIN
   IF length(StrValue) > 0 then
      Ofile.Write(StrValue,length(StrValue));
    Ofile.Write('testpunkt',9);

END;

这个单元的输出是:

"28 non printable characters" + "\testpunkt"

我试图使字符串成为 "CONST"。 --> 同样的错误

我用 PCHAR 试过了——有很多错误……(主要是语法错误)

我已将 INDY7 更改为 INDY9 以获取 idGlobal.WriteStringtoStream() - 但特定的 INDY-9 不支持 WriteStringToStream 。

我做错了什么？

最佳答案

你写的是字符串的地址而不是它的内容。要将字符串写入流，请使用以下代码:

procedure TForm1.StringToStream(Ofile: TFileStream; const StrValue: string);
begin
  Ofile.WriteBuffer(Pointer(StrValue)^, Length(StrValue));
end;

在这里我取消了指针的引用并写入了字符串的内容。

注意事项:

此代码不需要检查字符串是否为空。
由于您使用的是 Delphi 7 并且字符串是 ANSI，因此传递 Length(StrValue) 是合理的。如果您转向 Unicode，则必须修改代码以解决编码问题。
我使用 WriteBuffer 而不是 Write，因为与 Write 相比，前者会在发生错误时引发异常。<
您的代码假定写入与可执行文件相同的目录是安全的。如果您部署了您的程序，这种假设很可能会被打破。
您对全局变量的使用只会让您跌倒。尽量使用局部变量，作为参数传递的变量，类的数据成员。避开全局变量。
编写 XML 充满了复杂性。尝试使用原始字符串操作这样做可能会在未来的某个时候导致许多编码问题。明智的做法是现在使用 XML 库，这样您以后就不必重新编写代码。

关于delphi - TFileStream 的行为很奇怪，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/41220669/

30

4

0

文章推荐： delphi - 使用同名表单的正确方法

文章推荐： Delphi XE4 IDE，如何始终隐藏对象检查器的底部 Pane

javascript - 谷歌地图自动完成弹回已经清除的文本......奇怪......奇怪......奇怪
我有这种来自 Google map 自动完成的奇怪行为(或者我可能错过了某事)...想法？奇怪的: 您在输入中输入某物，例如“伦敦” 您按 [ENTER] 你按下 [CLEAR] 按钮你点击进入'输
Java意外类型做字符串比较，奇怪
这段代码与《Learning Java》(Oracle Press Books)一书中的代码完全一样，但它不起作用。我不明白为什么它不起作用，它应该起作用。我用 OpenJDK 和 Sun JDK 7
Powershell 对新行使用反引号 - 奇怪
示例 1 中究竟发生了什么？这是如何解析的？ # doesnt split on , [String]::Join(",",("aaaaa,aaaaa,aaaaa,aaaaa,aaaaa,aa
iphone - 指针类型不兼容？？奇怪
我需要获得方程式系统的解决方案。为此，我使用函数sgesv_()。一切都很好，它使我感到解决方案的正确结果。但是我得到一个奇怪的警告。警告:从不兼容的指针类型传递'sgesv_'的参数3 我正在
ios - 奇怪!动画完成后是否一直调用函数？
我目前在制作动画时遇到一个奇怪的问题: [UIView animateWithDuration:3 delay:0
jQuery 不工作 - 奇怪
alert('works'); $(window).load(function () { alert('does not work'); });
java - 静态内部类 - 奇怪
我的代码: public class MyTest { public class StringSorter implements Comparator { public
JavaScript 对象更新行为(奇怪？)
我正在学习 JavaScript。尝试理解代码， function foo (){ var a = b = {name: 'Hai'}; document.write(a.name +''
c++ - GetLastError() != 奇怪
这个问题不太可能帮助任何 future 的访问者；它只与一个小的地理区域、一个特定的时间点或一个非常狭窄的情况有关，这些情况并不普遍适用于互联网的全局受众。为了帮助使这个问题更广泛地适用，visit
Linux 环境 -i 奇怪
这按预期工作: [dgorur@ted ~]$ env -i env [dgorur@ted ~]$ 这样做: [dgorur@ted ~]$ env -i which date which: no
c++ - 指针增量 - 奇怪
struct BLA { int size_; int size()const{ return size_; } } int x; BLA b[ 2 ]; BLA * p = &b[
css - 图像垂直对齐与 css - 奇怪
我有以下代码: #test img {vertical-align: middle;} div#test { border: 1px solid green; height: 150px; li
gcc - (奇怪？)GCC 预处理器行为
我想大多数使用过 C/C++ 的人都对预处理器的工作原理有一定的直觉(或多或少)。直到今天我也是这么认为的，但事实证明我的直觉是错误的。故事是这样的: 今天我尝试了一些东西，但我无法解释结果。首先考虑
OCMock只生效一次，奇怪，为什么？或者我这边有什么问题？
我想为 TnSettings 做 mock，是的，如果通过以下方法编写代码，它就可以工作，问题是我们需要为每个案例编写 mock 代码，如果我们只 mock 一次然后执行多个案例，那么第二个将报告异常
c - 溢出？找不到来源，奇怪
我的项目中有以下两个结构 typedef volatile struct { unsigned char rx_buf[MAX_UART_BUF]; //Input buffer over U
c# - 奇怪，regex.split方法匹配一个null元素
Regex rx = new Regex(@"[+-]"); string[] substrings = rx.Split(expression); expression = "-9a3dcb
java - JDBC 连接被对等方关闭(奇怪)
我的两个应用程序遇到了一个奇怪的问题。这是设置: 两个 tomcat/java 应用程序，在同一个网络中运行，连接到相同的 MS-SQL-Server。一个应用程序，恰好按顺序位于 DMZ 中可从互联
Android OnLongClickListener 奇怪/不可靠的行为
我目前正在与 Android Api Lvl 8 上的 OnLongClickListener 作斗争。拿这段代码: this.webView.setOnLongClickListener(new
java - JUnit 奇怪 - 我未指定预期数量
这个问题不太可能帮助任何 future 的访问者；它只与一个小的地理区域、一个特定的时间点或一个非常狭窄的情况相关，这些情况并不普遍适用于互联网的全局受众。为了帮助使这个问题更广泛地适用，visit
objective-c - performSelectorOnMainThread 奇怪
只是遇到了奇怪的事情。我有以下代码: -(void)ImageDownloadCompleat { [self performSelectorOnMainThread:@selector(up

首页

博学

6Ren·AI

商城

delphi - TFileStream 的行为很奇怪