Merhaba,
Daha önce paylaşıldımı mı bilmiyorum ama bana lazım olan birşeyi sizinle de paylaşmak istedim.
Uygulamalarımızda resim göstermek isteriz. Göstermek istediğimiz resim genelde bir yere upload edip oradan idhttp ile çekip göstermek gibi bir yöntem gelir aklımıza ama daha hızlı ve daha kullanışlı bir yöntem daha mevcut. Bu yöntem kısaca önce bir resmi base64'e çevirip bu base64 çıktısını mysql'e kaydedip resmi göstermek istediğimiz yerde mysql'den çekip base64 to image yaparak resmi göstermektir.
Böylelikle herhangi bir yere upload etmeden kolayca resminizi gösterebiliyorsunnuz.
Kodlama biraz özensizce olabilir kusura bakmayın
kodlar şu şekilde;
Örnek uygulamayı da ekte paylaştım kolay gelsin
Daha önce paylaşıldımı mı bilmiyorum ama bana lazım olan birşeyi sizinle de paylaşmak istedim.
Uygulamalarımızda resim göstermek isteriz. Göstermek istediğimiz resim genelde bir yere upload edip oradan idhttp ile çekip göstermek gibi bir yöntem gelir aklımıza ama daha hızlı ve daha kullanışlı bir yöntem daha mevcut. Bu yöntem kısaca önce bir resmi base64'e çevirip bu base64 çıktısını mysql'e kaydedip resmi göstermek istediğimiz yerde mysql'den çekip base64 to image yaparak resmi göstermektir.
Böylelikle herhangi bir yere upload etmeden kolayca resminizi gösterebiliyorsunnuz.
Kodlama biraz özensizce olabilir kusura bakmayın
kodlar şu şekilde;
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
FMX.StdCtrls, FMX.Controls.Presentation, FMX.Edit, IdBaseComponent, IdCoder,
IdCoder3to4, IdCoderMIME, FMX.ScrollBox, FMX.Memo;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
IdDecoderMIME1: TIdDecoderMIME;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
Edit1: TEdit;
Button2: TButton;
IdEncoderMIME1: TIdEncoderMIME;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
Strm: TMemoryStream;
begin
Strm := TMemoryStream.Create;
try
S:=memo1.Text;
TIdDecoderMIME.DecodeStream(S, Strm);
Strm.Position := 0;
Image1.Bitmap.LoadFromStream(Strm);
finally
Strm.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
S: String;
Strm:TFilestream;
begin
Strm:=TFilestream.Create(edit1.Text,fmOpenRead);
s:=IdEncoderMIME1.EncodeStream(Strm) ;
Memo1.Text:=S;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
edit1.Text:=OpenDialog1.FileName;
end;
end;
end.
Örnek uygulamayı da ekte paylaştım kolay gelsin
. İhtiyacınıza göre FileStream kullanmadan, ama dosyaları da veri tabanı içine ekleyerek çözüm üretmek uygun olabilir. Olmaya da bilir 
