Clomosy | Forum : Fotograf gonderemiyorum https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 00:37:23 +0000 Tue, 12 May 2026 22:47:55 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1529 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Fotograf gonderemiyorum : ımagechooser ile seçilen görseli...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3535#3535 Yazar: Emr.Erkmn
Konu: 1529
Gönderim Zamanı: 12 Mayıs 2026 Saat 22:47

ımagechooser ile seçilen görseli clomosy de yerel dosya yoluyla alalım
clomosy üzerinden Cloudinary'nin apisine post isteği gönder
Cloudinary'den dönen secure_url bilgisini db ye gönder https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Tue, 12 May 2026 22:47:55 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3535#3535 <![CDATA[Fotograf gonderemiyorum : Merhaba Zeynepilettiğin hatanın...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3534#3534 Yazar: Emr.Erkmn
Konu: 1529
Gönderim Zamanı: 12 Mayıs 2026 Saat 22:46

Merhaba Zeynep

ilettiğin hatanın sebebi clomosy de doğrudan .picture özelliğinin olmaması 

var
  clRest : TclRest;
  secilenFotoBase64, cloudinaryLink, g_ApiUrl : String;
  g_KullaniciId : Integer;

void CloudinaryeYukleVeGonder;
var
  cloudRest: TclRest;
  jsonBody: String;
{
  if (secilenFotoBase64 == '') {
    ShowMessage('Lütfen önce bir fotoğraf seçin.');
    Exit;
  }

  BtnGonder.Enabled = False;
  cloudRest = TclRest.Create;
  
  // 'YOUR_CLOUD_NAME' kısmını kendi hesabındaki isimle değiştir
  cloudRest.Method = rmPost;
  
  cloudRest.AddParameter('file', 'data:image/jpg;base64,' + secilenFotoBase64);
  cloudRest.AddParameter('upload_preset', 'YOUR_UNSIGNED_PRESET'); 

  try
    cloudRest.Execute;
    if (cloudRest.Response <>'') 
    {
      cloudinaryLink = Clomosy.JsonPathString(cloudRest.Response, 'secure_url');
      
      if (cloudinaryLink <>'') 
      {
        SikayetiGonder(cloudinaryLink);
      }
      else
      {
        ShowMessage('Fotoğraf yükleme başarısız oldu.');
        BtnGonder.Enabled = True;
      }
    }
  except
    ShowMessage('Bağlantı hatası: ' + LastExceptionMessage);
    BtnGonder.Enabled = True;
  }
}

void SikayetiGonder(AFotoUrl: String);
var
  sikayetRest: TclRest;
  jsonBody: String;
{
  sikayetRest = TclRest.Create;
  sikayetRest.BaseURL = g_ApiUrl + '/api/sikayet-ekle';
  sikayetRest.Method = rmPost;
  sikayetRest.Accept = 'application/json';
  
  jsonBody = '{' +
    '"kullanici_id": ' + IntToStr(g_KullaniciId) + ', ' +
    '"baslik": "' + EditBaslik.Text + '", ' +
    '"aciklama": "' + MemoAciklama.Text + '", ' +
    '"foto_url": "' + AFotoUrl + '"' + 
  '}';

  sikayetRest.AddBody(jsonBody, 'application/json');
  
  try
    sikayetRest.Execute;
    ShowMessage('Şikayetiniz başarıyla iletildi!');
  except
    ShowMessage('Veritabanı hatası: ' + LastExceptionMessage);
    
  finally
    BtnGonder.Enabled = True;
  }
}

void FotografSec;
{  
  Clomosy.ImageChooser(MainForm, ImgOnizleme); 
  
  if (ImgOnizleme <>nil)
  {
    secilenFotoBase64 = ImgOnizleme.ToBase64;
    
    LblFotoAcik.Visible = False; 
    ImgOnizleme.Visible = True; 
    PnlFotoBox.clProSettings.BorderColor = clAlphaColor.clHexToColor('#27AE60'); 
    PnlFotoBox.SetclProSettings(PnlFotoBox.clProSettings); 
  }
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
]]> Tue, 12 May 2026 22:46:37 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3534#3534 <![CDATA[Fotograf gonderemiyorum : RUNTIME ERRORFile library Main:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3532#3532 Yazar: zeynepdeniz
Konu: 1529
Gönderim Zamanı: 12 Mayıs 2026 Saat 22:38

RUNTIME ERROR
File library Main: Unknown property or method: "Picture".

hocam böyle bir hata alıyorum 


veya çekilen fotoğrafı direkt cloudinary e gönderip linkini vt ye göndermenin bir yolu var mı?



https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Tue, 12 May 2026 22:38:50 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3532#3532 <![CDATA[Fotograf gonderemiyorum : Merhaba Zeynepkodda fotoğrafın...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3524#3524 Yazar: Emr.Erkmn
Konu: 1529
Gönderim Zamanı: 12 Mayıs 2026 Saat 22:06

Merhaba Zeynep


kodda fotoğrafın null gitmesinin nedeni secilenfotobase64 değişkenin fotoğrafsec prosedürü içinde sadece 'gercek_fotograf_secildi' gibi sabit bir metinle dolması.
clomos de ımage.chooser kullanııldığında seçilen dosyanın base64 verisi otomatik olarak değişkene atanmaz veriyi senin yakalaman gerekir

Fotoğraf seçildiğinde, sistemin bu görseli bir metin dizisine (Base64) çevirmesi gerekir.
void FotografSec;
{  
  Clomosy.ImageChooser(MainForm, ImgOnizleme); 
  
  if (ImgOnizleme.Picture.Bitmap <> nil)
  {
    secilenFotoBase64 = ImgOnizleme.Picture.Bitmap.ToBase64;
    
    LblFotoAcik.Visible = False; 
    ImgOnizleme.Visible = True; 

    PnlFotoBox.clProSettings.BackgroundColor = clAlphaColor.clWhite; 
    PnlFotoBox.clProSettings.BorderColor = clAlphaColor.clHexToColor('#27AE60'); 
    PnlFotoBox.SetclProSettings(PnlFotoBox.clProSettings); 
  }
}



güncel SikayetiGonder fonksiyonu 

void SikayetiGonder;
var
  clRest: TclRest;
  jsonBody, baslik, aciklama, response: String;
  kategoriId, mahalleId: Integer;
{
  baslik = EditBaslik.Text;
  aciklama = MemoAciklama.Text;
  kategoriId = CmbKategori.ItemIndex + 1;
  mahalleId = CmbMahalle.ItemIndex + 1;

  if (baslik == '') { ShowMessage('Lütfen başlık giriniz.'); Exit; }
  if (aciklama == '') { ShowMessage('Lütfen açıklama giriniz.'); Exit; }
  if (CmbKategori.ItemIndex <= 0) { ShowMessage('Lütfen kategori seçiniz.'); Exit; }
  if (CmbMahalle.ItemIndex <= 0) { ShowMessage('Lütfen mahalle seçiniz.'); Exit; }
  
  if (secilenFotoBase64 == '') {
    ShowMessage('Lütfen bir fotoğraf ekleyiniz.');
    Exit;
  }

  BtnGonder.Enabled = False;
  try
    clRest = TclRest.Create;
    clRest.BaseURL = g_ApiUrl + '/api/sikayet-ekle';
    clRest.Accept = 'application/json';
    clRest.ContentType = 'application/json'; 
    clRest.Method = rmPost;

    jsonBody = '{';
    jsonBody = jsonBody + '"kullanici_id": ' + IntToStr(g_KullaniciId) + ', ';
    jsonBody = jsonBody + '"kategori_id": ' + IntToStr(kategoriId) + ', ';
    jsonBody = jsonBody + '"mahalle_id": ' + IntToStr(mahalleId) + ', ';
    jsonBody = jsonBody + '"baslik": "' + baslik + '", ';
    jsonBody = jsonBody + '"aciklama": "' + aciklama + '", ';
    jsonBody = jsonBody + '"enlem": "' + gpsEnlem + '", ';
    jsonBody = jsonBody + '"boylam": "' + gpsBoylam + '", ';
    jsonBody = jsonBody + '"foto_url": "' + secilenFotoBase64 + '"'; 
    jsonBody = jsonBody + '}';

    clRest.AddBody(jsonBody, 'application/json');
    clRest.Execute;
    response = clRest.Response;

    if (response <> '')
    {
      ShowMessage('Şikayetiniz başarıyla gönderildi!');
      secilenFotoBase64 = '';
      ImgOnizleme.Visible = False;
      LblFotoAcik.Visible = True;
    }
    else
    {
      ShowMessage('Sunucudan yanıt alınamadı.');
    }
  except
    ShowMessage('Hata: ' + LastExceptionMessage);
  }
  BtnGonder.Enabled = True;
}



https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Tue, 12 May 2026 22:06:59 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3524#3524 <![CDATA[Fotograf gonderemiyorum : procedure SikayetiGonder;var clRest:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3520#3520 Yazar: zeynepdeniz
Konu: 1529
Gönderim Zamanı: 12 Mayıs 2026 Saat 21:56

procedure SikayetiGonder;
var
  clRest: TclRest;
  jsonBody, baslik, aciklama, response: String;
  kategoriId, mahalleId: Integer;
begin
  baslik   := EditBaslik.Text;
  aciklama := MemoAciklama.Text;
  kategoriId := CmbKategori.ItemIndex + 1;
  mahalleId  := CmbMahalle.ItemIndex  + 1;
  if baslik = '' then begin ShowMessage('Lütfen başlık giriniz.'); Exit; end;
  if aciklama = '' then begin ShowMessage('Lütfen açıklama giriniz.'); Exit; end;
  if CmbKategori.ItemIndex <= 0 then begin ShowMessage('Lütfen kategori seçiniz.'); Exit; end;
  if CmbMahalle.ItemIndex <= 0  then begin ShowMessage('Lütfen mahalle seçiniz.');  Exit; end;
  BtnGonder.Enabled := False;
  try
    clRest := TclRest.Create;
    clRest.BaseURL := g_ApiUrl + '/api/sikayet-ekle';
    clRest.Accept := 'application/json';
    clRest.Method := rmPost;
    jsonBody := '{';
    jsonBody := jsonBody + '"kullanici_id": ' + IntToStr(g_KullaniciId) + ', ';
    jsonBody := jsonBody + '"kategori_id": ' + IntToStr(kategoriId) + ', ';
    jsonBody := jsonBody + '"mahalle_id": ' + IntToStr(mahalleId) + ', ';
    jsonBody := jsonBody + '"baslik": "' + baslik + '", ';
    jsonBody := jsonBody + '"aciklama": "' + aciklama + '", ';
    jsonBody := jsonBody + '"enlem": "' + gpsEnlem + '", ';
    jsonBody := jsonBody + '"boylam": "' + gpsBoylam + '", ';
    jsonBody := jsonBody + '"foto_url": "' + secilenFotoBase64 + '"';
    jsonBody := jsonBody + '}';
    clRest.AddBody(jsonBody, 'application/json');
    clRest.Execute;
    response := clRest.Response;
    if response <> '' then
      ShowMessage('Şikayetiniz başarıyla gönderildi!');
    else
      ShowMessage('alınamadı.');
  except
    ShowMessage('hata: ' + LastExceptionMessage);
  end;
  BtnGonder.Enabled := True;
end; 

 LblFotoLbl := MainForm.AddNewProLabel(LytBody3, 'LblFotoLbl', 'Fotoğraf'); LblFotoLbl.Align := alTop; LblFotoLbl.Height := 20; LblFotoLbl.clProSettings.FontColor := clAlphaColor.clHexToColor('#5D6D7E'); LblFotoLbl.SetclProSettings(LblFotoLbl.clProSettings);
  PnlFotoBox := MainForm.AddNewProPanel(LytBody3, 'PnlFotoBox'); PnlFotoBox.Align := alTop; PnlFotoBox.Height := 90; PnlFotoBox.Margins.Bottom := 12; PnlFotoBox.clProSettings.BackgroundColor := clAlphaColor.clWhite; PnlFotoBox.clProSettings.BorderColor := clAlphaColor.clHexToColor('#CCD1D1'); PnlFotoBox.clProSettings.BorderWidth := 1; PnlFotoBox.clProSettings.RoundHeight := 8; PnlFotoBox.SetclProSettings(PnlFotoBox.clProSettings); MainForm.AddNewEvent(PnlFotoBox, tbeOnClick, 'FotografSec'); 
  LblFotoAcik := MainForm.AddNewProLabel(PnlFotoBox, 'LblFotoAcik', '[ ] Fotoğraf ekle'); LblFotoAcik.Align := alClient; LblFotoAcik.clProSettings.FontColor := clAlphaColor.clHexToColor('#5D6D7E'); LblFotoAcik.clProSettings.FontHorzAlign := palCenter; LblFotoAcik.clProSettings.FontVertAlign := palCenter; LblFotoAcik.SetclProSettings(LblFotoAcik.clProSettings); MainForm.AddNewEvent(LblFotoAcik, tbeOnClick, 'FotografSec'); 
  ImgOnizleme := MainForm.AddNewImage(PnlFotoBox, 'ImgOnizleme'); ImgOnizleme.Align := alClient; ImgOnizleme.Visible := False; MainForm.AddNewEvent(ImgOnizleme, tbeOnClick, 'FotografSec'); 
  
Postman den test verisi gönderdiğimde fotoğraf gönderiliyor fakat uygulama üzerinden çektiğimde göndersem bile null olarak gidiyor. Fotoğraf cloudinary ile link haline getirilip veritabanında tutuluyor.




https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Tue, 12 May 2026 21:56:04 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1529&PID=3520#3520