Entwickler-Ecke :: Thema anzeigen - Probleme beim Speichern von TImage

wieczo - So 22.09.02 23:09
Titel: Probleme beim Speichern von TImage

Hallo alle samt, verzeiht falls ich in der falschen Rubrik bin, aber TImage ist ja eine Komponente.
Jetzt zum Problem: Ich schreibe ein Programm für BK, das zufällig Einsen auf TImage.Canvas verteilt. Die Prozedur:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure RandomPlatz;
begin
  with form1.Image1 do
  begin
    Canvas.Font.Color := Random(16581375 + 1);
    Canvas.Font.Size := Random(6)+12;
    Canvas.Font.Name := 'Times New Roman';
    Canvas.Brush.Style := bsClear;
    Canvas.TextOut(Random(width+15),Random(height+15),'1');
  end;
end;

Das klappt wunderbar, aber beim Speichern, während der Laufzeit, kriege ich folgende Fehlermeldung:

Cannot create file SavePictureDialog1C:\bilder\bild1.

Ich denke, dass es daran liegt, dass SavePictureDialog1 vor C:\ steht, aber ich weiß nicht wie ich es lösen kann. Zum Speichern verwende ich folgendes:

Quelltext

1:
2:
3:
4:

  
  If SavePictureDialog1.Execute then
    Image1.Picture.Graphic.SaveToFile(SavePictureDialog1.GetNamePath   
                                                       + SavePictureDialog1.Filename);

Vielen Dank im voraus Thomas

Delete - So 22.09.02 23:17

Quelltext

1:
2:

If SavePictureDialog1.Execute then 
    Image1.Picture.Graphic.SaveToFile(SavePictureDialog1.Filename);

wieczo - So 22.09.02 23:23

Vielen Dank Luckie(der aus dem alten Forum?).
Eine Fehlermeldung gab es nicht mehr, aber jetzt hat die Datei keine Erweiterung(z.B. bild.jpeg).

Dankt im Voraus Thomas

Delete - So 22.09.02 23:27

Gib eine an als standard Dateinamenerweiterung an im OI oder von Hand beim Speichern.

wieczo - So 22.09.02 23:44

Vielen, vielen Dank für diese wichtige Hilfe, nur noch eine Sache:
Ich habe das Programm laufen, es sind schon 10000 Einsen gezeichnet worden, es gefällt mir nicht und ich will, dass das TImage wieder weiß ich. Wie mache ich das?

Dank im voraus Thomas

Delete - So 22.09.02 23:58

Bin mir nicht ganz sicher:

Quelltext

1:	Image1.Picture := nil;

wieczo - Mo 23.09.02 00:03

Nochmals Danke schön, es klappt :dance:

Gruß Thomas

Delete - Mo 23.09.02 00:04

Allerdings weiß ich nicht, was mit deienm Speicher paßiert. Ich hoffe, da kann dir noch mal jemand drauf antworten.