ClientDataSet image field yükleme (DataSnap)

[yemre]

(25-01-2023, Saat: 09:25)tekrar gözden geçirdim şu an sorunum düzeldi . hi_selamlar Adlı Kullanıcıdan Alıntı:

procedure TForm3.Button2Click(Sender: TObject);
   var
 siras:Integer;
 i,n:Integer;
 msFoto: TMemoryStream;

begin
  Form3.UniQuery1.Close;
  Form3.UniQuery1.SQL.Clear;
  Form3.UniQuery1.SQL.Add('select * from  data_ilan ');
  Form3.UniQuery1.Open;
  n:=Form3.UniQuery1.RecordCount;

for i := 0 to n-1 do
  begin
   siras:= Form3.UniQuery1sira.Value;
   Form3.UniQuery1.Next;
if siras= 1 then
  begin
       Memo1.Lines.Clear;
       Memo1.Lines.Add(Form3.UniQuery1metin.Value);
       msFoto := TMemoryStream.Create;
        try
       TBlobField(UniQuery1.FieldByName('pic')).SaveToStream(msFoto);
       msFoto.Position := 0;
       Image1.Bitmap.LoadFromStream(msFoto);
       finally
         msFoto.Free;
       end;
  end
else if siras=2 then
  begin
       Memo2.Lines.Clear;
       Memo2.Lines.Add(Form3.UniQuery1metin.Value);
       msFoto := TMemoryStream.Create;
        try
       TBlobField(UniQuery1.FieldByName('pic')).SaveToStream(msFoto);
       msFoto.Position := 0;
       Image2.Bitmap.LoadFromStream(msFoto);
       finally
         msFoto.Free;
       end;
  end
  else if siras=3 then
  begin
       Memo3.Lines.Clear;
       Memo3.Lines.Add(Form3.UniQuery1metin.Value);
       msFoto := TMemoryStream.Create;
        try
       TBlobField(UniQuery1.FieldByName('pic')).SaveToStream(msFoto);
       msFoto.Position := 0;
       Image3.Bitmap.LoadFromStream(msFoto);
       finally
         msFoto.Free;
       end;
  end
  else if siras=4 then
  begin
       Memo4.Lines.Clear;
       Memo4.Lines.Add(Form3.UniQuery1metin.Value);
       msFoto := TMemoryStream.Create;
        try
       TBlobField(UniQuery1.FieldByName('pic')).SaveToStream(msFoto);
       msFoto.Position := 0;
       Image4.Bitmap.LoadFromStream(msFoto);
       finally
         msFoto.Free;
       end;
  end
  else if siras=5 then
  begin
       Memo5.Lines.Clear;
       Memo5.Lines.Add(Form3.UniQuery1metin.Value);
       msFoto := TMemoryStream.Create;
        try
       TBlobField(UniQuery1.FieldByName('pic')).SaveToStream(msFoto);
       msFoto.Position := 0;
       Image5.Bitmap.LoadFromStream(msFoto);
       finally
         msFoto.Free;
       end;
  end
  else if siras=6 then
  begin
       Memo6.Lines.Clear;
       Memo6.Lines.Add(Form3.UniQuery1metin.Value);
       msFoto := TMemoryStream.Create;
        try
       TBlobField(UniQuery1.FieldByName('pic')).SaveToStream(msFoto);
       msFoto.Position := 0;
       Image6.Bitmap.LoadFromStream(msFoto);
       finally
         msFoto.Free;
       end;
  end
end;

Merhabalar,

Yukarı da paylaşılan link'i tam olarak incelemenizi öneririm.

@RAD Coder > https://www.delphican.com/showthread.php...1#pid51741

msFoto.Position := 0;

nasıl kullanıldığını,

yine aynı şekilde

msFoto.Free;

Hangi aşamadan sonra kullanıldığına dikkat edin.

Kolay gelsin.