Bild in Delphi hochladen

[Patrick6]

Hallo zusammen,

ich will ein kleines Bildbearbeitungsprogramm erstellen. Nun bin ich soweit, dass ich ein angegebenes Bild per Image1.Picture.Bitmap.LoadFromFile() hochladen kann. Wie kann ich es denn so machen, dass ich, wenn ich auf einen Button klick, den Pc nach einem Bild durchsuchen kann, welches ich hochladen will?

Ich bin noch ein ziemlicher Anfänger wie ihr seht, aber vielleicht könnt ihr mir ja helfen.

Grüße
Patrick

[himitsu]

TOpenDialog / TOpenPictureDialog :?:

[mkinzler]

<ich würde dabei aber nicht von "Hochladen" reden.

[Patrick6]

Ich kann mit der Antwort leider nichts anfangen Sorry...Wie gesagt, ich bin noch blutiger Anfänger

[mkinzler]

Aber die Hilfe wirst du wohl bedienen können
http://www.delphibasics.co.uk/RTL.asp?Name=TOpenDialog

[Patrick6]

Ja Danke, ich habs jetzt auch...

[himitsu]

Abgesehn davon:
- TOpenDialog oder TOpenPictureDialog von der Komponentenpalette auf die Form pappen,
- im Objekt-Inspector (OI) eventuell noch den Filter einstellen,
- dann den Dialog im Programm aufrufen

Delphi-Quellcode:

if OpenDialog1.Execute then

.
- und wenn er mit OK geschlossen wurde, über

Delphi-Quellcode:

OpenDialog1.FileName

den gewählten Dateinamen auslesen.

[Patrick6]

Danke nochmals...Hab das jetzt hinbekommen mit OpenDialog und auch SaveDialog.
Meine Frage jetzt: Ich wollte dann mit der Paintbox "in" die Bilder kritzeln können und dies dann abspeichern. Leider ist es bis jetzt so, dass es nur das Bild wieder abspeichert ohne das, was ich dazu gemalt habe. Geht es irgendwie mit TImage und Paintbox, dass es beides abspeichert?

Grüße

[Bummi]

Mal direkt in das Canvas eines Image, Image.Picture.Bitmap kannst Du dann speichern.

[Patrick6]

Okay, das klappt soweit.
Trotzdem noch zwei Dinge:
1. Wenn ich jetzt auf ein Bild zum Beispiel draufmale flackert dieses sehr unangenehm. Kann ich das irgendwie wegbekommen?

2. Kann ich auch, wenn ich direkt aufs Image mal Stiftgröße verändern?

Grüße

[pustekuchen]

Bitte benutzt doch die Suchfunktion. Dort sind der Großteil deiner Fragen schon beantwortet.
zu 1: Offscreenbitmap, DoubleBuffered
zu 2: Image.Canvas.Pen.Width

EDIT: Sooo nun stimmt es :D

[mkinzler]

Verwende Doublebuffering
http://docwiki.embarcadero.com/VCL/e...cs.TCanvas.Pen

[alfold]

Zitat:

Zitat von pustekuchen (Beitrag 1072399)

zu 2: Image.cavas.Font.Size

Du meinst sicherlich: Canvas.Pen.With Er will die Stiftgrösse ändern :wink:
und für die Farbe des Stiftes gibt es noch: Canvas.Pen.Color

Gruss alfold

[pustekuchen]

Zitat:

Zitat von alfold (Beitrag 1072402)

Zitat:

Zitat von pustekuchen (Beitrag 1072399)

zu 2: Image.cavas.Font.Size

Du meinst sicherlich: Canvas.Pen.With Er will die Stiftgrösse ändern :wink:
und für die Farbe des Stiftes gibt es noch: Canvas.Pen.Color

Gruss alfold

Jap, genau :) Habs grade auch gemerkt beim Beitrag von mkinzler.
Habs oben editiert.

[DeddyH]

Dann editier gleich nochmal, es heißt Pen.Width und nicht Pen.Size :lol:

[Bummi]

1.) Doublebuffered auf dem Parent auf true setzen
2.) Canvas.Pen.Width := xxx

[Patrick6]

Okay danke, das klappt nun.

Jetzt hätte ich noch eine andere Frage. Ich bin nun auf die Idee gekommen, ein kleines Spiel zu programmieren. Es sollte so aussehen: Man läd eine "Karte" hoch, die ein Labyrint darstellt. Durch dieses Labyrinth muss man dann mit gedrückter Linker Maustaste mit dem Zeichenstift durch und bis ans Ziel kommen (welches ein Button darstellt, der dann anzeigt: "Gewonnen").

Nun ist die Frage ob es überhaupt möglich ist, z.B. eine "Game Over" MEldung anzuzeigen, wenn der Spieler mit dem Stift aus dem Labyrinth rausgeht.

Danke für die Antworten im voraus...

Grüße

Edit: Mir fällt ein, es müsste auch einen Start-Button geben, den man mit dem Ziel-Button irgendwie verknüpft, dass es nur "Gewonnen" anzeigt, wenn die ganze Zeit über von "Start-Button-Move" bis "Ziel-Button-Move" der Pen "aktiviert war und gemalt wurde.

[pustekuchen]

Bitte komm doch mal von deinem "Hochladen" weg.

Image1.Picture.LoadFromFile(fileName);
TImage.OnMouseLeave

Man pflegt hier im Forum, dass man pro Frage einen Thread aufmacht und VORHER die Suchfunktion nutzt!