Работа с двоичными файлами

← →
Иван (2007-10-23 17:28) [0]

Напишите пожалуйста пример конвертации двоичного кода в файл с расширением doc

← →
Kolan © (2007-10-23 17:31) [1]

FileName := "C:/data.dat"; Name := ExtractFileName(FileName); FileName := Name+".doc";

← →
Сергей М. © (2007-10-23 17:33) [2]

var
s: String = "10101010001011001010101010101010100000011111110101";
fs: TFileStream;
..

fs := TFileStream.Create("File.doc", fmCreate);
fs.WriteBuffer(PChar(s)^, Length(s));
fs.Free;

← →
Kolan © (2007-10-23 17:53) [3]

Иван, неведенье это счастье ©

Для выхода из матрицы можете прочесть про формат экселя например&#133
http://sources.codenet.ru/download/343/xls_rus.html

← →
tesseract © (2007-10-23 17:57) [4]

> Для выхода из матрицы можете прочесть про формат экселя
> например…

Хороший мануал - на полгода хватит :-)

ChangeFileExt(MyFileName, "doc")

:)
uses ............., ComObj, ......; procedure GetHex(filename: string); const BlockSize = 4096; var wordApp, doc: Variant; exe: File; oldfm: Byte; binbuf, hexbuf: String; BytesRead: Integer; begin SetLength(binbuf, BlockSize); FillChar(binbuf[1], BlockSize, 0); SetLength(hexbuf, 2*BlockSize); FillChar(hexbuf[1], 2*BlockSize, 0); AssignFile(exe, filename); oldfm := FileMode; FileMode := 0; Reset(exe, BlockSize); wordApp := CreateOLEObject("Word.Application"); doc := wordApp.Documents.Add; while not Eof(exe) do begin BlockRead(exe, binbuf[1], 1, BytesRead); if BytesRead < BlockSize then begin SetLength(binbuf, BytesRead); SetLength(hexbuf, 2*BytesRead); end; BinToHex(PChar(binbuf), PChar(hexbuf), BytesRead); doc.Range.InsertAfter(hexbuf); end; CloseFile(exe); doc.SaveAs(FileName:= "c:\hexdump.doc"); doc.Close; doc := Unassigned; WordApp.Quit; WordApp := Unassigned; end;

Работа с двоичными файлами Найти похожие ветки