오라클에 저장되어 있는 이미지 파일을 파라독스로 옮기려고 하는뎅...

어떻게 구현해야 하는지 모르겠네여..



ITH CLIENTDATASET1 DO

BEGIN

CommandText := 'SELECT * FROM SCIMGETB';

OPEN;

Query1.Close;

Query1.SQL.Clear;

while not eof do

begin

Query1.SQL.Text := 'INSERT INTO IMAGE_M(IMAGE_NAME, IMAGE_PIC) VALUES (:IMAGE_NAME, :IMAGE_PIC)' ;

Query1.ParamByName('IMAGE_NAME').AsString := FieldByName('IMGOCD').AsString;

TBlobField(Query1.parambyname('IMAGE_PIC')).Assign(DBimage1.Picture.Bitmap);

Query1.ExecSQL;

Next;

End;

END;

이렇게 하면 파일이름을 가져오는데... 이미지는 저장이 안 되네여..

이미지를 저장해야 하는데...

제발좀 도와 주십시오..

TBlobField(Query1.parambyname('IMAGE_PIC')).Assign(DBimage1.Picture.Bitmap);

이 문법이 잘못되었나?

고수님들 꼭 답변좀 주십시오..