bmp erstellen, beschriften und speichern geht nicht

[BBoy]

Ich erstelle in einer Schleife ein BMP auf dessen canvas eine Zahl geschrieben wird. Das BMP wird gespeichert und verwendet. Aber er übernimmt die Nummerierung nicht, auf jedem BMP steht eine 1

Delphi-Quellcode:

    for n:=0 to High(Locations) do begin
      Beach:=Locations[n];
    bmp:=TBitmap.Create;
    bmp.Width:=10;
    bmp.Height:=12;
    bmp.PixelFormat :=   pf24bit;
    bmp.Canvas.Font.Size := 10;
    bmp.Canvas.Font.Style := [fsbold];
    bmp.Canvas.TextOut(2,-1,beach.Name); // könnte hier auch inttostr(n) machen, geht aber auch nicht
    bmp.SaveToFile('temp1.bmp');
    Image:=Google.Maps.MarkerImage(URL+'temp1.bmp', Google.Maps.Size(10,12), Google.Maps.Point(0,0),Google.Maps.Point(5,6));
    bmp.Free;
  end;

Das ist nur ein ausschnitt aus der kompletten prozedur...

Was mache ich falsch? Warum wird immer nur die 1 gespeichert? Die schleife wird aber mehrmals durchlaufen.

[daywalker9]

Weil du jedes nach Temp1.bmp speicherst

[DeddyH]

Kann es sein, dass Du immer wieder dieselbe Datei überschreibst? Wenn in der letzten Bitmap die 1 steht, ist das dann ja klar.

[edit] Zu langsam [/edit]

[BBoy]

Die schleife zählt doch hoch, von 1 - 15 oder so. Also müsste doch im letzten Bild die 15 sein und nicht die 1
Abgesehen davon, werden die einzelnen bilder angezeigt und in jedem steht eine 1
Ja das Bitmap wird immer wieder überschrieben, daher sollte doch darin die aktuelle Zahl zu sehen sein. Ist es aber nicht.

Das Prinzip:
Bitmap wird erzeugt und mit der zahl der Schleife beschriftet, dann gespeichert und gleich angezeigt und das wird immer wieder wiederholt bis die Schleife zu ende ist.

[DeddyH]

Ob die Schleife hochzählt oder nicht, in jedem Durchlauf kommt

Zitat:

bmp.SaveToFile('temp1.bmp');

Du speicherst also immer in dieselbe Datei, die vorhergehenden werden dabei überschrieben. Wieso das Bild jetzt eine 1 enthält und keine 15 weiß ich auch nicht (Bitmap nicht breit genug?).

[edit] Wie ist es denn so?

Delphi-Quellcode:

procedure TFrmTest.btnGenerateBitmapsClick(Sender: TObject);
const
  Pfad = 'C:\temp\'; // nur zum Testen
var
  bm: TBitmap;
  i: integer;
  R: TRect;
begin
  bm := TBitmap.Create;
  try
    bm.Width := 50;
    bm.Height := 30;
    bm.PixelFormat := pf24Bit;
    bm.Canvas.Font.Name := 'Tahoma';
    bm.Canvas.Font.Size := 20;
    bm.Canvas.Brush.Color := clYellow;
    R := Rect(0, 0, bm.Width, bm.Height);
    for i := 1 to 15 do
      begin
        bm.Canvas.FillRect(R);
        SetBkMode(bm.Canvas.Handle, TRANSPARENT);
        DrawText(bm.Canvas.Handle, PChar(IntToStr(i)), -1, R, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
        bm.SaveToFile(Format('%sbm%d.bmp', [Pfad, i]));
      end;
  finally
    bm.Free;
  end;
end;

[/edit]

[BBoy]

Ja das funktioniert. Habe mir das angepasst und nun funktioniert alles.
Danke.