Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Database'e Resim Yükleme (Base64toİmage)
#11
Photo 
mrmarman hocam verdiğini kodu birebir denedim resimi memo ya atıyor ama image2 ye göndermiyor

 case c of
        '+'     : i := 62;
       '/'     : i := 63;
       '0'..'9': i := Ord© - (Ord('0')-52);
       '='     : i := -1;
       'A'..'Z': i := Ord© -  Ord('A');
       'a'..'z': i := Ord© - (Ord('a')-26);
     else

Ord© bu kısımda hata veriyordu ne yazabilirim bunun yerine.

Birde sadece BMP leri çeviyor sanırım JPEG olarak nasıl kayıt edebilirim.

Yani kısaca aşağıda ki gibi bir şey yapmam gerekiyor string olarak gelen resimi C sürücüsüne jpg olarak kayıt etmem gerekiyor.

aşağıda C# örnek kodunu gönderdiler bunu delphi 7 versiyonunda nasıl yapabilirim Sad

// Gönderi barkodumuzu *.jpeg formatına convert edip bilgisayarımıza kayıt ettim.
          byte[] b = Convert.FromBase64String(ship_png[0]);
          MemoryStream ms1 = new MemoryStream(b, 0, b.Length);
          ms1 = new System.IO.MemoryStream(b);
          Image img = System.Drawing.Image.FromStream(ms1);
          img.Save(@"c:\UPS\barkod.Jpeg", System.Drawing.Imaging.ImageFormat.Jpeg);
          img.Dispose();
          ms1.Close();

  // C sürücüsüne kayıt ettiğiniz gönderi barkodunu aşağıda ölçelerini verdiğimiz değerlerde print edilmeli ve
  // gönderilerecek paketin üstüne yapıştırılmalıdır. Barkod görüntüsünü aşağıdaki pixel boyutlarında yazdırmaya
          // dikkat edelim aksi taktirde UPS cihazları tarafından okunmaz.

          System.Drawing.Image image = System.Drawing.Image.FromFile(@"C:\UPS\barkod.jpeg");
          e.Graphics.DrawImage(image, 10, 10, 380, 540);
Cevapla
#12
Eski bir başlık ancak gördüm, özel mesaj ile bilgi verilince fark ettiğimden bu güne kısmetmiş.  

©   = ( c )

Forum (Kod tag içinde dahi olsa) bu parantez sonrası / öncesi boşluklar olmayınca copyright sembolüne çeviriyor olduğunu fark ettim. 
"İfadeler devre dışı bırakılsın mı?" seçeneği de smiley olmadığı için etkisiz kalıyor.

Parantez aralarına boşluk ekleyerek düzelttim.
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Microsoft Windows Mağaza Store (.appx / Metro / UWP) uygulama yükleme adımları emozgun 3 2.719 27-07-2020, Saat: 09:55
Son Yorum: nguzeller
  AnonymousThread ile ListView'e Veri Yükleme witalihakko 5 5.970 17-11-2019, Saat: 09:21
Son Yorum: delphi-x
  Resim Yükleme SimaWB 15 12.895 16-11-2019, Saat: 08:25
Son Yorum: Bay_Y



Konuyu Okuyanlar: 1 Ziyaretçi