printvane pod w2k na C++

Kak stava?

Pod w98- nqma problem... ama pod w2k kak stava??? (na C++!!!)

Thanks!

basi wyprosa.
ako niakoi razbere kakyw ti e problema zaslujawa da go uwajawahs :)

Ami ako e takuv nekadurnik kato teb nqma da razbere mnogo qsno!

Ne vizdash li topica kakvo pise? "printvane pod w2k na C++" Tova kakvo znachi? Printvane = print... stava posredstvom edno nesto deto po debelite knigi mu vikat PRINTER!
A puk w2k... prekaleno e slozno za da ti go obqsnq!

Sledvastiq put cheti po-vnimatelno, i ne se izkazvaj nepodgotven! Che e smesno!

Mislia 4e kolegata zadade osnowatelno waprosa - ne mislia 4e ima za kakwo da se palish prosto formuliraj waprosa si kakto triabwa - eto moeto talkuwanie

Predpolagam 4e imash programa koiato direktno kontaktuwa s LPT porta - i izprasta ASCII kodowe (ili control chars) direktno kam printera - po Win9x towa si raboti - tam niama zastita na pametta po na4ina po kojto e ima w Win2k/XP -

Imam reshenieto na problema - no za sazalenie e na PASCAL ama towa niama zna4enie - ako ne me laze pametta otnosno twoi izkazwania po temata to naj weroiatno we4e izsipwash tonowe rugatni (e ima wazmoznost i da gresha nick-a ti) - reshenieto oba4e e uniwersalno - t.e. se izpolzwat se api funcii i nisto powe4e - daje ima powe4e ot edno reshenie na problema

Niama da go poblikuwam oswen ako ne iskash razbira se

---
Е т'ва е живот!

Zdrasti PhantomAS!

Sazalqvam za grubiq rechnik, no i bez drugo ne bqh na kef, i kato vidqh i tova mi pristraka... :| Vse pak, smqtam che e dostatachno qsno kakvo pitam, taka che post-a na emo bese izlisen...

Kakto i da e...

Otnostno rugatnite- burkas me s nqkogo! Az purvo nqmam nisto protiv Pascal code (ili na koito i da e bilo drug ezik), nito puk sipq rugatni...! Mnogo rqdko psuvam, i tova e kogato sum afektiran... taka che- 100% me burkas s nqkoi drug...

Ste se radvam ako mozes da mi pratis koda.... az ne razbiram mnogo ot Pascal, no vse pak ima nqkakvi sansove da se preborq ;)

Pozdravi!

Ok - priemi izwineniata mi za greshkata - ama pokraj tezi "ezikowi" sporowe mi se nabiha razni imena - ta minawam direktno na otgowora - pogledni w MSDN za tezi funkcii - eti ti i kod - ako imash waprosi warhu koda pitaj - milsia 4e powe4eto funkcii sa wzaimstwani direktno ot WinAPI


zna4i raziasniawam nakratko - towa e funkcia koiato izkarwa 1 simwolen niz S na printer s ime (zabelezi triabwa da e to4no towa koeto pishe w Printers) PrinterName - razgledaj koda i potarsi w MSDN funkciite kasaesti printera


uses WinSpool;

procedure WriteRawStringToPrinter(PrinterName:String; S:String);
var
Handle: THandle;
N: DWORD;
DocInfo1: TDocInfo1;
begin
if not OpenPrinter(PChar(PrinterName), Handle, nil) then
begin
ShowMessage('error ' + IntToStr(GetLastError));
Exit;
end;
with DocInfo1 do begin
pDocName := PChar('test doc');
pOutputFile := nil;
pDataType := 'RAW';

end;
StartDocPrinter(Handle, 1, @DocInfo1);
StartPagePrinter(Handle);
WritePrinter(Handle, PChar(S), Length(S), N);
EndPagePrinter(Handle);
EndDocPrinter(Handle);
ClosePrinter(Handle);
end;

---
Е т'ва е живот!