JPG im Blob Feld wird extrem groß

[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

[mkinzler]

Zitat von calikey:

Vor und nachname der person

Aber wo kommen die her?

[DeddyH]

Du musst doch irgendwo eine Datenmenge haben, wo das Zeugs auch drinsteht

[calikey]

die clientdataset ist in form1 und die daten also pass bild kopie arbeitsvertrag ... sollen halt unter extra form angezeigt werden also form 2

[mkinzler]

Dann muss es Form1.Tclientdataset.Edit; usw. heissen.