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


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  AnonymousThread ile ListView'e Veri Yükleme witalihakko 5 2.352 17-11-2019, Saat: 09:21
Son Yorum: delphi-x
  Resim Yükleme SimaWB 15 3.921 16-11-2019, Saat: 08:25
Son Yorum: Bay_Y



Konuyu Okuyanlar: 1 Ziyaretçi