我要使用DataSnap从服务器内存读出流数据，不是数据库

螃蟹

测试DataSnap可以调用服务方法写入一个stream到服务器的内存，但是测试读出服务器的内存到一个Stream报错，方式是付给服务器方法stream指针

wang_80919

无代码无真相。
这里不是群，所以喜欢代码。

螃蟹

服务端函数
unsigned char xxx[20480]={11,22,33,44,55},yyy[10]={0};
int  TServerMethods1::getArraypm(TMemoryStream *sm)
{
        sm->Position=0;
        sm->WriteBuffer(xxx,20480);
        sm->Position=0;
        return 1;
}
客户端函数
unsigned char xxx[]={5,4,3,2,1,0},yyy[20480]={0};
void __fastcall TForm3::Button1Click(TObject *Sender)
{
        TMemoryStream *sm=new TMemoryStream;
        //unsigned char *p=new char[100];
        ClientModule1->ServerMethods1Client->getArraypm(sm);
        sm->Position=0;
        sm->ReadBuffer(yyy,sm->Size);
        sm->Position=0;
        AnsiString ss;
        ss=ss.sprintf("%d,%d,%d,%d,%d",yyy[0],yyy[1],yyy[2],yyy[3],yyy[4]);
        Edit1->Text=ss;
}
服务端执行到sm->WriteBuffer(xxx,20480);的时候报stream写入错误
如果把这个服务端函数作为本地调用是没问题的

wang_80919

sorry 不懂 c++是不是 char 不行。你换 byte 试试。

另外，就算是 delphi ，我也经常搞不懂 WriteBuffe Write 的区别。
而且，他们的参数和数组和指针，如何配套，我也是糊里糊涂。

所以，我经常是换着写。
例如
var
  a:array of int;

writebuffer(a, 10);
不行就是
writebuffer(a[0], 10);

反正就是换来换去，说不定就正常了。

螃蟹

这是代理生成的代码
int __fastcall TServerMethods1Client::getArraypm(TMemoryStream* sm)
{
  if (FgetArraypmCommand == NULL)
  {
    FgetArraypmCommand = FDBXConnection->CreateCommand();
        FgetArraypmCommand->CommandType = TDBXCommandTypes_DSServerMethod;
    FgetArraypmCommand->Text = "TServerMethods1.getArraypm";
        FgetArraypmCommand->Prepare();
  }
  FgetArraypmCommand->Parameters->Parameter[0]->Value->SetStream(sm, FInstanceOwner);
  FgetArraypmCommand->ExecuteUpdate();
  int result = FgetArraypmCommand->Parameters->Parameter[1]->Value->GetInt32();
  return result;
试了，不让写入，可能是因为这个SetStream(sm, FInstanceOwner);函数，GetStream（bool）函数不能带sm参数，DBXReader不会用，改成回调函数读取了