Witam,
Pytanie o pomoc dotyczy fragmentu kodu odpowiedzialnego za robienie screena.
Wiem że program który zaprezentuje pod spodem jest troszkę na koło ale z pewnych powodów tak musi na razie być.
Sprawa jest prosta - program robi screen z .bmp, następnie przerabia go na .jpeg.
Wszystko działa pięknie.
Screen pozostaje na końcu z nazwą screen.jpeg
Zależy mi aby z formy4 pobrał z 2 komponentu edit, parametr text. Komponenty te nazwane są w moim programie pole_imie i pole_nazwisko.
Pytanie brzmi jak w formie4 na końcu programu pobierał te dwa text aby screen na koniec miał nazwę
pole_imie(spacja)pole_nazwisko.jpeg
procedure zamiana;
var
RysunekJPEG : TJPEGImage;
RysunekBMP : TBitmap;
begin
RysunekBMP:=TBitmap.Create;
try
RysunekBMP.LoadFromFile('C:\kalkulatorek\screen\screen.BMP');
RysunekJPEG:=TJPEGImage.Create;
try
RysunekJPEG.Assign(RysunekBMP);
RysunekJPEG.SaveToFile('C:\kalkulatorek\screen\screen.JPEG');
finally
RysunekJPEG.Free;
end;
finally
RysunekBMP.Free;
end;
end;
procedure screena;
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:\kalkulatorek\screen\screen.bmp');
except // w wyniku bledu...
raise Exception.Create('Bład w zapisie pliku...');
end;
finally
Can.Free;
B.Free;
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
screena;
zamiana;
deletefile('C:\kalkulatorek\screen\screen.bmp');
/// w tym miejscu powinna nastąpić zmiana nazwy pliku !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
close;
form1.show;
end;
end.
za wszelką pomoc będę bardzo wdzięczny.