A_Jpeg가 정확인 무엇인가요?
A_Jpeg가 TImage이고 여기에 *.jpg를 로딩한 것인지요?
쿼리 문제가 아닌듯 하네요.
이동안 님이 쓰신 글 :
: //
: Zeos Database 5.3.4입니다.
: //
: 저 소스를 아래와 같이 수정하였으나 마찬가지로 첨부파일에 올립니다. 도움좀 부탁합니다.
: 정상적인 그림은 bmp입니다.
: 파일로 저장시 깨진 그림입니다.
: //
: ///////////////////////////////////////////////////////////////////////////////////////
: TheStream := TMemoryStream.Create;
: try
: A_Jpeg.Picture.Bitmap.SaveToStream(TheStream);
: With P_a_DataF.Q1 Do Begin
: SQL.Text :='Update Pan41 '+
: ' Set H_Jpeg = :A_Jpeg '+
: ' Where H_Hyun = :A_Hyun ';
: Params.Clear;
: Params.CreateParam(ftString,'A_Hyun', ptInput);
: Params.CreateParam(ftBlob ,'A_Jpeg', ptInput);
: ParamByName('A_Hyun').AsString := A_Hyun.Text;
: ParamByName('A_Jpeg').LoadfromStream(TheStream, ftBlob);
: ExecSQL;
: end;
: finally
: TheStream.Free;
: end;
|