PDF's und Jpg im Datensatz speichern, vorschau und abrufen

[calikey]

So hab bissel was gefunden und versucht es um zuschreiben aber delphi mag nicht. jetzt ist eure hilfe gefragt

Delphi-Quellcode:

unit doku;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.ImgList,
  Vcl.ExtDlgs, Data.DB, Datasnap.DBClient, Vcl.DBCtrls, Vcl.StdCtrls,
  gtScrollingPanel, gtPDFViewer, gtPDFClasses, gtCstPDFDoc, gtExPDFDoc,
  gtExProPDFDoc, gtPDFDoc, gtPDFPrinter, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB;

type
  TForm2 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    gtPDFViewer1: TgtPDFViewer;
    gtPDFViewer2: TgtPDFViewer;
    gtPDFViewer3: TgtPDFViewer;
    dbDemos: TClientDataSet; //von mir geändert
    tVenues: TClientDataSet; //von mir geändert
    tVenuesVenueNo: TAutoIncField;
    tVenuesVenue: TStringField;
    tVenuesCapacity: TIntegerField;
    tVenuesVenue_Map: TGraphicField;
    tVenuesRemarks: TMemoField;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBMemo1: TDBMemo;
    DBImage1: TDBImage;
    btLoadMemo: TButton;
    btSaveMemo: TButton;
    btLoadImage: TButton;
    btSaveImage: TButton;
    odBlob: TOpenDialog;
    sdBlob: TSaveDialog;
    ClientDataSet1: TClientDataSet;
    ClientDataSet1Arbeitsvertragimg: TBlobField;
    ClientDataSet1kopie1: TBlobField;
    ClientDataSet1kopie2: TBlobField;
    ClientDataSet1kopie3: TBlobField;
    ClientDataSet1kopie4: TBlobField;
    ClientDataSet1kopie5: TBlobField;
    ClientDataSet1kopie6: TBlobField;
    ClientDataSet1kopie7: TBlobField;
    ClientDataSet1kopie8: TBlobField;
    ClientDataSet1kopie9: TBlobField;
const
  TClientDataSet: String = '..\..\Data\Demos.abs';
    procedure FormCreate(Sender: TObject);
    procedure btLoadMemoClick(Sender: TObject);
    procedure btSaveMemoClick(Sender: TObject);
    procedure btLoadImageClick(Sender: TObject);
    procedure btSaveImageClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var

  Form2: TForm2;
  openDialog : TOpenDialog;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm2.FormCreate(Sender: TObject);
begin
  dbDemos.DatabaseFileName := ExtractFilePath(Application.ExeName) + DataBaseFileName; //Hier Tclientdataset enthält kein databasefilename  
  dbDemos.Open;
  tVenues.Open;
end;

procedure TForm2.btLoadMemoClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
 if (odBlob.Execute) then
   begin
     tVenues.Edit;
     try
       BlobStream := tVenues.CreateBlobStream(tVenues.FieldByName('kopie1'),bmWrite);
       FileStream := TFileStream.Create(odBlob.FileName,fmOpenRead or fmShareDenyNone);
       BlobStream.CopyFrom(FileStream,FileStream.Size);
       FileStream.Free;
       BlobStream.Free;
       tVenues.Post;
     except
       tVenues.Cancel;
     end;
   end;
end;

procedure TForm2.btSaveMemoClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
  if (sdBlob.Execute) then
    begin
      FileStream := TFileStream.Create(sdBlob.FileName,fmCreate);
      BlobStream := tVenues.CreateBlobStream(tVenues.FieldByName('kopie1'),bmRead);
      FileStream.CopyFrom(BlobStream,BlobStream.Size);
      BlobStream.Free;
      FileStream.Free;
    end;
end;

procedure TForm2.btLoadImageClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
 if (odBlob.Execute) then
   begin
     tVenues.Edit;
     try
       BlobStream := tVenues.CreateBlobStream(tVenues.FieldByName('kopie1'),bmWrite);
       FileStream := TFileStream.Create(odBlob.FileName,fmOpenRead or fmShareDenyNone);
       BlobStream.CopyFrom(FileStream,FileStream.Size);
       FileStream.Free;
       BlobStream.Free;
       tVenues.Post;
     except
       tVenues.Cancel;
       raise;
     end;
   end;
end;

procedure TForm2.btSaveImageClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
  if (sdBlob.Execute) then
    begin
      FileStream := TFileStream.Create(sdBlob.FileName,fmCreate);
      BlobStream := tVenues.CreateBlobStream(tVenues.FieldByName('kopie1'),bmRead);
      FileStream.CopyFrom(BlobStream,BlobStream.Size);
      BlobStream.Free;
      FileStream.Free;
    end;
end;

end.

was ist mein fehler oder besser wie muss ich das ändern?

[Sir Rufo]

Ist das jetzt das Rätsel des Tages "Wo ist hier ein Fehler?" oder teilst du uns - irgendwann - mit was genau nicht funktioniert?

Ein Blick in den uses Teil lässt schon mal eine große Verwirrung erahnen.

[calikey]

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
  dbDemos.DatabaseFileName := ExtractFilePath(Application.ExeName) + DataBaseFileName; //Hier Tclientdataset enthält kein databasefilename 
  dbDemos.Open;
  tVenues.Open;
end;

so noch mal das problem
habe

Delphi-Quellcode:

dbDemos: TClientDataSet; //von mir geändert
tVenues: TClientDataSet; //von mir geändert

vorher

Delphi-Quellcode:

dbDemos: TABSDatabase;
tVenues: TABSTable;

da ich ja eine mybase datenbank habe dachte ich änder das mal und bis auf das eine meckert delphi ja auch nicht.aber wie sag ich da jetzt delphi das er da meine datenbank benutzen soll?

[Bernhard Geyer]

gt ? Gnostice-Units?
Ist zwar jetzt nicht direkt das Problem. Aber stell dich schon mal darauf ein das beim Betrachten von realen PDFs dir die Anwendung öfter um die Ohren fliegen wird.
Die Implementierung von Gnostice ist mehr oder minder so aufgebaut das unbekannte Elemente als erstes zu einem Programmabsturz fürhen sollen.

[Sir Rufo]

Wenn man in ganzen Sätzen spricht und dabei sehr genau in der Beschreibung ist, dann wird es für Aussenstehende einfacher zu verstehen.

Ich versuche es jetzt mal zu interpretieren:

Kann es sein, dass tVenues - was ja jetzt auch ein TClientDataSet ist - nicht geöffnet werden kann, weil das Programm nicht weiß wie bzw. woher, weil du diesem keinen Dateinamen (und damit keine Quelle, woher die Daten kommen sollen) gegeben hast?

[Perlsau]

Mein lieber Calikey,

ganz offensichtlich bist du mit der Delphi-Programmierung nicht nur kaum vertraut, sondern scheinst im Grunde auch keine Ahnung davon zu haben, was irgendwelche Befehle in deinem unter Nr. 5 geposteten Quelltext zu bedeuten haben:

1. hast du z.B. in den Uses etliche Units doppelt drin, und zwar in verschiedenen Versionen – einmal für neuere Delphi-IDEs und einmal für ältere Delphi-IDEs, u.a.: Windows, Messages, SysUtils, Classes, Graphics, Forms, Dialogs und etliche mehr. Woher soll dein Programm denn wissen, welche Unit zu verwenden ist?
2. kann man nirgendwo im bereits genannten Post erkennen, was wo wann angeblich nicht funktioniert.
3. solltest du dir erst gar nicht angewöhnen, sämtliche Algorithmen in den Ereignisbehandlungsmethoden unterzubringen.
4. ist die einzige Frage die, was dein Fehler sei. Dein Fehler ist der Versuch, ohne die vorausgegangene Aneignung von Basiskenntnissen zu versuchen, eine funktionierende Anwendung zu entwickeln. Das muß zwangsläufig in die Hose gehen.
5. Dieser Punkt mit den fehlenden Basiskenntnissen wird durch dein Posting Nr. 7 noch einmal bekräftigt und bestätigt: Du kopierst einfach irgendwelche Quelltexte, die du nicht mal ansatzweise verstehst, zusammen, und hoffst, das Delphi automatisch den Rest erledigt, indem es errät, was du eigentlich tun willst und das Programm deinen unausgesprochenen Wünschen entsprechend erstellt. So funktioniert das nicht!

Daher möchte ich dir an dieser Stelle einige gutgemeinte Vorschläge unterbreiten:

1. Arbeite ein paar der zahlreich verfügbaren Delphi-Grundlagen-Tutorials durch, um überhaupt erst einmal die Programmiersprache zu erlernen.
2. Übe dich danach in dem bereits Erlernten durch die Entwicklung einfacher, auf deinen bisherigen Kenntnissen aufbauenden Programmen.
3. Arbeite dann weiterführende Tutorials durch, die dir z.B. den Umgang mit Datenbanken vermitteln.
4. Übe dich auch hier wieder ausgiebig im Programmieren, indem du das neu Erlernte in eigenen kleinen Programmen anzuwenden suchst.

Wenn du dagegen weiterhin so vorzugehen beabsichtigst, wie du das hier sehr anschaulich vorgeführt hast, wirst du erfahrungsgemäß eher früher als später das Handtuch werfen und dich in Zukunft nicht mehr mit Programmieren beschäftigen wollen, weil du durch die falsche Herangehensweise gelernt hast, daß Programmieren nur Frust und Enttäuschung bietet. Es ist auch kaum möglich, dir hier im Rahmen des Forums diese fehlenden Grundlagen beizubringen, denn erstens wäre das sowieso nur eine Wiederholung bereits existierender Tutorials und zweitens äußerst zeitintensiv, wie z.B. dieser Thread in der Entwickler-Ecke zeigt. Die meisten Leute hier müssen nämlich nebenher arbeiten und haben daher nicht die Zeit und Muse, die der Admin des Entwicklertreffs in diesem Fall bewundernswerterweise aufzubringen in der Lage ist.

[blondervolker]

Hallo,

so dumm ist er garnicht...

Er tut nur so... Mit Datenbanken weiss er schon Bescheid.

Schau nochmal in Absolute Database bei den Beispielen nach!
Da gibt es doch ein schönes Beispiel. "sdblob" und "odblob".

Ist doch aus der "unit Main".

Wie wäre es mit "ABSMain" und:
const
DataBaseFileName: String = '..\..\Data\Demos.abs';

[Sir Rufo]

Es war mir nicht bekannt, dass ein TClientDataSet auch eine Absolut-Datenbank lesen/verarbeiten kann. Einfach nur den Dateinamen angeben und das wars. Super einfach. Man lernt doch nie aus