Ładny brzuch

Witam :)

Odrazu mowie ze bym sie zapytal w poprzednim temacie, tylko jakis mily moderator zablokowal temat :) Ostatnie pytanie brzmialo, jak zrobic zrzut ekranu i wyslac go mailem.

Zrzut ekranu robie tak:

var Can: TCanvas; B : TBitmap; begin try { tworzenie zmiennej }  Can := TCanvas.Create; { przechwycenie uchwytu ekrnau }  Can.Handle := GetWindowDC(GetDesktopWindow); { tworzenie bitmapy }  B := TBitmap.Create;  B.Width := Screen.Width;  B.Height := Screen.Height;  B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height),      Can,      Rect (0, 0, Screen.Width, Screen.Height));   try // zapisz plik     B.SaveToFile('C:\plik.bmp');   except // w wyniku bledu...     raise Exception.Create(     'Bad w zapisie pliku...');   end; finally  Can.Free;  B.Free; end;

Juz, mam plik w katalogu: C:\plik.bmp.

Wiadomosci wysylam tak:

MessageSend.Body.Append('tresc maila'); MessageSend.From.name := 'imie od kogo'; MessageSend.From.Address := 'erwinus@vp.pl'; MessageSend.Recipients.EMailAddresses := 'erwinus@vp.pl'; MessageSend.Subject := 'temat'; SMTP.UserName := 'erwinus@vp.pl'; SMTP.Password :=  'haslo'; SMTP.Host :=  'smtp.poczta.onet.pl'; SMTP.AuthenticationType:=atLogin; // autoryzacja SMTP SMTP.Connect; try  SMTP.Send(MessageSend); //wyslij finally  SMTP.Disconnect; end;

Tak... Tylko jak wyslac C:\plik.bmp ??

Pozdrawiam ;)


http://www.google.pl...tachment+delphi
pierwszy wynik od gory ...

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •