제가 Zeos를 사용하지 않는 관계로 테스트 해볼 환경이 안되어서
인터넷으로 검색한 자료를 올려드립니다.
*** 로 표시한 부분을 살펴보시길 바랍니다.
파라메터를 BLOB타입으로 강제로 만들어주는 것이 포인트입니다.
var
TheStream: TMemoryStream;
begin
TheStream := TMemoryStream.Create;
try
Image1.Picture.Bitmap.SaveToStream(TheStream);
with qryBlobInsert do begin
Sql.Text := 'INSERT INTO EVENTS (EventNo,EVENT_PHOTO) ' +
'VALUES (100,:ThePicture)';
*** Params.Clear;
*** Params.CreateParam(ftBlob, 'ThePicture', ptInput);
*** ParamByName('ThePicture').LoadfromStream(TheStream, ftBlob);
ExecSQL;
end;
finally
TheStream.Free;
end;
end;
이동안 님이 쓰신 글 :
: Zeos Database 5.3.4입니다.
|