데이터 snap 전송 흐름/파일 문제

Datasnap 서버에서 다음과 같은 메서드를 정의했습니다.

procedure UpdateDoc(ItemID : integer; doc : TStream);

클라이언트

AServerMethods_PublicClient := TServerMethods_PublicClient.Create(DM_Client.SQLConnection1.DBXConnection);

  ItemText := TMemoryStream.Create;

  try

    ItemText.LoadFromFile('E:\private\ksxt\Source\Client\Win32\Debug\blank.rtf');

    ItemText.Position := 0;

    ShowMessage('ItemText.Size := ' + IntToStr(ItemText.Size));



    AServerMethods_PublicClient.UpdateDoc(6, ItemText);

  finally

    ItemText.Free;

    AServerMethods_PublicClient.Free;

  end;

그러나 서버에서 수신한doc의 크기는 시종 -1로 흐르지 않습니다.이후 TJSONarray를 사용하여 변환할 수 있습니다.서버는 이렇게 씁니다.

procedure TServerMethods_Public.UpLoadFile(ADoc: TJSONArray);

var

  ADBXJSONTools : TDBXJSONTools;

  AData : TMemoryStream;

begin

  AData := TMemoryStream.Create;

  try

    AData := ADBXJSONTools.JSONToStream(ADoc) as TMemoryStream;

    ShowMessage(IntToStr(AData.Size));

    AData.SaveToFile('123.rtf');

  finally

    Adata.Free;

  end;

end;

클라이언트는 이렇게 씁니다.

ItemText.LoadFromFile('E:\private\ksxt\Source\Client\Win32\Debug\blank.rtf');

    ItemText.Position := 0;

    ShowMessage('ItemText.Size := ' + IntToStr(ItemText.Size));

    ADoc := ADBXJSONTools.StreamToJSON(ItemText, 0, ItemText.Size);

    AServerMethods_PublicClient.UpLoadFile(ADoc);

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

pandas 읽기 및 쓰기 Excel

pandas 읽기와 쓰기 Excel은 중복된 데이터 가공 작업을 pandas에 맡기고 수동 노동을 절약하며 사용하기도 편리하지만 출력의 형식은 그다지 아름답지 않다.본고는 read_excel()과to_excel()의...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

데이터 snap 전송 흐름/파일 문제

좋은 웹페이지 즐겨찾기