mrmarman hocam verdiğini kodu birebir denedim resimi memo ya atıyor ama image2 ye göndermiyor
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
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
Kod: (Select All)
// 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);
