자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

XE10.4를 사용하여 이미지컴퍼넌트로 작성한 이미지를

서버로 전송하는 방법에 어떤 무제가 있을까요?

 

프로그램은

모바일에서 image1에 싸인 받아서  MSSQL서버로 저장하려하는 겁니다

모바일에서 image1에 싸인을 받는것은 성공했는데 이것을 datasnap을 이용헤서 서버로 전송하는

부분에 에러가 납니다

 

1) 저장화면의 이미지를 넘기는 방업이 잘못된건지?

2) data모듈쪽에서 서버로 넘기는 부분의 이미지control이 잘못된건지 모르겠습니다.

 

--------- 저장화면----------------------

procedure TForm2.Button3Click(Sender: TObject);

var

  ImgStream : TMemoryStream;

begin

try

ImgStream := TMemoryStream.Create;

Image1.Bitmap.SaveToStream(ImgStream);

ImgStream.Position := 0;

if SQLConnection1.connected = false then

   SQLConnection1.connected:=true;

Method := TServerMethods1Client.Create(SqlConnection1.DBXConnection);

Method.RVArea( 0,0, ImgStream);

Method.Free;

SQLConnection1.connected:=false;

 

Finally

  ImgStream.free;

End;

end;

 
-------- data모듈 ---------
procedure TServerMethods1Client.RVArea( i1: Integer; i2: Integer;  img: TMemoryStream);
begin
 
  if FDataQueryAreaCommand = nil then
  begin
    FDataQueryAreaCommand             := FDBXConnection.CreateCommand;
    FDataQueryAreaCommand.CommandType := TDBXCommandTypes.DSServerMethod;
    FDataQueryAreaCommand.Text        := 'TServerMethods1.RVArea';
    FDataQueryAreaCommand.Prepare;
  end;
 
  FDataQueryAreaCommand.Parameters[0].Value.SetInt32(i1);
  FDataQueryAreaCommand.Parameters[1].Value.SetInt32(i1);
  FDataQueryAreaCommand.Parameters[2].Value.SetStream(img, FInstanceOwner);
  FDataQueryAreaCommand.ExecuteUpdate; <--- 요기 실행할때 "Remote error:Invalid class typecast"
                                                                에러가 나면서 서버쪽으로 못넘깁니다
 
end;
--------  서버쪽 -------------
procedure TServerMethods1.RVArea( i1: Integer;  i2: Integer;  img: TMemoryStream);
begin
 
  exit;  -- 여기까지도 오지 않습니다
      FDQuery2.close;
      FDQuery2.sql.clear;
      FDQuery2.SQL.Add(' insert into ....... ');
      FDQuery2.ParamByName('psign').LoadFromStream(img, ftBlob );
end;
 
 
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 13261
공지 유용한 관련 사이트 관리자2 2014.03.20 51871
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 92123
3280 rad studio xe2 설치 프로그램 실행시 설치프로그램 강제 종료 secret 마구 2013.04.30 0
3279 paserver오류 [1] secret 최종호 2013.05.02 1
3278 DB 관련 질문 입니다! [1] secret 탄돌이 2013.06.17 1
3277 JVL이라는 라이브러리 관련에러 [1] secret 관리자 2015.02.25 1
3276 제품관련 질문입니다. [1] secret 우와 2014.07.17 2
3275 델파이 프로그래밍언어 책 구입했는데요 [1] secret 나본좌 2012.04.10 2
3274 책 19쪽에 맨처음 하는 예제에서요 secret 나본좌 2012.04.11 2
3273 DB Query 문의 드립니다. [1] secret memc 2012.05.16 2
3272 html5 buider 문의 드립니다. secret 2012.12.14 2
3271 Component들이 보이지 않습니다. secret 변보언 2013.01.22 2
3270 기본 bpl (rtl160.bpl등) 배포시 jdbg파일도 같이 배포해야 하나요? [1] secret 한림대의료원정보기술센터 2013.06.11 2
3269 string.format 함수의 한글 자리수 문제 secret kidb 2014.03.04 2
3268 비콘 안드로이스 샘플소스로 실행했는데 안됩니다. [2] secret kim 2015.12.04 2
3267 비콘신호 수신간격 조정을 어디서 해야하나요? [2] secret kim 2015.12.04 2
3266 MessageDlg 관련 질문입니다. [1] secret 신산 2013.06.20 3
3265 [한미반도체] 64BIT PACKGE관련문의 secret 키루루 2014.08.20 3
3264 위험감지앱이 감지를 했을때만 화면표시를 할 수 있나요? [2] secret kim 2015.12.02 3
3263 ChannelManager을 이용한 콜백 문의 secret lespaul06 2015.02.04 3
3262 WebBrowser1 익스플로러 버젼 secret fanta 2015.01.31 3
3261 아래 질문에 대한 스크린샷 첨부입니다. [2] secret 조우상 2012.05.02 4