1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Procedure TForm1.BmpToJpg(const Filename: String; Quality: TJPEGQualityRange=60);



begin

jpg:=TJpegImage.Create;
try

jpg.CompressionQuality:=Quality;
  jpg.Assign(Bmp2);
  jpg.SaveToFile(ChangeFileExt(FileName, 'Int.jpg' ));
finally
jpg.free;

end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

procedure TForm1.Bilderhochladen1Click(Sender: TObject);
var
jpeg: TJPEGImage;
bmp: TBitmap;

begin jpeg:=TJPEGImage.Create;

try
openpicturedialog1.execute;
jpeg.LoadFromFile(openpicturedialog1.FileName);
bmp:=TBitmap.Create;
 try
bmp.Assign(jpeg);
bmp2 := TBitmap.Create;
 bmp2.Width := 171;
  bmp2.Height := 120;
  bmp2.Canvas.StretchDraw(Rect(0,0,bmp2.Width-1,bmp2.Height-1),bmp);


BmpToJpg(openpicturedialog1.FileName); // Hier wird der Procedure der Filename übergeben


finally
bmp.free;
bmp2.free;
end;


inifile := TIniFile.Create(IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName)) + 'ftp.ini');
    idftp1.Host     := inifile.ReadString('ftp', 'server', '');          // Daten aus der Konfig Datei holen
    idftp1.Username := inifile.ReadString('ftp', 'user', '');
    idftp1.Password := inifile.ReadString('ftp', 'password', '');

    ftpdat:=(openpicturedialog1.FileName ) ; // Und hier ist das Problem: wie kann ich den neuen Pfad der veränderten
                                             // Datei angeben ohne nochmal den openpicturedialog aufrufen zu müssen
                                             // und die veränderte Datei nochmal auswählen zu müssen?
.
.
.					

1:

ftpdat:=(ExtractFilePath(OpenPictureDialog1.FileName)+'DateiNeuInt.jpg'; // Und hier ist das Problem: wie kann					

1:

edit1.Text:= (ExtractFilePath(OpenPictureDialog1.FileName)+ExtractFileName(openpicturedialog1.filename)+'Int.jpg');					

1:

ftpdat:=ChangeFileExt(OpenPictureDialog1.FileName,'Int.jpg');