JPG im Blob Feld wird extrem groß

[DeddyH]

Statt Tclientdataset musst Du den Namen Deines ClientDatasets (vermutlich ClientDataset1?) angeben.

[calikey]

ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;

Hab mal beide versuch mit clientdataset1 und auch beide datasource aber leider immer noch der fehler

[mkinzler]

 Tclientdataset1.Edit; ?

[calikey]

Da schimpft delphi undeklarierter bezeichner Tclientdataset1 und auch edit1

[DeddyH]

Versuch es doch mal so:

Delphi-Quellcode:

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

[calikey]

Delphi schimpft da wieder das alles undeklariert ist

[calikey]

ich hau mal denn ganzen quell text rein vielleicht bringt das hilfe

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    Button1: TButton;
    Button2: TButton;
    odBlob: TOpenDialog;
    sdBlob: TSaveDialog;
    DBCtrlGrid1: TDBCtrlGrid;
    Photo: TImage;
    Procedure btnLoadClick(Sender: TObject);
    procedure tclientdatasetAfterScroll(DataSet: TDataSet);



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

var
  Form2: TForm2;


implementation

{$R *.dfm}

uses Unit1, ABOUT;


procedure TForm2.TclientdatasetAfterScroll(DataSet: TDataSet);
var
  JpegImage: TJPEGImage;
  BlobStream: TStream;
begin
  if (not Tclientdataset.FieldByName('Arbeitsvertragimg').IsNull) then
    begin
      BlobStream := Tclientdataset.CreateBlobStream(Tclientdataset.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
    Tclientdataset.Edit;
    BlobStream := nil;
    FileStream := TFileStream.Create(sdBlob.FileName,fmCreate);
    try
      BlobStream := Tclientdataset.CreateBlobStream(Tclientdataset.FieldByName('Arbeitsvertragimg'),bmRead);
      FileStream.CopyFrom(BlobStream,BlobStream.Size-BlobStream.Position);
      Tclientdataset.Post;
      Tclientdataset(Tclientdataset);
    finally
      BlobStream.Free;
      FileStream.Free;
    end;
  end;
end.

[DeddyH]

Welche Daten zeigt Dein Grid denn an, wenn Du kein ClientDataset auf dem Formular hast?

[calikey]

Vor und nachname der person

[khh]

Muss es denn sein die Bilder in der DB zu speichern?
Das ist eigentlich keine so gute Idee.
Bilder sollten m.E. auf der Platte und nur der Pfad in der DB gespeichert werden.

Gruss KH