안녕하세요. 최용일입니다.

코딩을 안봐서 확실하진 않지만 스트림에서 읽을때나 저장할때 파일의 위치가 맨끝에 있기 때문에 그런겁니다. 파일을 읽을때 위치를 맨처음으로 맞추어주세요...

^^ 항상 즐코하세요...

procedure TF_dk_create.pic_find;
var BStream : TStream;
AJ : TJPegImage;
AB : TBitmap;
Data : array[0..15] of Char;
begin
with dm1.IBQdk_create do
  begin
   try
    if active then
      begin
       BStream := CreateBlobStream(fieldbyname('pic'),bmread);
       try
         BStream.Read(Data,16);
         BStream.Position := 0;
        if(Data[6]='J')and(Data[7]='F')and(Data[8]='I')and(Data[9]='F') or   (data='') then
         begin
           AJ := TJPegImage.Create;
           try
             AJ.LoadFromStream(BStream);
             img1.Picture.Assign(AJ);
             image1.Picture.Assign(AJ);
           finally
             AJ.Free;
           end;
         end
        else if(Data[0]='B')and(Data[1]='M') then
         begin
           AB := TBitmap.Create;
           try
             AB.LoadFromStream(BStream);
             img1.Picture.Assign(AB);
             image1.Picture.Assign(AB);
           finally
             AB.Free;
            end;
         end
        else
         begin

///////////////////////////////////////  이부분이 문제인것같은뎅 ㅡㅡ;

         // img1.Picture:=nil;
           AJ := TJPegImage.Create;
           try
             AJ.LoadFromStream(BStream);
             img1.Picture.Assign(AJ);
             image1.Picture.Assign(AJ);
          // Except
         finally

             AJ.Free;
           end;
         end;
       finally
         BStream.Free;
       end;

/////////////////////////////////////////////////////


//       graphic_read(Img1,dm1.IBQdk_create,'pic');
      end
     else img1.Picture:=nil;
   finally
//    close;
   end;
  end;
end;

안녕하세요. 최용일입니다.

이건 음~~~

마지막 else부분에 헤더가 JPEG도 아니고 BMP도 아닌데 JPEG로 파일을 읽으시는것 같은데... TJpegImage클래스는 JPEG파일아니면 읽지 못합니다...

첫번째 부분에서도 or다음부분이 문제가 될수도 있습니다.

참고하세요...

^^ 항상 즐코하세요...


AJ.LoadFromStream(BStream);

위에서처럼 로그하기 전에 BStream의 위치를 처음으로 옮겨보세요...

BStream.Position := 0;
AJ.LoadFromStream(BStream);

^^ 항상 즐코하세요...