Datei lesen klappt nicht

[EMS]

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.

[zeras]

Zitat:

Zitat von EMS (Beitrag 1197741)

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
s:integer;

begin
  ASSIGNFILE(DATEI,'versteckt.dat');
  Rewrite(datei);
  Read(datei,s); //was soll das? Erst mit Rewrite eine neue Datei erzeugen und dann lesen wollen?
  showmessage(inttostr(s));
  Closefile(datei);
end;

Welches ist denn Zeile 98? Ich habe mal einen Kommentar geschrieben im Quelltext.

[mkinzler]

Welchen den? Was steht den in Zeile 98?

[EMS]

Yop das war der fehler... stand auch falsch in meiner Programmtext hilfe drinne
mit Reset gehts natürlich

[Medium]

Zitat:

Zitat von EMS (Beitrag 1197741)

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

Wenn du beim Programmieren so wenig Wert auf Verständlichkeit und Korrektheit legst wie beim Fließtext Schreiben, wundert es wenig, dass du an jeder noch so kleinen Ecke wor einer scheinbaren Wand stehst. Du solltest dich intensiv mit der Macht von "einfach mal Dinge ausprobieren" und "Dokumentation" vertraut machen.

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.

[Popov]

@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:

procedure TForm1.Button1Click(Sender: TObject);
VAR
pfad:string;
begin
  if opendialog1.execute then
  begin
  pfad:=opendialog1.filename;
  image1.picture.loadfromfile(pfad);
  end;
end;

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.

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:

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;

Das ist falsch:

Delphi-Quellcode:

  Bildbreite:=image1.Width;
  Bildhoehe:=image1.height;

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:

Delphi-Quellcode:

  Bildbreite:=Image1.Picture.Bitmap.Width;
  Bildhoehe:=Image1.Picture.Bitmap.Height;

oder auch

Delphi-Quellcode:

  Bildbreite:=Image1.Picture.Width;
  Bildhoehe:=Image1.Picture.Height;

Das ist eine mögliche Fehlerquelle:

Delphi-Quellcode:

farbe:=image1.canvas.pixels[270,80];

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.

Das geht und wir haben darüber diskutiert, aber nur, weil ich nicht wußte auf was du hinaus willst:

Delphi-Quellcode:

      r:=farbe and $0000FF;
      g:=(farbe and $00FF00) shr 8;
      b:=(farbe and $FF0000) shr 16;

Übersichtlicher ist

Delphi-Quellcode:

      R:= Byte(Farbe);
      G:= Byte(Farbe shr 8);
      B:= Byte(Farbe shr 16);

Und das hier:

Delphi-Quellcode:

      v:=versteckte_Zahl + farbe and $FF000000;

Was willst du eigentlich wo verstecken?

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:

     image2.Canvas.brush.color:=farbe;
     image2.canvas.fillrect(rect(0,0,300,300));

Wo und wann wurde die Bitmap geladen oder definiert? Ohne Bitmap ist die Canvas 0 x 0 groß.

Delphi-Quellcode:

     f:=r+g+b+v;

Wurde nicht festgestellt, dass das nicht geht? Du kriegst zwar etwas raus, die Frage nur was.

Nicht für Ungut, aber das geht schon seit Tagen einfacher:

Delphi-Quellcode:

     ASSIGNFILE(DATEI,DATEINAME);
     REWRITE(DATEI);
     WRITE(DATEI,f);
Closefile(Datei);

Sag wenn du es wissen willst, dann sage ich es dir.

Du kannst alles auch lassen, dann funktioniert es aber eher zufällig.

[cookie22]

Zitat:

Delphi-Quellcode:

{$mode objfpc}

Wozu das, wenn du mit Delphi arbeitest?

[Sir Rufo]

Zitat:

Zitat von cookie22 (Beitrag 1197930)

Zitat:

Delphi-Quellcode:

{$mode objfpc}

Wozu das, wenn du mit Delphi arbeitest?

Weil er nicht mit Delphi arbeitet? ;)

[DeddyH]

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: http://www.delphipraxis.net/125006-w...n-richtig.html

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1197996)

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: http://www.delphipraxis.net/125006-w...n-richtig.html

:thumb:

ich hab es auch nur an *.lfm gesehen ;)