Показать сообщение отдельно
  #14  
Старый 02.11.2009, 16:49
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от alexnov
Тогда вопрос что значит работать с файлом напрямую? Соответствует ли этому принципу последний код, написанный Asinkrit'ом???
Asinkrit предварительно загружает битмап, если как говорится использовать битмап в 600мб это чистое насилование компа, точнее оперативки. Описание битмапа можно найти в модуле windows.pas, считывать по ~16384 пикселей и искать цвета.
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием