Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #8  
Старый 08.10.2010, 20:36
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

Попробуй сделать в таком ключе:
Код:
...
const
  Buff_Size = 4096;
var
  mS: TMemoryStream;
  fS: TFileSteam;
  Buff: array[1..Buff_Size] of Byte;
  readedLength: Integer;
begin
  mS := TMemoryStream.Create;
  Image1.Picture.BitMap.SaveToStream(mS);
  try
    fS := TFileSteam.Create('путь + имя файла', fmCreate);
    repeat
      readedLength := mS.Read(Buff, Buff_Size);
      fS.Write(Buff, readedLength);
    until readedLength < Buff_Size;
    fS.Free;
  except
    ...ERROR!!!!
  end;
  mS.Free;
end;
...
Писал на коленке. Не тестировал. Но по идее должно работать.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:39.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025