Yorumları: 59
Konuları: 11
Kayıt Tarihi: 14-10-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 136
Başlangıç
Merhaba ben web servis'den dönen değer olarak gelen TByteDynArray türünde bir değeri dosya olarak nasıl kaydedebilirim.
Bir kaç yere baktım şöyle bir kod var ama onda da
BlockWrite(F, pTemp^, Count ); bu satırda hata veriyor.
Hata çıktısı: First chance exception at $77691812. Exception class EInOutError with message 'I/O error 6'. Process EFatura.exe (5544)
procedure TForm2.ByteArrayToFIle( const ByteArray : TByteDynArray;
const FileName : string );
var Count : integer;
F : FIle of Byte;
pTemp : Pointer;
begin
AssignFile( F, FileName );
Rewrite(F);
try
Count := Length( ByteArray );
pTemp := @ByteArray[0];
BlockWrite(F, pTemp^, Count );
finally
CloseFile( F );
end;
end;
Bizde bilirdik firavunun yanında olmayı, musa'nın haklı olduğunu bilmeseydik
Yorumları: 150
Konuları: 17
Kayıt Tarihi: 01-08-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 495
Acemi
26-12-2018, Saat: 14:55
(Son Düzenleme: 26-12-2018, Saat: 15:01, Düzenleyen: TescilsizUzman.)
var TmpRpt:TMemoryStream; InvImageType:SmallInt; aFileName:String;
pEngine : EngineSoap;//web servisteki nesne
pByte : TByteDynArray;
begin
pEngine := GetEngineSoap(True,sv_StorageApiAddr);
pByte := pEngine.GetFile(sv_StorageToken,sv_StorageProjectNo,DMrm.InvoiceQryRecID.AsInteger);//servisten gelen değeri al
TmpRpt := TMemoryStream.Create;//stream'e kaydet
TmpRpt.Position := 0;
TmpRpt.Write(pByte[0], Length(pByte));
end;
giib bir kod kullanabilirsin.
İmam Süleyman Yakub <--> Molla Mustafa Mansur
Evlatlarım!
Cismanımız TÜRK ruhumuz ise İSLAM.
Bu yolda daim olalım her an.
Yorumları: 59
Konuları: 11
Kayıt Tarihi: 14-10-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 136
Başlangıç
Teşekkürler hocam çok sağolun
Bende şöyle yaptım
ByteArray:=deger[0].document_content;
tms := TMemoryStream.Create;
tms.Position := 0;
tms.Write(ByteArray[0], Length(ByteArray));
tms.SaveToFile(deger[0].document_id+'.pdf'); //fatura numarasına göre
Bizde bilirdik firavunun yanında olmayı, musa'nın haklı olduğunu bilmeseydik
Yorumları: 150
Konuları: 17
Kayıt Tarihi: 01-08-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 495
Acemi
@
enes6635 eyvallah eline sağlık.
İmam Süleyman Yakub <--> Molla Mustafa Mansur
Evlatlarım!
Cismanımız TÜRK ruhumuz ise İSLAM.
Bu yolda daim olalım her an.
Yorumları: 3
Konuları: 0
Kayıt Tarihi: 24-12-2019
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 0
Başlangıç
merhaba,
elimde fatura.zip isminde bir dosya var. Ve fatura entegrator firmaya, web servis aracılığıyla göndereceğim.
zipdosya isminde bir değişken tanımladım.
Var
zipdosya: TByteDynArray
Sorunum Şu:
fatura.zip dosyasını, TByteDynArray tipine nasıl dönüştürebilirim. yardımcı olabilirseniz çok memnun olurum.
servis.CompressedSendInvoice(userInfo, zipdosya);
Yorumları: 1.571
Konuları: 88
Kayıt Tarihi: 09-08-2016
Rep Puanı: 13.829
Üstad
15-01-2020, Saat: 15:37
(Son Düzenleme: 15-01-2020, Saat: 15:38, Düzenleyen: SimaWB.)
Aslında @
ismailkocacan yolu göstermiş
- FARKLI SORULARI YENİ KONU BAŞLIĞI ALTINDA SORUN
- Dosyayı TFileStream ile açın
- SetLength ile TByteDynArray tipindeki değişkeninizin boyutunu belirleyin
- TFileStream'in ReadBuffer prosedürü ile dosyayı diziye kopyalayın
- FileStream'i Free etmeyi unutmayın
There's no place like 127.0.0.1
Yorumları: 1.571
Konuları: 88
Kayıt Tarihi: 09-08-2016
Rep Puanı: 13.829
Üstad
There's no place like 127.0.0.1