从Delphi流在Oxygene加载字符串

Question

我是Oxygene的新手，我想从Delphi生成的流中读取字符串。我通过TCP接收这个流。下面是我如何在客户端将字符串保存到流:

procedure SaveStringToStream(AStream: TStream; AString: String);
var
  StringSize: Integer;
  StringToSave: AnsiString;
begin
  StringToSave := Utf8Encode(AString);
  StringSize := Length(StringToSave);
  AStream.WriteBuffer(StringSize, SizeOf(StringSize));
  AStream.WriteBuffer(Pointer(StringToSave)^, StringSize);
end;

如您所见，我首先将字符串的大小添加到流中，然后添加内容。我现有的从服务器端(Oxygene)的流中加载字符串的方法如下:

function LoadStringFromStream(const aStream: NSInputStream): String;
begin
  var buf: array[1024] of uint8_t;
  var len: Integer:= 0;   
  len := aStream.&read(buf) maxLength(1024);
  if len > 0 then
  begin    
    nslog(len.stringValue);
    var data: NSMutableData := NSMutableData.alloc().initWithLength(0);
    data.appendBytes(@buf) length(buf[0]); 
    exit NSString.alloc().initWithData(data) encoding(NSStringEncoding.NSASCIIStringEncoding);             
  end;    
end;

但是这返回的是孔内容，而不是当前部分。

编辑:哦，我在服务器应用程序中犯了一个错误……现在我能够读取字符串，但不能读取整数值(最多256位)。对于Objective-C，我找到了以下代码

- (int32_t)readInt32
{
    int32_t value = 0;
    if ([self read:(uint8_t *)&value maxLength:4] != 4)
    {
        NSlog(@"***** Couldn't read int32");
    }
    return value;
}

这就是Oxygene代码:

function readInt32(const aStream: NSInputStream): Integer;
begin
  var value: int32_t := 0;
  var tmp:= uint8_t(@value);
  if aStream.&read(@tmp) maxLength(4) <> 4 then
    NSLog('***** Couldn''t read int32');  
  exit value;
end;

但是出了问题，我没有得到任何价值。你们知道我要做什么吗?

Answer 1

我认为你已经转换了Objective-C代码(稍微，但明显)不正确:

function readInt32(const aStream: NSInputStream): Integer;
begin
  var value: int32_t := 0;
  var tmp:= uint8_t(@value);
  if aStream.&read(@tmp) maxLength(4) <> 4 then
    NSLog('***** Couldn''t read int32');  
  exit value;
end;

在上面的代码中，tmp被声明为一个单字节，并使用值变量的地址的类型强制转换进行初始化。因此，如果值变量存储在内存地址$12345678(为了简洁起见，愚蠢的例子保留为32位)，那么tmp将被初始化为值$78。然后将tmp变量的地址传递给aStream.read()，它尝试将4个字节读取到tmp变量的位置。但是tmp只是一个1字节的值!

我认为你需要改变tmp的声明，使它成为一个指针到unit8_t，然后直接传递给aStream.read():

  var value: int32_t := 0;
  var tmp:= ^uint8_t(@value);
  if aStream.&read(tmp) maxLength(4) <> 4 then
    NSLog('***** Couldn''t read int32'); 

或者去掉tmp变量，直接传递值的地址，使用适当的强制转换:

  var value: int32_t := 0;
  if aStream.&read(^uint8_t(@value)) maxLength(4) <> 4 then
    NSLog('***** Couldn''t read int32'); 

后一种方法更直接地与Objective-C的原始方法相比较。

Answer 2

您需要先读取长度，然后读取UTF-8编码的字节。我不知道氧，但代码可能是这样的:

var len: Integer:= 0;   
aStream.&read(len) maxLength(sizeof(Integer));
var buf := new uint8_t[len];
aStream.&read(buf) maxLength(len);

我完全认为我的语法是错误的，但这是一般的想法!