Buna ziua,

Va rog sa ma ajutati cu informatii (poate si ceva exemple :)) privitor la utilizarea din aplicatie a portului serial.

Am o imprimanta de coduri de bare legata la COM1 si as vrea sa o controlez direct din program.

Calea simpla, pe care o folosesc acum, este sa creez un fisir text si sa dau o comanda DOS: Copy <fisier> COM1:, nu e prea elegant

Probabil ca se poate folosi MsComm dar nu stiu cum si nu stiu nici cm sa-l inglobez in aplicatia mea

Multumesc

Dan

Multumesc,

Aproape ca am inteles....

Se zice ca lucrurile bune vin in portii mici, la fel si cunostintele/informatiile :)

Oricum, cred ca am gresit si era vorba de commctl32 ?!

O documentatie mai ... lunga, gasesc undeva ?

Dan

gcComImprim='com1'  &&cu litere mici
* regleaza parametrii portului conform cu parametrii din imprimanta
RUN mode &gcComImprim 96,N,8,1
* deschide portul COM1 ca pe un fisier
gnErrFile = FOPEN(gcComImprim, 11)
* carriage return + line feed
crlf=CHR(13)+CHR(10)

IF gnErrfile<0
  MESSAGEBOX('Portul serial: '+UPPER(gcComImprim)+' nu poate fi deschis')
ELSE
 * formeaza textul fisierului de comenzi catre imprimanta seriala
 lctextPrint="linia 1 pt comanda imprimanta seriala" +crlf+;
             "linia 2 pt comanda imprimanta seriala" +crlf+;
             "..." +crlf+;
             "linia n pt comanda imprimanta seriala"
 * trimite textul pe portul serial deschis
 =FWRITE(gnErrFile,lctextPrint)  
 * inchide portul
 =FCLOSE(gnErrFile)
ENDIF