procedure TF_CMServer.JpegToDB;
> var
> JpegImage : TJpegImage;
> MS: TMemoryStream;
> begin
> JpegImage := TJpegImage.Create;
> MS := TMemoryStream.Create;
>
> ImageMap.Picture.LoadFromFile('c:Inetpubftprootclientimage_jpeg.jpg');
>
> JpegImage.Assign(ImageMap.Picture.Graphic);
> MS.Position:=0;
> JpegImage.SaveToStream(MS);
>
> with CMLogQuery do
> begin
> Close;
> Sql.Clear;
> Sql.Add('update log set SCREENIMAGE=:SCREENIMAGE');
> Sql.Add('where COMNAME=:COMNAME and STUDENTNUM=:STUDENTNUM and STARTTIME=:STARTTIME');
>
> ParamByName('SCREENIMAGE').LoadFromStream(MS,ftBlob);
> ExecSql;
> end;
>
> JpegImage.Destroy;
> MS.Destroy;
> end;
위와 같이 코딩하여 이미지를 코딩하였는데 DBimage를 연결하면 틀린 이미지라고
경고 메세지가 뜨는데요
위와 같이 DB에 저장후 에떻게 하여야 DBimage에 출력이 가능합니까?
지도 바랍니다
db에 저장한형식이 jpeg이니까 이것을 읽기위해서는 image컴포넌트를
이용하세요.
이근보 wrote:
> procedure TF_CMServer.JpegToDB;
> > var
> > JpegImage : TJpegImage;
> > MS: TMemoryStream;
> > begin
> > JpegImage := TJpegImage.Create;
> > MS := TMemoryStream.Create;
> >
> > ImageMap.Picture.LoadFromFile('c:Inetpubftprootclientimage_jpeg.jpg');
> >
> > JpegImage.Assign(ImageMap.Picture.Graphic);
> > MS.Position:=0;
> > JpegImage.SaveToStream(MS);
> >
> > with CMLogQuery do
> > begin
> > Close;
> > Sql.Clear;
> > Sql.Add('update log set SCREENIMAGE=:SCREENIMAGE');
> > Sql.Add('where COMNAME=:COMNAME and STUDENTNUM=:STUDENTNUM and STARTTIME=:STARTTIME');
> >
> > ParamByName('SCREENIMAGE').LoadFromStream(MS,ftBlob);
> > ExecSql;
> > end;
> >
> > JpegImage.Destroy;
> > MS.Destroy;
> > end;
> 위와 같이 코딩하여 이미지를 코딩하였는데 DBimage를 연결하면 틀린 이미지라고
> 경고 메세지가 뜨는데요
> 위와 같이 DB에 저장후 에떻게 하여야 DBimage에 출력이 가능합니까?
> 지도 바랍니다