datasnap(Mysql)BlobField Problemi

[jakarta2]

Merhaba;

Delphi Desktop projelerinde blob kayıtlar için;

procedure SavePictureFileToField(PictureFile: TFileName; Field: TBlobField);
var
lWICImage: TWICImage;
begin
lWICImage := TWICImage.Create;
lWICImage.LoadFromFile(PictureFile);
Field.Assign(lWICImage);
lWICImage.Free;
end;

procedure LoadPictureFromField(Field: TBlobField; Picture: TPicture);
var
lWICImage: TWICImage;
begin
if (Field.BlobSize > 0) then
begin {Assume image}
lWICImage := TWICImage.Create;
lWICImage.Assign(Field);
Picture.Assign(lWICImage);
lWICImage.Free;
end
else {Empty}
begin
Picture.Assign(nil);
end;
end;


kullanıyordum windows olduğu için sorun yaşamıyordum. Android'te TWICImage bileşeni yok declarede edemiyorum.

----------------------------------------------------------------------------------------------
database'e kaydetmek çok kolay ama bind visually ile image ve field bağlı olduğu için program açılırken loading bitmap failed hatası veriyor.

procedure Tfmgiris.TakePhotoFromCameraAction2DidFinishTaking(Image: TBitmap);
begin
ClientDataSet1modelresim.Assign(image);
image1.Bitmap.Assign(image);
end;

kodu ile doğrudan database'e yazıyorum ama çağırıp image'a atayamıyorum.

[greenegitim]

o Fieldın propertiesinde type ında blob değilde graphics gibi birşey olması lazım öyle bir dene

[jakarta2]

clientdataset field editördeki filed'ın blob type ftgraphic seçili...

[jakarta2]

Bu problemi hala çözemedim

[Nemesis2005]

Kod: Tümünü seç

        MS := TMemoryStream.Create;
        try
          TBlobField(FieldByName('RESIM')).SaveToStream(MS);
          MS.Seek(0,soFromBeginning);
          ImageControlStok.Bitmap.LoadFromStream(MS);
        finally
          MS.Free;
        end;

Ben bu şekilde kullanıyorum bir sıkıntı yaşamıyorum..