Clomosy ile değişken kullanımı - Category Resmi ekleme

Sayfayı Yazdır | Pencereyi Kapat

Category Resmi ekleme

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1203
Tarih: 06 Ekim 2025 Saat 20:04
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Category Resmi ekleme

Mesajı Yazan: M-Guney
Konu: Category Resmi ekleme
Mesaj Tarihi: 06 Ekim 2025 Saat 15:17

Ben ERP projesinde kullanmak için telefondan ImageChooser ile eklenmiş olan fotoğrafı API aracılığıyla serverda tutup daha sonrasında kullamak istiyorum.

ImageChooser da proImage kullanımına izin vermiyor verseydi
CameraImg.clProSettings.PictureSource şeklinde almayı planlıyordum ben bu resmi nasıl api aracılığıyla veri tabanına yollayabilirim.

Cevaplar:

Mesajı Yazan: M-Guney
Mesaj Tarihi: 06 Ekim 2025 Saat 15:39

void onbtnClick;

{

try

Clomosy.ImageChooser(Form1, CameraImg2);

CameraImg2.Bitmap.SaveToStream(MemStream);

noteMemo.Lines.Text = MemStream.AsBase64;

// Image içindeki resmi okuyup base 64 çevirip db ye yaz

except

ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

}

Mesajı Yazan: M-Guney
Mesaj Tarihi: 06 Ekim 2025 Saat 15:40

https://resmim.net/i/jrRglK%20" rel="nofollow - https://resmim.net/i/jrRglK

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 06 Ekim 2025 Saat 18:11

Merhaba Güney,
2 farklı prosedür örneği göndereceğim, inceledikten sonra benzer hata alırsan tekrar bakalım.
1)

void gorselYuklendi;

var

base64Image: string;

apiUrl: string;

RequestBody: string;

tempPath: string;

FileStream: TclMemoryStream;

{

FileStream = TCLMemoryStream.Create;

CameraImg.Bitmap.SaveToStream(FileStream);

base64Image = Clomosy.StreamToBase64(FileStream);

apiUrl = 'kendi api keyin' + API_KEY;

RequestBody = '{

"requests": [

{

"image": {

"content": "' + base64Image + '"

"features": [

{

"type": "DOCUMENT_TEXT_DETECTION",

"maxResults": 10

}

]

}

]

}';

try

RestCreate(apiUrl, RequestBody);

except

ShowMessage('Görsel verisi hazırlanırken hata oluştu: ' + LastExceptionMessage);

}

}
*************************
2)

void Stream2Base64;

var

clMemoryStream:TCLMemoryStream;

{

// Save Img To File

clMemoryStream=TCLMemoryStream.Create;

try

CameraImg.Bitmap.SaveToStream(clMemoryStream);

base64Image = Clomosy.StreamToBase64(cLMemoryStream);

except

base64Image = '';

}

}
Resmi SQL'e update için;
CLQuery.FieldByName('Resim_Yolu').AsString = base64Image;