Datei kann nicht erstellt werden

[Delbor]

Hi zusammen

Zitat:

Zitat von p80286 (Beitrag 1413763)

Vllt. ist es auch erhellend mal nach dem "falschen" Pfad/Dateistring zu suchen?
Gruß
K-H

Das war die Lösung! Ich hatte eine Miniausgabe meines inzwischen relativ umfangreichen PDFOffizers erstellt, um es hier zu zippen, musste dann aber nochmal eine extra DP-Version erstellen, und dabei hatte ich einzelne Dateien offenbar vergessen, aus dem alten Projekt zu entfernen, bzw. dem neuen Projekt die richtige Datei hinzuzufügen.

Der Ablauf sollte in etwa so sein:

1. Projekt im neuen Verzeichnis speichern(Namen leicht ändern).
2. Mainform unter dem neuen Projektverzeichnis speichern.
3. Mainunit aus dem Projekt entfernen und schliessen
4. Die im neuen Projektverzeichnis gespeicherte Mainform laden und dem neuen Projekt hinzufügen
5. Dasselbe mit anderen Units wiederholen
6. Und nie einen Schritt vergessen..

Ja, ich weiss, ich hätte ja Tortoisegit installiert. Und eigentlich habe ich mich ja auf Delphi Tokio gerade wegen der GitIntegration gefreut - die Dokumentation ist recht ausführlich, und ich müsste mir nicht alles mühsam mit Google übersetzen. Nur leider ist diese Integration irgendwie nicht wirklich brauchbar (keine Branches etc).

Gruss
Delbor

[freimatz]

Wir verwenden git sehr excessiv. Ich benutze aber explizit nicht das git in Delphi selber. Ich möchte das getrennt haben und genau sehen was ich da mache. Delphi selber macht ab und zu auch komische Dinge mit den Dateien (dfm, dproj) und da sehe ich mit separaten Tools besser was da passiert und was wirklich dann im Repository landet.

[himitsu]

Zitat:

Delphi-Quellcode:

FCustomCreatePDFClass.Create(Owner);

Wer sieht den Fehler?

[Jumpy]

Zitat:

Zitat von himitsu (Beitrag 1413794)

Zitat:

Delphi-Quellcode:

FCustomCreatePDFClass.Create(Owner);

Wer sieht den Fehler?

Delphi-Quellcode:

FCustomCreatePDFClass:=TCustomCreatePDFClass.Create(Owner)

?

[TBx]

Zitat:

Zitat von himitsu (Beitrag 1413794)

Zitat:

Delphi-Quellcode:

FCustomCreatePDFClass.Create(Owner);

Wer sieht den Fehler?

Ich finde es angebrachter, hier den vermuteten Fehler direkt zu erklären. Dem TE ist sicherlich nicht damit gedient, dass man sich über ihn lustig macht.

Um deine Frage zu beantworten:
Wenn man davon ausgeht, dass

Delphi-Quellcode:

var FCustomCreatePDFClass: TCustomCreatePDFClass

gegeben ist, dann müßte die Zeile korrekt

Delphi-Quellcode:

FCustomCreatePDFClass := TCustomCreatePDFClass.Create(Owner);

lauten.

[himitsu]

OK, stimmt auch wieder.

Aber über den TE macht sich doch keiner lustig.
Wollte nur die Anderen draufstupsen, welche das seit duzenden Post übersehn hatten.
:duck:

[Delbor]

Hi zusammen

Hier mal das Corpus Delicti: :-D

Delphi-Quellcode:

  try
     JPegGraphic.Assign(Image);
     JPegGraphic.SaveToFile('C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg)');
     LFileName := 'C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg)';
     FCustomCreatePDFClass.Create(Owner);

Das erzeugt keine FCustomCreatePDFClass-Instanz, sondern ruft den Constructor der Klasse auf:

Delphi-Quellcode:

constructor TCustomCreatePDFClass.Create(AOwner: TPersistent);
begin
   inherited Create;

end;

Die Methode hatte auch schon mehr zu tun - ich hab das aber mal ausgelagert:

Delphi-Quellcode:

procedure TCustomCreatePDFClass.CreatePDFCreator;
begin
   FPDFCreator := CoPdfCreatorObj.Create;
   FQueue := CoQueue.Create;
   FQueue.Initialize;
   FPDFCreator.AddFileToQueue(FFileName);

   if not FQueue.WaitForJob(10) then
      Showmessage('The print job did not reach the queue within 10 seconds')
   else
      Showmessage('Currently there are' + IntToStr(FQueue.Count) + ' job(s) in the queue');
      Showmessage('Getting job instance');
      FPrintJob := FQueue.NextJob;
      FPrintJob.SetProfileByGuid('DefaultGuid');
      Showmessage('Converting under DefaultGuid conversion profile');
      FPrintJob.ConvertTo(FFileName);

//    if (not printJob.IsFinished) or (not printJob.IsSuccessful) then
//      MsgBox "Could not convert the file: " & fullPath
//   else
//      MsgBox "Job finished successfully"
//    end if
//end if

//   FPDFCreator.PrintFile(FFileName);     //   CreateComObject ;        ('{9616B8B3-FE6E-4122-AC93-E46DBD571F87}'         IPrintjobInfo
end;

Im Installationsverzeichnis des PDFCreators befinden sich etliche Beispiele in diversen Programmiersprachen (nur nicht Delphi). Da ich keine dieser Sprachen wirklich kenne, gibt da noch jede Menge Fehler - der häufigste ist nach einem Create-Aufruf 'Komponente nicht registriert'.
Mit andern Worten: die Com-Schnittstelle des PDFCreators würde mir noch graue Haare verursachen, wenn ich nicht schon welche hätte
Aber dazu mehr in einem andern Thread.

Gruss
Delbor

[p80286]

Noch ein kleiner Hinweis:

Delphi-Quellcode:

try
      JPegGraphic.Assign(Image);
      JPegGraphic.SaveToFile('C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg)');
      LFileName := 'C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg)';
      FCustomCreatePDFClass.Create(Owner);

Delphi-Quellcode:

try
      JPegGraphic.Assign(Image);
      LFileName := 'C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg)';
      JPegGraphic.SaveToFile(LFileName);
      FCustomCreatePDFClass.Create(Owner);

Das sollte etwas unempfindlicher gegen Tipfehler sein.

Gruß
K-H