VPF::Отобразить бинарный файл - Форум программистов

PoMKA

Дата 4.5.2010, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Добрый день.
Нужно отобразить бинарный файл.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  myFile : TextFile;
  text   : String;
begin
 if OpenDialog1.Execute then begin

  AssignFile(myFile, OpenDialog1.FileName);
  Reset(myFile);

  while not Eof(myFile) do begin
    ReadLn(myFile, text);
    Memo1.Lines.Add(text);
  end;

  CloseFile(myFile);

end;
end;

end.

В данном примере файл отображается так и не весь:

Код



яу0А
МЬ)ћ•?Ояу0Ай".„zґлeїЌЅяеі=гэhфЬїъ«Aжю[жmkёЦ†C>|Йli[BЏX|
=eыM
хО~Ґџу<‚Q0Т6х{vOцЯ«н/ђеГиQz;t9n€{#°pпnоЫќЪPR0k~Ќяу2А—к~ПЋ1Fµ¶г‚GbLrўwгЈ_~ейєн¦ё©Є¦ъ»Ѓ$LUtgэ-µ,zьЉХwuVУ^¬ЊЧЇA`І1Ь©»ЎЄдWўmМяу0АЌЄzУ¶0КµЈ°DќЪ6ЬЏр2%–U"єOН‹JdI2ѕT©’§ДЭ!WfЅ

А должен отобразится как в Farе, когда нажмёшь на F3/F4.

Задача: Сформировать пакет с файлом для отправки по TCP протоколу.

Если можно с примерами я пока в этом деле новичок.

Это сообщение отредактировал(а) PoMKA - 4.5.2010, 10:56

Matematik

Дата 4.5.2010, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Memo обрезает #0

> Нужно отобразить бинарный файл.
> Задача: Сформировать пакет с файлом для отправки по TCP протоколу.

Выбери что-то одно.
И не надо читать ReadLn бинарный файл.

Это сообщение отредактировал(а) Matematik - 4.5.2010, 11:33

PoMKA

Дата 6.5.2010, 03:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Цитата(Matematik @ 4.5.2010, 11:28

)

Выбери что-то одно.

В смысли я описал для чего мне нужно прочитать бинарный файл.

Всё уже есть - но немогу правильно прочитать файл и добавить к заголовку.

т.е. задача - правильно прочитать файл для отправки TCP протоколу. smile

Демо

Дата 6.5.2010, 06:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Цитата(PoMKA @ 6.5.2010, 03:01

)

т.е. задача - правильно прочитать файл для отправки TCP протоколу.

Воспользуйся TFileStream. ReadLn читает текстовые строки.

Это сообщение отредактировал(а) Демо - 6.5.2010, 06:47

--------------------

PoMKA

Дата 6.5.2010, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Можно пожалуйста хотя бы рабочие примеры!?
Столько информации перерыл - в голове просто каша от этого.

kami

Дата 6.5.2010, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата(PoMKA @ 6.5.2010, 03:01

)

В смысли я описал для чего мне нужно прочитать бинарный файл.

Нет, описал неправильно.
Отобразить бинарный файл и отправить его по протоколу TCP - это "две большие разницы".
Вам не нужен Х, а нужен Y.

Цитата(PoMKA @ 6.5.2010, 15:20

)

Можно пожалуйста хотя бы рабочие примеры!?

Можно.

PoMKA

Дата 8.5.2010, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Всё равно ничё не получается.
Уже 1,5 недели бьюсь с этим.
При просмотре через HTTP Analyzer один фиг или неполностью отображается или тупо прерывается запрос.

Прилагаю примитивный пример того что мне надо.

Это сообщение отредактировал(а) PoMKA - 18.5.2010, 02:04

PoMKA

Дата 14.5.2010, 03:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 24.3.2009

Репутация: нет
Всего: нет

Блин. Что никто помочь неможет?!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »