JPG im Blob Feld wird extrem groß

[DeddyH]

Ah, dann ergänz im gezeigten Code mal überall ClientDataset1 um den Präfix "Form1.", also so:
Form1.ClientDataset1

[calikey]

ok jetzt kommt nur noch 1 fehler
[dcc32 Fehler] doku.pas(165): E2010 Inkompatible Typen: 'TDataSet' und 'class of TDataSet'

Delphi-Quellcode:

    procedure tclientdatasetAfterScroll(DataSet1: TDataSet);



  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;


implementation

{$R *.dfm}

uses Unit1, ABOUT;


procedure TForm2.TclientdatasetAfterScroll(DataSet1: TDataSet);
var
  JpegImage: TJPEGImage;
  BlobStream: TStream;
begin
  if (not Form1.clientdataset1.FieldByName('Arbeitsvertragimg').IsNull) then
    begin
      BlobStream := Form1.clientdataset1.CreateBlobStream(Form1.clientdataset1.FieldByName('Arbeitsvertragimg'),bmRead);
      JpegImage := TJPEGImage.Create;
      try
        JpegImage.LoadFromStream(BlobStream);
        Photo.Picture.Assign(JpegImage);
        Photo.Visible := True;
      finally
        JpegImage.Free;
        BlobStream.Free;
      end;
    end
  else
    Photo.Visible := False;
end;



procedure TForm2.btnLoadClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
  if sdBlob.Execute then
  begin
    Form1.clientdataset1.Edit;
    BlobStream := nil;
    FileStream := TFileStream.Create(sdBlob.FileName,fmCreate);
    try
      BlobStream := Form1.clientdataset1.CreateBlobStream(Form1.clientdataset1.FieldByName('Arbeitsvertragimg'),bmRead);
      FileStream.CopyFrom(BlobStream,BlobStream.Size-BlobStream.Position);
      Form1.clientdataset1.Post;
      TclientdatasetAfterScroll(TDataSet); // fehler 2010
    finally
      BlobStream.Free;
      FileStream.Free;
    end;
  end;
end;

[mkinzler]

Und welche Zeile wäre das?
TclientdatasetAfterScroll(Form1.ClientDataSet1);

[calikey]

das ist diese
TclientdatasetAfterScroll(TDataSet); //2010

[DeddyH]

TclientdatasetAfterScroll(Form1.clientdataset1)

[himitsu]

Zitat von DeddyH:

TclientdatasetAfterScroll(Form1.clientdataset1)

Glaub nicht.
Er will ein Event aufrufen? ... das liegt auf einer Form ... also muß man Dieses dort auch aufrufen.

Also ClientDataSet1AfterScroll(Form1.ClientDataSet1); ,
aber vermutlich eher so Form1.ClientDataSet1AfterScroll(Form1.ClientDataSet1); , da das Event vermutlich auf der selben Form liegt, wie das DataSet.
Oder notfalls auch indirekt über Form1.ClientDataSet1.OnAfterScroll(Form1.ClientDataSet1); .
[edit] siehe nachfolgenden Beitrag.

Wie ich das sehe, benutzt diese Methode praktisch ausschließlich vorwiegend Komponenten/Funktionen der Form1, also gehört diese Methode auch in TForm1 rein, wo sie dann von Form2 aus aufgerufen wird, mit Übergabe das Dateinamen als Parameter.
So oft, wie hier die böse globale Variable Form1 benutzt werden musste. Immer wenn man solche globalen Variablen verwenden muß, vorallem bei der Masse, sollte man dringend nachsehn, was man hier falsch macht.



Allgemein würde ich aber dringend das Studium eines Grundlagen-Tutorials empfehlen.
> Typen <> Objektinstanzen und Variablen, sowie Parameter ... was ist das und wie benutzt man es
> und wie benennt man Komponenten/Funktionen (sprechende Bezeichner)

[DeddyH]

Glaub doch.

Zitat:

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    ...
    procedure tclientdatasetAfterScroll(DataSet: TDataSet);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

Für die Benennung der Methode kann ich ja nix.

[himitsu]

Ohh. OK, dann ist die Benennung doch echt böse.

Hab meine letzte Antwort versucht entsprechend anzupassen.

[calikey]

so es sind keine fehler mehr und es lässt sich compilieren nur leider passiert nichts.
fehler meldung im programm die syntax für denn dateiname verzeichnissname oder datenträgerbezeichnung ist falsch?

[mkinzler]

Und wie sieht dieser aus?