Fórum impressora fiscal sweda #202321
20/12/2003
0
Não consigo resolver.
e para imprimir uma leitura da memoria fiscal de uma sweda
com,a:integer;
Resp:String;
Retorno:Integer;
Comando: array[0..512] of Char;
Status:array[0..512] of Char;
Extensao:LongInt;
function ECFOpen(numero:longint;tempo:longint;log:longint;mostra:longint):integer; stdcall;
external ´SWECF.DLL´ index 1;
procedure ECFClose; stdcall;
external ´SWECF.DLL´ index 2;
function ECFWrite(Comando:PChar):longint; stdcall;
external ´SWECF.DLL´ index 3;
Function ECFRead(Status:PChar;Extensao:longint):Longint;stdcall;
external ´SWECF.DLL´ index 4;
procedure TLeituraMdata.BitBtn1Click(Sender: TObject);
var
datai, dataf:string
begin
datai:=´201203´;
dataf:=´201203´;
Comando := #27+´.16(data1)(data2)}´;
EcfWrite(Comando);
ECFRead(status,512);
form1.texto.Text:=status;
end;
sendo data1 a data incial e data2 a data final
esse linha eu fiz assim
Comando := #27+´.16´+datai+dataf+´}´;
quando executo da esse erro.
[Error] Unit_Leitura_Memoria_data.pas(47): Incompatible types: ´Array´ and ´String´
como resolver?
Valeu
Dart
Dart
Curtir tópico
+ 0Posts
22/12/2003
Nigro
Gostei + 0
23/12/2003
Turbo Drive
Bom dia
Minha aplicação não trabalha com a Sweda devido na minha regiao a demanda dessa impressora ser pequena, mas vou lhe dar esse endereço entra la que os irmão la com certeza responderão facilmente.
http://www.msdnbrasil.com.br/forum/AddPost.aspx?ForumID=32
Gostei + 0
23/12/2003
Aroldo Zanela
A mensagem de erro se refere a necessidade de utilizar StrPCopy.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)