Форум: "Прочее";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Иван   (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]

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


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

---

← →
Amoeba ©   (2007-10-23 18:30) [5]

ChangeFileExt(MyFileName, "doc")

---

← →
umbra ©   (2007-10-23 18:38) [6]

:)
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;

---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.04 c