Echtzeit-BMP-JPG-Konvertierung in Delphi 7 verwenden von Paradox

Recherche hier und bei Code-News Schnell, ich habe nichts gesehen auf dem Punkt zu meinem problem. Ich habe eine app, wo ein Kunde das Bild (ein JvDBImage) wird erworben durch die Zwischenablage, von einem Drittanbieter-Bild-Aufnahme-Programm, wenn der Benutzer klickt auf einen button in meine app zu laden. (PhotoImage.PasteFromClipboard). Lädt und speichert das Bild als bitmap ... manchmal eine GROßE BMP. Also, ich brauche etwas, das das speichern und laden von JPG.

Habe ich versucht: .. verwendet JPeg -

var
   jpg     : TJpegImage;
begin
  PhotoImage.PasteFromClipboard;
//  // convert to JPEG
//  jpg.Create;
//  jpg.Assign(PhotoImage.Picture);
//  PhotoImage.Picture := jpg;
//  freeAndNil(jpg);
end;

Die nicht kompilieren, da die Abtretung wird von zwei verschiedenen Arten. Ich verbrachte auch einige Zeit in die Zwischenablage zu kopieren versuchen, es in einen TMemoryStream ohne Erfolg.

Mein Nächster Versuch ist zu sparen, es vorübergehend zu einer Datei und rufen Sie anschließend als JPG -, aber das wird langsam sein, und ich bin mir nicht sicher, was ich versuche zu tun, ist möglich. Anstatt also den Kopf nach unten eine andere Gasse, dachte ich mir ich poste die Frage hier.

Die Datenbank in Frage, hat eine memo(1) Feld mit dem Namen " Foto, das PhotoImage verbunden ist.

InformationsquelleAutor GM Mugford | 2009-06-20
Schreibe einen Kommentar