StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POCorrect way to send commands directly to printer!
primarykey
Id
5936511
data
AcceptedAnswerId
5937427
AnswerCount
3
ClosedDate
CommentCount
3
CommunityOwnedDate
CreationDate
2011-05-09T11:55:00.263
FavoriteCount
3
LastActivityDate
2015-05-11T12:00:47.697
LastEditDate
2011-05-11T08:22:43.050
LastEditorUserId
512305
OwnerUserId
512305
ParentId
0
PostTypeId
1
Score
2
ViewCount
9521
LastEditorDisplayName
text
Body
Ok, here is how i do it: <pre><code>procedure TMainWindow.btnRawPrintClick(Sender: TObject); begin BeginPrint; SendStr(#27#69); SendStr('MyData'); SendStr(#10); EndPrint; end; procedure TMainWindow.SendStr(Text: String); var i: Integer; data : Array of Char; begin for i := 1 to Length(Text) do begin SetLength(data,i); data[Pred(i)] := Text[i]; end; if (PrintRawData(printHandle, data, Length(data)) < 0) then begin ShowMessage('PrintRawData Failed'); EndRawPrintPage(printHandle); EndRawPrintJob(printHandle); exit; end; end; procedure TMainWindow.BeginPrint; begin printHandle := StartRawPrintJob('EPSON TM-T70 Receipt','ESDPRT001','Test Document'); if printHandle < 0 then begin ShowMessage('StartRawPrintJob Failed!'); exit; end; if (StartRawPrintPage(printHandle) < 0) then begin ShowMessage('StartRawPrintPage Failed!'); EndRawPrintJob(printHandle); exit; end; end; procedure TMainWindow.EndPrint; begin if (EndRawPrintPage(printHandle) < 0) then begin ShowMessage('EndRawPrintPage Failed'); EndRawPrintJob(printHandle); exit; end; if (EndRawPrintJob(printHandle) < 0) then begin ShowMessage('EndRawPrintJob Failed'); exit; end; end; </code></pre> Also i changed a little code that i took from <a href="http://groups.google.com/group/borland.public.delphi.winapi/browse_thread/thread/25e49276f24a7ffa/a7d768caffd3ec31?q=PrintRaw%20Hecht#a7d768caffd3ec31" rel="nofollow">here</a>: <pre><code>function PrintRawData(hPrn : THandle; Buffer : pointer; NumBytes : SpoolInt) : integer; {$IFDEF WIN32} var BytesWritten : DWORD; {$ENDIF} begin NumBytes := NumBytes * 2; //<-- I added this line ... </code></pre> However, something is wrong as some commands (escape sequences) don't work as expected!
Tags
<delphi><printing><epson>
Title
Correct way to send commands directly to printer!
singulars
PostAcceptedAnswerId
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. USPeacelyk
UserOwnerUserId
1. USPeacelyk
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. PL
 singulars
 LinkTypeLinkTypeId
 LTLinked
2. PL
 singulars
 LinkTypeLinkTypeId
 LTLinked
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
2. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 POCorrect way to send commands directly to printer!
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
2. VO
 singulars
 PostPostId
 POCorrect way to send commands directly to printer!
 UserUserId
 USJeroen Wiert Pluimers
 VoteTypeVoteTypeId
 VTFavorite
3. VO
 singulars
 PostPostId
 POCorrect way to send commands directly to printer!
 UserUserId
 USjachguate
 VoteTypeVoteTypeId
 VTFavorite
CommentsPostId

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.