[Delphi] Program do podpisywania zdjęć

0

Witam.
Chciałbym napisać sobie program który nakładałby na zdjęcia np mój login z Allegro aby zabezpieczyć je przed kradzieżą. Chciałbym się dowiedzieć jak zoorganizować cały proces zapisu zdjęcia z podpisem. Jest do tego jakis komponent, funkcja, darmowa biblioteka??

0

W Internecie znajdziesz program Exifer, który świetnie to zrobi. Program jest na licencji postcardware, czyli gdy rejestrujesz program powinieneś wysłać autorowi kartkę pocztową na wskazany w procesie rejestracji adres.
Pozdrawiam.

0

no a jak chcesz w delphi to możesz np. tak (bez dodatkowych komponentów, ale bardzo (wg mnie) dziwny sposób ;P)

procedure TForm1.Button1Click(Sender: TObject);
var
B: TBitmap;
J: TJPEGImage;
begin
J:=TJPEGImage.Create;
J.LoadFromFile('c:\aaa.jpg');

B:=TBitmap.Create;
B.Assign(J);
B.Canvas.TextOut(10,10, 'Podpis');

J.Assign(B);
J.SaveToFile('c:\aaa - z podpisem.jpg');
B.Free;
J.Free;
end;

opisywa dużo nie trzeba... po prostu... z twojego JPGa robi sie BMPk na niego nakładany jest podpis (te dwie "10" w kolejno X i Y) i taki BMP z powrotem do JPG i ZAPIS na DYSK... proste ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1