Discussion :

[Eric.H]

Bonjour

On utilise un TPrinter pour faire certains type d'impression, or on doit pouvoir également enregistrer les données "brut" dans un fichier...

Donc le TPrinTer.BeginDoc de Delphi (Printers.pas)....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TPrinter.BeginDoc;
var
  DocInfo: TDocInfo;
begin
  CheckPrinting(False);
  SetState(psHandleDC);
  Canvas.Refresh;
  TPrinterCanvas(Canvas).UpdateFont;
  FPrinting := True;
  FAborted := False;
  FPageNumber := 1;
  FillChar(DocInfo, SizeOf(DocInfo), 0);
  with DocInfo do
  begin
    cbSize := SizeOf(DocInfo);
    lpszDocName := PChar(Title);
  end;
  SetAbortProc(DC, AbortProc);
  StartDoc(DC, DocInfo);
  StartPage(DC);
end;

J'attire votre attention sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  with DocInfo do
  begin
    cbSize := SizeOf(DocInfo);
    lpszDocName := PChar(Title);
  end;

Dans les source delphi window.pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  _DOCINFOA = packed record
    cbSize: Integer;
    lpszDocName: PAnsiChar;
    lpszOutput: PAnsiChar;
    lpszDatatype: PAnsiChar;
    fwType: DWORD;
  end;

Question Pourquoi donc Borland n'ont pas implémenté les OutPut et Datatype ??? :

Est ce que je peut m'en sortir sans recompiler les sources de delphi ....

Merci

[e-ric]

Salut

C'est effectivement bizarre et on aurait apprécié un commentaire.
Je n'ai pas de réponse à te proposer mais cela signifie sans doute que ces derniers paramètres ne sont pas utiles.

N'as-tu rien trouvé dans l'aide de Windows ?

cdlt

e-ric

[Eric.H]

derniers paramètres ne sont pas utiles.
N'as-tu rien trouvé dans l'aide de Windows ?

cdlt

e-ric

Et pourtant si c'est parametre sont utilie.... du coté de windows pas de problème c'est Borland qui n'as pas tous implémenté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
DOCINFO
The DOCINFO structure contains the input and output file names and other information used by the StartDoc function. 
 
typedef struct { 
  int     cbSize; 
  LPCTSTR lpszDocName; 
  LPCTSTR lpszOutput; 
  LPCTSTR lpszDatatype;
  DWORD   fwType; 
} DOCINFO, *LPDOCINFO

Rien d'obsolete dans l'aide SDK

[e-ric]

The DOCINFO structure contains the input and output filenames and other information used by the StartDoc function.

typedef struct { // di
int cbSize;
LPCTSTR lpszDocName;
LPCTSTR lpszOutput;
LPCTSTR lpszDatatype; // Windows 95 only; ignored on Windows NT
DWORD fwType; // Windows 95 only; ignored on Windows NT
} DOCINFO;


Members

cbSize
Specifies the size, in bytes, of the structure.

lpszDocName
Points to a null-terminated string that specifies the name of the document.

lpszOutput
Points to a null-terminated string that specifies the name of an output file. If this pointer is NULL, the output will be sent to the device identified by the device context handle that was passed to the StartDoc function.

lpszDatatype
Windows 95: Points to a null-terminated string that specifies the type of data used to record the print job.
Windows NT: This member is ignored.

fwType
Windows 95: Specifies additional information about the print job. Can be zero or DI_APPBANDING if the application will use banding. For optimal performance during printing, banding applications should specify DI_APPBANDING.
Windows NT: This member is ignored.

See Also

StartDoc

Donc pour Windows (hors 9X), les deux derniers paramètres sont superflus. Il reste que l'objet TPrinter ne supporte la sortie vers un fichier car le paramètre lpszOutput est NULL selon le code de BeginDoc.

Donc pas de solution avec TPrinter si tu veux imprimer dans un fichier. Les solutions possibles sont :
- tu adaptes le code de TPrinter via une facade (une enveloppe) sur l'objet TPrinter,
- tu développes un objet TMyPrinter copié et adapté depuis TPrinter pour gagner du temps en implémentant la sortie vers un fichier,
- tu trouve un composant tout fait mais je n'ai rien à te proposer.

Il y a peut-être d'autres solutions mais je ne les connais pas.

cdlt

e-ric

[Eric.H]

Le collégue regarde, on va surement utiliser les API, on devrait s'en sortir....
J'indiquerai la manip... si on trouve