Clomosy | Forum : Probuton Resim değiştirme https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 15 Apr 2026 04:36:12 +0000 Mon, 17 Nov 2025 18:15:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1230 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Probuton Resim değiştirme : Merhaba Güney,Image1.Bitmap.LoadFromStream(FileStream)...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1230&PID=2708#2708 Yazar: Emr.Erkmn
Konu: 1230
Gönderim Zamanı: 17 Kasım 2025 Saat 18:15

Merhaba Güney, 
Image1.Bitmap.LoadFromStream(FileStream) için TclProImage değil TclImage kullanmak gerekiyor
çünkü özellikle olarak pro bileşeninnde yok https://www.docs.clomosy.com/TclImage


var
  MainForm: TclForm;
  JsonResponse: String;
  FQry: TCLJSONQuery;


void FillItemsPnlV(FQry: TCLJSONQuery)
var
  I: Integer;
  TempCategoryNameLbl: TclProLabel;
  TempItemImage: TclPImage;  
  TempItemsPnl: TclProPanel;
  TempImageBase64: String;
  LMemStream: TCLMemoryStream;
{
  I = 0;
  Try
    with FQry do
    {
      if (Found)
      {
        First;
        while (not EOF)
        {
          Try
            TempCategoryNameLbl = MainForm.clFindComponent('CategoryNameLbl' + IntToStr(I)) as TclProLabel;
            if (TempCategoryNameLbl <> nil)
            {
              TempCategoryNameLbl.Text = FieldByName('category_name').AsString;
            }
            
            TempItemsPnl = MainForm.clFindComponent('ItemsPnl' + IntToStr(I)) as TclProPanel;
            if (TempItemsPnl <> nil)
            {
              TempItemsPnl.Height = (MainForm.clHeight * 0.2101); // 176.25 / 839 ≈ 0.2101
              TempItemsPnl.Width = (MainForm.clWidth * 0.4200); // 165 / 393 ≈ 0.4200
            }
            
            TempItemImage = MainForm.clFindComponent('ItemImage' + IntToStr(I)) as TclProImage;
            if (TempItemImage <> nil)
            {
              TempImageBase64 = FieldByName('category_image_base64').AsString;
              
              if (TempImageBase64 <> '')
              {
                Try
                {
                  // ✅ 5. Base64'ten MemoryStream'e çevir
                  LMemStream = Clomosy.Base64ToStream(TempImageBase64);
                  
                  if (LMemStream <> nil)
                  {
                    TempItemImage.Bitmap.LoadFromStream(LMemStream);
                    
                    LMemStream.Free;
                    LMemStream = nil;
                  }
                }
                except
                
                  ShowMessage('Resim yükleme hatası (Index ' + IntToStr(I) + '): ' + LastExceptionMessage);
                  
                  if (LMemStream <> nil)
                  {
                    LMemStream.Free;
                    LMemStream = nil;
                  }
                }
              }
              else
              {
                TempItemImage.clProSettings.PictureSource = 'https://clomosy.com/demos/default.png';
                TempItemImage.SetclProSettings(TempItemImage.clProSettings);
              }
            }
            
            Next;
            Inc(I);
          except
            ShowMessage('Index ' + IntToStr(I) + ' için hata: ' + LastExceptionMessage);
            Next;
            Inc(I);
          }
        }
      }
    }
    
    ShowMessage(' Veriler dolduruldu. Toplam: ' + IntToStr(I) + ' kayıt');
  
  except
  
    ShowMessage(' FillItemsPnlV hatası: ' + LastExceptionMessage);
  }
}

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" 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">]]> Mon, 17 Nov 2025 18:15:25 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1230&PID=2708#2708 <![CDATA[Probuton Resim değiştirme : Memory stream den aldığım resmi...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1230&PID=2705#2705 Yazar: M-Guney
Konu: 1230
Gönderim Zamanı: 17 Kasım 2025 Saat 15:18

Memory stream den aldığım resmi probuttonun resmi yapmak istiyorum.
Veritabanından tek bir endpoint ile bütün kategorilerin resimlerini ve adlarını göstermek istiyorum.

void FillItemsPnlV(FQry: TCLJSONQuery)
  var 
  I : Integer;
  TempCategoryNameLbl: TclProLabel;
  TempItemImageBtn : TLCProImage;
  TempItemsPnl : TclProPanel;
  TempImageBase64 : String;
  LMemStream:TCLMemoryStream;
  {
   I = 0;
  Try
    with FQry do
    {
      if (Found)
      {
        First;
        while (not EOF)
        {
          Try
          
            TempCategoryNameLbl = MainForm.clFindComponent('CategoryNameLbl' + IntToStr(I)) as TclProLabel;
            if (TempTableLbl <> nil)
            {
              TempCategoryNameLbl.Text = FieldByName('category_name').AsString;
            }
            TempItemsPnl = MainForm.clFindComponent('ItemsPnl' + IntToStr(I)) as TclProPanel;
            if (TempOrdersPnl <> nil)
            {
              ItemsPnl.height = (MainForm.clHeight * 0.2101); // 176.25 / 839 ≈ 0.2101
              ItemsPnl.width = (MainForm.clWidth * 0.4200); // 165 / 393 ≈ 0.4200
            }
            
            TempItemImageBtn = MainForm.clFindComponent('ItemImageBtn' + IntToStr(I));
            if(TempItemImageBtn <> nil)
            {
              TempImageBase64 = FieldByName('category_image_base64').AsString;
              LMemStream = Clomosy.Base64ToStream(TempImageBase64);
              TempItemImageBtn.Bitmap.LoadFromStream(LMemStream);
              
              //TempItemImageBtn.clProSettings.PictureSource = 
              
            }
  
            Next;
            Inc(I);
          except
          
            ShowMessage('Index ' + IntToStr(I) + ' için hata: ' + LastExceptionMessage);
            Next;
            Inc(I);
          }
        }
        LMemStream.Free;
      }
    }
    ShowMessage(' Veriler dolduruldu. Toplam: ' + IntToStr(I) + ' kayıt');
  
  except
  
    ShowMessage('FillOrdersPnlV hatası: ' + LastExceptionMessage);
  }
}
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" 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">
]]> Mon, 17 Nov 2025 15:18:01 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1230&PID=2705#2705