быстрое чтение пикселей с экрана

[eldalex]

добрый день! у меня такой вопрос некоторые из вас знают игру линейку и тамошнюю рыбалку.
задался интересом написать миниатюрную авторыбалку в свободное от работы время пару лет назад я даже написал её, однако время убило мой винт а с ним и то что я написал. пишу заново
так вот, проблема в следующем. не могу вспомнить как быстро получить серию пикселей с экрана. раньше кажется я делал это так:

function DesktopColor(const X, Y: Integer): TColor;
 var
   c: TCanvas;
 begin
   c := TCanvas.Create;
   try
     c.Handle := GetWindowDC(GetDesktopWindow);
     Result   := GetPixel(c.Handle, X, Y);
   finally
     c.Free;
   end;
 end;

 procedure TForm1.Timer1Timer(Sender: TObject);
 var
   col:tcolor;
   x,y,i:intrger;
 begin
   x:=panel1.left;// x и y задаются в другом месте
   y:=panel1.top;// сюда просто для понятности, кто они и откуда.
   for i:=1 to panel1.width do //panel1.width равно примерно 223 пикселя
   Col := DesktopColor(X,Y);
// Col := GetPixel(c.Handle, X, Y); такой вариант тож длится долго.

//тут дальше считаем пиксели определенного цвета и соответственно 
//эмулируем нажатие кнопок.
 end;

в чем суть, я мышкой тащил панельку на синюю полосу жизней рыбы и жмакал старт, прога вдоль панельки считывала пиксели, смотрела изменилось ли количество синих и соответственно реагировала на обстановку.

так вот, раньше это делалось каждые 100 милисекунд по таймеру, сейчас же даже 1 прогон (считывание 223 пикселей) занимает примерно 4 секунды. вроде делал то же самое, но видимо как то по другому... так же возможно проблема в семёрке, раньше стояла XP... никто не подскажет как быстро получить и сосчитать серию пикселей?
может есть способ ускорить эту процедуру asm'ом?

[Johnson]

я извиняюсь... не проще написать мини-бота? Для меня лично - проще... либо использовать L2PacketHack от http://coderx.ru (там на форуме кстати был скриптик для рыбалки даже хорооший)

[Arigato]

У TBitMap есть метод ScanLine.
Его как раз и можно использовать для быстрого обращения к пикселям.

[z3xix13]

eldalex , Доброго времени суток. Я смотрю вы написали программу которая идентична той , что очень мне нужна.Есть возможность с вами как-то связаться (icq,skype,msn,e-mail лучше всего skype)?Очень буду благодарен получить ваши советы и помощь в замен заплачу либо дам все идии насчет того что хочу сделать.

Контакты связи можете плз отправить на z3xix13@gmail.com либо начирикайте здесь


Спасибо за ранее.

[eldalex]

Сообщение от Johnson

я извиняюсь... не проще написать мини-бота? Для меня лично - проще... либо использовать L2PacketHack от http://coderx.ru (там на форуме кстати был скриптик для рыбалки даже хорооший)

неее, в том то и дело, что пакетного бота спалить проще простого а такого как у меня можно заглушить лишь правкой клиента, на отсеивание программных эмуляций нажатия клавиш. но такое в принципе не каждый сервер решается сделать, ибо если такое вводят то проблемы возникают не только у мелких эмуляторов но и у многих игроков использующих игровые клавы/мыши/прочуюхрень потому что последние просто перестают работать и начинаются возмущения народа) такое было на астериосе) дошло до того что маги не могли больше пользовать скилы просто зажав кнопку, приходилось постоянно перенажимать) щас может уже все наладилось и админы продумали защиту получше, не знаю, не играю там давно...

Сообщение от Arigato

У TBitMap есть метод ScanLine.
Его как раз и можно использовать для быстрого обращения к пикселям.

хмм... т.е. нужно сделать небольшой скрин области экрана а потом считать с него? или я неправильно понял?

Сообщение от z3xix13

eldalex , Доброго времени суток. Я смотрю вы написали программу которая идентична той , что очень мне нужна...

в том то и проблема) программа была сделана пару лет назад, но погибла вместе с винтом) остался старый exe'шник, с горой элементов на форме 90% которых не участвуют в процессе работы, а просто нужны были для отладки и проверки некоторых результатов, к сожалению я не предусмотрел вариант смены заголовка окна, а определил текущий и привязал к нему. новую пока не написал времени все нет) но как напишу, то поделюсь обязательно))

[DomiNick]

function DesktopColor(const X, Y: Integer): TColor;
var
c: TCanvas;
begin
c := TCanvas.Create;
try
c.Handle := GetWindowDC(GetDesktopWindow);
Result := GetPixel(c.Handle, X, Y);
finally
c.Free;
end;
end;

О, ужас....... Я ж теперь не усну... х___х


Просто делайте скриншот... При помощи апи-функций... Для простоты возможно в битмап (с диб-секцией), а потом через указатели доступ к нужным пикселям (вполне пойдёт как предлагал Arigato)... И не надо делать отдельный скриншот для каждого пикселя... %))

[eldalex]

Сообщение от DomiNick

О, ужас....... Я ж теперь не усну... х___х...
... И не надо делать отдельный скриншот для каждого пикселя... %))

сочувствою по поводу сна я реально никого не хотел пугать
эту функцию я взял с dw =)

GetPixel(c.Handle, X, Y); разве эта функция делает скриншот пикселя? пардон, не знал) тогда понятно почему долго) как же я в прошлый раз то делал?

[eldalex]

засада... все дело действительно в 7ке( на хп даже GetPixel(c.Handle, X, Y) рабоатет шустренько...

[Gambler]

 procedure TForm1.Button1Click(Sender: TObject);
var bmp:TBitmap;
begin
    bmp := TBitmap.Create;
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
    Image1.Width := Screen.Width;
    Image1.Height := Screen.Height;
    Image1.Picture.Assign(bmp);
    bmp.Free;
end;

Остальное доделаешь? Про ScanLine правильно подсказали. Быстрее дело пойдет.

[eldalex]

Все, спасибо всем! Шикарно получается) реагирует мгновенно!
делаю так, если кому нужно а кому то выше было нужно

type
 TRGB=record
  B,G,R,T:byte;
end;

PRGBLine = ^TRGBLine
TRGBLine = array[1..65635]  of TRGB;

далее на formcreate

    bmp := TBitmap.Create;
    bmp.Width := panel4.width;
    bmp.Height := panel4.Height;
    Image1.Width := panel4.Width;
    Image1.Height := panel4.Height;
    DC:=GetDC(0);

и теперь по таймеру

bitblt(bmp.Canvas.Handle,0,0,panel4.Width,panel4.Height,DC,panel4.left,panel4.top+22,SRCCOPY);
image1.Picture.Assign(bmp); // этот шаг необязательный, так лишь, чтоб смотреть как изменяется битмап.

dest:=bmp.ScanLine[panel4.Height div 2];
for i:=1 to panel4.Width do
begin
if dest^[i].R <10 then
nnw:=nnw+1;
end;
  if nnw>npr then
    begin
    memo1.Lines.Add('ползем вверх');   //тут соответственно надо прописать реакцию.
    end
  else
    begin
    memo1.Lines.Add('стоим или ползем вниз');  //и тут тоже:)
    end;
 npr:=nnw;
 nnw:=0;
end;

если заметите лишние телодвижения то покритикуйте, я подумаю над правкой

вот как бы и все новый велосипед изобретён!
всем спасибо!