![]() |
Delphi-Version: 5
Datei lesen klappt nicht
Hall o
Hier mal der Programm text ich meiner Meinung alles so gemacht wie in anderen Sachen auch aber es kommt immer eine Fehler meldung bei Read(Datei,s) in Zeile 98
Delphi-Quellcode:
unit Unit1;
{$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Image1: TImage; Image2: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Image2Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; datei: file of integer; const Dateiname=('Versteckt.dat'); implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); VAR pfad:string; begin if opendialog1.execute then begin pfad:=opendialog1.filename; image1.picture.loadfromfile(pfad); end; end; procedure TForm1.Button2Click(Sender: TObject); var Bildbreite,Bildhoehe,Zeile,Spalte,X,Y,farbe,r,g,b,v,Versteckte_Zahl,f:integer; begin Bildbreite:=image1.Width; Bildhoehe:=image1.height; //For zeile:=0 to bildbreite-1 do // begin // For spalte:=0 to bildhoehe-1 do // begin // farbe:=image1.canvas.pixels[zeile,spalte]; farbe:=image1.canvas.pixels[270,80]; //Versteckte_Zahl:=80; r:=farbe and $0000FF; g:=(farbe and $00FF00) shr 8; b:=(farbe and $FF0000) shr 16; v:=versteckte_Zahl + farbe and $FF000000; //image2.canvas.pixels[zeile,spalte]:=r; label1.caption:=('rot: '+inttostr(r)); label2.caption:=('grün: '+inttostr(g)); label3.caption:=('blau: '+inttostr(b)); label4.caption:=('Versteckte_Zahl: '+ inttostr(v)); image2.Canvas.brush.color:=farbe; image2.canvas.fillrect(rect(0,0,300,300)); f:=r+g+b+v; ASSIGNFILE(DATEI,DATEINAME); REWRITE(DATEI); WRITE(DATEI,f); Closefile(Datei); end; procedure TForm1.Button3Click(Sender: TObject); var s:integer; begin ASSIGNFILE(DATEI,'versteckt.dat'); Rewrite(datei); Read(datei,s); showmessage(inttostr(s)); Closefile(datei); end; procedure TForm1.Image2Click(Sender: TObject); begin end; end. |
AW: Datei lesen klappt nicht
Zitat:
|
AW: Datei lesen klappt nicht
Welchen den? Was steht den in Zeile 98?
|
AW: Datei lesen klappt nicht
Yop das war der fehler... stand auch falsch in meiner Programmtext hilfe drinne
mit Reset gehts natürlich |
AW: Datei lesen klappt nicht
Zitat:
Und wenn du hier (oder sonst wo) um Hilfe bittest, dann liefer doch bitte alle verfügbaren Infos*, und zwar in verständlicher Sprache. Mit möglichst präziser Formulierung des eigentlichen Problems. Bisher war in fast allen deiner Threads munteres Rätselraten um was du überhaupt willst. Das kann einfach nicht in deinem Sinne sein. *) "Eine Fehlermeldung" ist KEINE Info! WELCHE Meldung kommt? WO genau? (Zeilennummern helfen hier nichts, markiere die Zeile in deinem Beitrag.) WANN tritt eine Meldung genau auf? Was genau soll passieren, und was genau passiert statt dessen? Was ist sonst noch zu beachten? (Vorgaben etc.) Du drückst dich einfach immer unheimlich schwammig (und schlecht) aus. Daher kommt es dann auch, dass Threads zu eigentlich leicht zu lösenden Dingen bei dir hier auf ein Mal 5-Seiter werden, obgleich das Problem mit brauchbarer Beschreibung in 1-2 Antworten geklärt sein könnte. |
AW: Datei lesen klappt nicht
@EMS:
So wie ich es verstanden habe ist das eine Aufgabe deines Lehrers und der will es, dass du es so machst wie du es machst und nicht anders, weil er sonst denkt, dass du es aus dem Internet hast, was du ja trotzdem tust. Dein ganzer Code ist inzwischen ein Kuddelmuddel aus vielen Threads und Codes. Ich weiß nicht was man davon halten soll und vor allem ob das denn so wirklich die Vorgaben des Lehrers sind oder doch eher deine. Und wenn so ein Programm tatsächlich eine Vorgabe des Lehrers ist, also ich weiß es nicht was man davon halten soll. Denn seien wir mal ehrlich, vieles von dem was du da machst ist durchaus so machbar, wie du es machst, aber entweder man programmiert mit Delphi oder schreibt ein Konsolenprogramm. Wenn man schnell bereit ist einiges neu zu nutzen, z. B. Image, weil es da ist und man es nutzen kann, warum dann zum Beispiel nicht GetRValue? Letztendlich machst du nur dir das Leben schwer in dem du es kompliziert machst. Paar Punkte an deinem Code:
Delphi-Quellcode:
Wozu der Umweg über Pfad Variable? Und das mit image1.picture.loadfromfile klappt zuerst ohne Fehlermeldung, aber Jpeg hat kein Canvas, nur Bitmap hat Canvas. Also lade auch direkt in die Bitmap. Sonst funktioniert dein Programm gelegentlich und dann wieder mal nicht, und du hast keine Ahnung warum. Also direkt als Bitmap laden. Und wenn es das falsche Format ist, dann kommt die Fehlermeldung gleich beim laden.
procedure TForm1.Button1Click(Sender: TObject);
VAR pfad:string; begin if opendialog1.execute then begin pfad:=opendialog1.filename; image1.picture.loadfromfile(pfad); end; end; Dann solltest du auch gleich eine 24 Bit Bitmap daraus machen. Wenn du das nicht machst dann könnte es passieren, dass du später eine Bitmap lädst und dich wunderst wieso es jetzt nicht klappt, wo es die ganze Zeit klappte.
Delphi-Quellcode:
Das ist falsch:
procedure TForm1.Button1Click(Sender: TObject);
begin if OpenDialog1.Execute then begin Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName); Image1.Picture.Bitmap.PixelFormat := pf24bit; //sofort 24 Bit draus machen end; end;
Delphi-Quellcode:
Image Breite und Höhe entsprechen nicht der Breite und Höhe des Bildes, das es beinhaltet, und wenn, dann nur zufällig. Image ist eine Komponente, und das Width und Height sind nur die Abmessungen des sichtbaren Bereiches der Image. Wenn d die Abmessungen des Bildes willst, dann frag das im Bild ab und nicht Image:
Bildbreite:=image1.Width;
Bildhoehe:=image1.height;
Delphi-Quellcode:
oder auch
Bildbreite:=Image1.Picture.Bitmap.Width;
Bildhoehe:=Image1.Picture.Bitmap.Height;
Delphi-Quellcode:
Das ist eine mögliche Fehlerquelle:
Bildbreite:=Image1.Picture.Width;
Bildhoehe:=Image1.Picture.Height;
Delphi-Quellcode:
Wenn du zufällig eine Bitmap lädst, dann wird das klappen, denn die Canvas bei Image1.Canvas ist die gleiche Canvas wie bei Image1.Picture.Bitmap.Canvas. Wenn du aber zufällig keine Bitmap lädst, dann wird es bei dir im besten Fall eine Fehlermeldung geben, im schlimmsten Fall wird es nicht funktionieren und du weißt nicht warum.
farbe:=image1.canvas.pixels[270,80];
Das geht und wir haben darüber diskutiert, aber nur, weil ich nicht wußte auf was du hinaus willst:
Delphi-Quellcode:
Übersichtlicher ist
r:=farbe and $0000FF;
g:=(farbe and $00FF00) shr 8; b:=(farbe and $FF0000) shr 16;
Delphi-Quellcode:
Und das hier:
R:= Byte(Farbe);
G:= Byte(Farbe shr 8); B:= Byte(Farbe shr 16);
Delphi-Quellcode:
Was willst du eigentlich wo verstecken?
v:=versteckte_Zahl + farbe and $FF000000;
Zuerst stellt sich die Frage ob die Zeile das Ergebnis liefert was du willst. Willst du zuerst versteckte_Zahl mit farbe addieren oder zuerst farbe mit $FF000000 AND rechnen? Wenn das zweite, dann unbedingt in Klammer setzten, also versteckte_Zahl + (farbe and $FF000000). Abe rich weiß nicht ob du eine vernünftiges Ergebnis bekommst, denn Wert AND 0 ergibt eigentlich 0. So wie es da ist wird nur ein Byte der vier Bytes die Rechnung überleben. Der Punkt hier:
Delphi-Quellcode:
Wo und wann wurde die Bitmap geladen oder definiert? Ohne Bitmap ist die Canvas 0 x 0 groß.
image2.Canvas.brush.color:=farbe;
image2.canvas.fillrect(rect(0,0,300,300));
Delphi-Quellcode:
Wurde nicht festgestellt, dass das nicht geht? Du kriegst zwar etwas raus, die Frage nur was.
f:=r+g+b+v;
Nicht für Ungut, aber das geht schon seit Tagen einfacher:
Delphi-Quellcode:
Sag wenn du es wissen willst, dann sage ich es dir.
ASSIGNFILE(DATEI,DATEINAME);
REWRITE(DATEI); WRITE(DATEI,f); Closefile(Datei); Du kannst alles auch lassen, dann funktioniert es aber eher zufällig. |
AW: Datei lesen klappt nicht
Zitat:
|
AW: Datei lesen klappt nicht
Zitat:
|
AW: Datei lesen klappt nicht
Und wieso wurde dann Delphi 5 im Ausgangspost angegeben? Ich muss Medium einfach Recht geben, so ist das alles wenig sinnvoll. Vielleicht mal als Anregung an den TE:
![]() |
AW: Datei lesen klappt nicht
Zitat:
ich hab es auch nur an *.lfm gesehen ;) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz