Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Правильное чтение файла

Автор: 1Age 26.1.2015, 22:01

Здравствуйте уважаемые форумчани!
Собственно вопрос таков . Как правильно читать файлы так , что бы потом можно было его воссоздать ?
К примеру , есть у меня тот же JPG , я его прочитываю , он записывается в переменную ... Потом что бы я смог воссоздать этот файл JPG и что бы он работал))
Интересует не только JPG , а любого расширения файлы.
Погуглив и почитав , я понял надо как то читать файл побайтово?
Гуру кодинга , подскажите пожалуйста , заранее большое спасибо!

Автор: kami 27.1.2015, 00:34

Цитата(1Age @ 26.1.2015, 22:01

)

Потом что бы я смог воссоздать этот файл JPG и что бы он работал))

Что понимается под "воссоздать"? сделать копию файла?
и что понимается под "работал"? Можно на примере того же jpeg

Автор: 1Age 27.1.2015, 01:34

К примеру , у картинки есть код , как бы внутри файла . Как мне взять этот самый код , и поместить в переменную .
Что бы потом я мог создать файл к примеру "1.jpg" и запихнул в него этот код . И то есть воуля , картинка работает.
p.s. Сразу скажу. Пробовал просто взять все содержимое файла и запихнуть в другой файл , не выходило. Такая штука походу только с текстовыми файлами работает.
Как же правильно все таки?

Цитата

тут код , взятие кода картинки хД.

AssignFile(myFile, '1.jpg');
ReWrite(myFile);
WriteLn(myFile, s); - s переменная , с кодом картинки 1.jpg
CloseFile(myFile);

Автор: Illusion Dolphin 27.1.2015, 08:22

Цитата

AssignFile(myFile, '1.jpg');
ReWrite(myFile);
WriteLn(myFile, s); - s переменная , с кодом картинки 1.jpg
CloseFile(myFile);

Откопали на кладбище динозавров?
Записать в переменную любой файл нельзя, т.к. они бывают очень большие и могут не влезть в память.
Если вопрос про небольшие файлы, то сделайте через TFileStream -> TMemoryStream

Автор: kami 27.1.2015, 12:44

Цитата(1Age @ 27.1.2015, 01:34

)

И то есть воуля , картинка работает.

{$зануда mode on} картинка не работает. Картинку могут показывать какие-либо программы. Вот они (программы) работают, а картинки - не работают, не барское это дело {$зануда mode off}

Код


var
  SourceStream, DestStream: TStream;
begin
  SourceStream:=TFileStream.Create('имяфайла', fmOpenRead);
  try
    DestStream:=TFileStream.Create('имяновогофайла', fmCreate);
    try
      DestStream.CopyFrom(SourceStream, 0);
    finally
      DestStream.Free;
    end;
  finally
    SourceStream.Free;
  end;

Автор: 1Age 27.1.2015, 18:49

Спасибо Делфин за наводку.

@kami , Уже нашел это, раньше))

Цитата

procedure TForm1.Button3Click(Sender: TObject);
var
  src, dest: TFileStream;
begin
  src := TFileStream.Create('sample.txt', fmOpenRead);
  try
    dest := TFileStream.Create('dest.txt', fmCreate);
    try
      // копирование файла
      dest.CopyFrom(src, src.Size)
    finally
      dest.Free;
    end;  // завершение конструкции try (dest)
  finally
    src.Free;
  end; // завершение конструкции try (src)
end;

Прям то что нужно , спасибо всем.