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:

procedure TForm1.imagecreatandload;
var
  SingleImageFileName: String;
  jpg: TjpegImage;
  bmp: TBitmap;
begin
//Bild machen
SingleImageFileName:= ExtractFilePath(ParamStr(0)) + '\' + filename + '.bmp';
CapSetSingleImageFileName( SingleImageFileName );
CapGrabSingleFrame;
//in jpg konvertieren
jpg:= TJpegImage.Create;
  try
    jpg.LoadFromFile(SingleImageFileName);
    bmp:= TBitmap.Create;
    bmp.Assign(jpg);
    //Das Bild anzeigen
    image2.Picture.LoadFromFile(jpg.GetNamePath);
    //Das bild hochladen
    ShowMessage(jpg.GetNamePath);
    //ftp.Put(jpg,ExtractFileName(jpg));
  finally
    jpg.Free;
    bmp.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:

procedure TForm1.imagecreatandload;
var
  SingleImageFileName: String;
  jpg: TjpegImage;
  bmp: TBitmap;
begin
//Bild machen
SingleImageFileName:= ExtractFilePath(ParamStr(0)) + '\' + filename;
CapSetSingleImageFileName( SingleImageFileName + '.bmp' );
CapGrabSingleFrame;

//in jpg konvertieren
jpg:= TJpegImage.Create;
  try

    // BITMAP erzeugen und laden
    bmp := TBitmap.Create;
    bmp.LoadFromFile( SingleImageFileName + '.bmp' );

    // KOPIE in JPG-Objekt umwandeln
    jpg.Assign(bmp);
    jpg.SaveToFile( SingleImageFileName + '.jpg' );
   
    //Das Bild anzeigen
    image2.Picture.LoadFromFile({jpg.GetNamePath} SingleImageFileName + '.jpg');
    //Das bild hochladen

    // was jetzt man GetNamePath ist... naja, i benutze SingleImageFileName + '.jpg' ...
    ShowMessage( ... );
    //ftp.Put( ... );
  finally
    jpg.Free;
    bmp.Free;
  end;
end;