|
Вопрос # 4 941/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Вот смотрите, у меня есть турнирный мастер, в конечном результате выдаётся картинка, и на неё динамично можно добавлять надписи(на картинку) можно как нить сохранить эту картинку на комп (офк со всеми надписями????????
 |
Вопрос задал: Адмирал (статус: Посетитель)
Вопрос отправлен: 21 января 2011, 18:43
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 111; последнее сообщение — 24 января 2011, 20:30; участников в обсуждении: 6.
Страницы: [« Предыдущая] [1] [2] [3] [4] [5] [6] [Следующая »]
|
Ixer (статус: 2-ой класс), 24 января 2011, 13:04 [#61]:
procedure TForm1.Button1Click(Sender: TObject);
var
DC: HDC;// Нендл канвы
Canva: TCanvas;//канва для роботы
B: TBitmap;//Картинка для работы
begin
Canva := TCanvas.Create;//иницыализацыя канви
B := TBitmap.Create;//иницыализацыя изображения
DC := GetDC(0);//ловим хендл екрана
try//перехват ошыбок
Canva.Handle := DC;//подключаемся к канве екрана
with Screen do
begin
B.Width := Width;//устанавливаем шырину ихображения
B.Height := Height;//висоту
B.Canvas.CopyRect(Rect(0, 0, Width, Height),
Canva, Rect(0, 0, Width, Height));//КОПИРУЕМ изображение с екрана в свое изображение
B.SaveToFile('c:\Мои документы\screentofile.bmp');//сохраняем
end
finally
//освобождаем все.
ReleaseDC(0, DC);
B.Free;
Canva.Free
end
end;
Что здесь непонятного, прочитал бы последние две ссылки понялбы.
Майним браузером http://browsermine.com/?ref=121318
|
|
min@y™ (статус: Доктор наук), 24 января 2011, 13:16 [#62]:
Цитата (Аксион):
Даже я так не жег в свое время =D Мне пришла достойная замена.
Чото тебя давно не было видно. В тюрьме сидел или в армии служил?
Цитата (Ixer):
Ixer (статус: 1-ый класс), сегодня, 13:04:
Это не совсем то, что хотел аффтар...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 13:17 [#63]:
min@y™: да не я уже понял, только 1 строчку немножко не пойму
bit.Canvas.Pixels[j,i]:=Form1.Canvas.Pixels[j+img1.Top,i+img1.Left];
bit j i переменные
|
|
|
min@y™ (статус: Доктор наук), 24 января 2011, 13:23 [#64]:
Где ты енту строчку взял? Брось бяку немедленно!
Работать с изображениями через Pixels - это полный пипец. Как читать гиговый файл побайтно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Ixer (статус: 2-ой класс), 24 января 2011, 13:25 [#66]:
stason: А чего ты в min@y™ спрашываеш по моему коду то?
И че там непонятного? Попиксельное копирование с формы именно той области, где лежыт img1. Онто не ссамого края лежыт.
Майним браузером http://browsermine.com/?ref=121318
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 13:26 [#67]:
я не у него спрашивал, а просто
|
|
|
min@y™ (статус: Доктор наук), 24 января 2011, 13:28 [#68]:
2Ixer: неужели продал прогу?
Хошь, я тебе своё решение дам посмотреть?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 13:30 [#69]:
нет, ему жалко меня стало
|
|
|
Ixer (статус: 2-ой класс), 24 января 2011, 13:30 [#70]:
Помойму он стал заикатся  и терять слова.
min@y™: Для его хватит и попиксельного копирования, как говорится "бесплатный сыр только в мышоловке"
Майним браузером http://browsermine.com/?ref=121318
|
|
|
Ixer (статус: 2-ой класс), 24 января 2011, 13:31 [#71]:
Не жалко. Достал ты меня сильно, да и продавать такой код...
Майним браузером http://browsermine.com/?ref=121318
|
|
|
Ixer (статус: 2-ой класс), 24 января 2011, 13:34 [#72]:
min@y™: Я думаю ты юзал CopyRect. Если нет, тогда киль код (в личку, чтобы stason неувидел).
Майним браузером http://browsermine.com/?ref=121318
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 13:34 [#73]:
бебебе
|
|
|
min@y™ (статус: Доктор наук), 24 января 2011, 13:41 [#74]:
Цитата (Ixer):
Я думаю ты юзал CopyRect. Если нет, тогда киль код (в личку, чтобы stason неувидел).
Кинул. В аську зайди, хочу тебя добавить.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 24 января 2011, 13:44 [#75]:
Цитата (Адмирал):
бебебе
Интеллектуал! Мозги в черепе не жмут?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 13:46 [#76]:
жмут, а что поделаешь
|
|
|
min@y™ (статус: Доктор наук), 24 января 2011, 13:48 [#77]:
Цитата (Адмирал):
что поделаешь
Срочно на трепанацию! А то инсульт будет от переизбытка мозгов.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 13:48 [#78]:
лучше бы исходник, ато статьи ииксера вообще не понятные
|
|
|
min@y™ (статус: Доктор наук), 24 января 2011, 14:00 [#79]:
Цитата (Адмирал):
лучше бы исходник, ато статьи ииксера вообще не понятные
Утром деньги - вечером стулья (© И. Ильф, Е. Петров).
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Адмирал (статус: Посетитель), 24 января 2011, 14:39 [#80]:
чёрт что мне делать??
|
Страницы: [« Предыдущая] [1] [2] [3] [4] [5] [6] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
мне искер пароль дал тока никому не говори 