array of TByteDynArray Dan Dosya Oluşturmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
emrahgs
Üye
Mesajlar: 109
Kayıt: 08 Tem 2008 05:25
Konum: Antalya

array of TByteDynArray Dan Dosya Oluşturmak

Mesaj gönderen emrahgs » 25 Ara 2015 02:10

web servisten dönen array of TByteDynArray tibindeki cevabı dosya oluşturmaya çalışıyorum
fakat sadece TByteDynArray Tipinde Dönünce Problem Olmuyor
array of TByteDynArray bu şekilde Döndüğünde her bir değeri için dosya oluşturamıyorum

for I := 0 to Length(Res) - 1 do
begin
ByteArrayToFIle(Res,'D:\'+IntToStr(i)+'.xml');
end;

procedure 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;

Kullanıcı avatarı
enes6635
Üye
Mesajlar: 21
Kayıt: 09 Eki 2018 10:09
İletişim:

Re: array of TByteDynArray Dan Dosya Oluşturmak

Mesaj gönderen enes6635 » 26 Ara 2018 01:37

bu sorunu çözen yok mu?

güncelleme:

uses System.Types ekleyin

ByteArray:=deger[0].document_content;
TmpRpt := TMemoryStream.Create;//stream'e kaydet
TmpRpt.Position := 0;
TmpRpt.Write(ByteArray[0], Length(ByteArray));
TmpRpt.SaveToFile('fatura.xml');


//kolay gelsin
Haksız bir davada zirve olmaktansa, haklı bir davada zerre olmayı tercih ederim.

Cevapla