AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

D2010, TImage. SaveToFile error

Ein Thema von bernhard_LA · begonnen am 5. Okt 2011 · letzter Beitrag vom 6. Okt 2011
Antwort Antwort
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.068 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

D2010, TImage. SaveToFile error

  Alt 5. Okt 2011, 17:27
ich habe einen seltsamen Fehler beim Aufruf der Funktion TImage.Picture.Bitmap.SaveToFile ,
die Bitmap kommt in zwei Teilen zerlegt in der Datei an, eine "linke Spalte ca. 200 pixel" breit
wird als rechte Spalte in der Bitmap abgespeichert. Anbei ein Beispielbild.

(zusätzlich verwende ich TScollBox zur Anzeige von TImage)
Miniaturansicht angehängter Grafiken
error_save_bmp.png   original.png  
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli
Online

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.289 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: D2010, TImage. SaveToFile error

  Alt 5. Okt 2011, 19:10
Ich würde mal den Fehler außen herum suchen und nicht direkt im SaveToFile.
Bist Du sicher, dass Du das Bild vor dem Speichern korrekt vorliegen hast?
Da Du eine ScrollBox erwähnst: Könnte es vielleicht sein, dass Du die Daten "falsch" vom Canvas kopierst...?
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.068 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: D2010, TImage. SaveToFile error

  Alt 6. Okt 2011, 11:59
der testcode spielt fehlerfrei; scrollbars sind da und BMP wird korrekt angezeigt.
In der echten Anwendung wird im Hintergrund viel mit atempbmp gemacht,
Delphi-Quellcode:
    processFunctions ( atempbmp )

  
    atempbmp.savetoFile( ......) // geht auch noch
     
    ......

    Image1.Picture.Bitmap.Assign(atempbmp);

      
    Image1.Picture.Bitmap.SaveToFile('c:\temp\out2.bmp'); // geht falsch
Delphi-Quellcode:
unit Unit_savebmp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

    atempbmp : TBitmap;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
       Image1.Picture.LoadFromFile('c:\temp\out.bmp');

       atempbmp.Assign( Image1.Picture.Bitmap);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      Image1.Picture.Bitmap.Assign(atempbmp);

      Image1.Picture.Bitmap.SaveToFile('c:\temp\out2.bmp');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     atempbmp.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    atempbmp :=TBitmap.Create;
end;

end.

Geändert von SirThornberry ( 6. Okt 2011 um 12:57 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf