Página 1 de 1
Blat - Será que ninguém tem a solução ?
Enviado: 17 Mar 2006 18:34
por alaminojunior
Olá caros amigos,
desculpem a insistencia, mas será que alguem teria a solução para o uso do Blat ou SmtpSend.
O problema é o seguinte:
toda vez que chamo o Blat ou SmtpSend a tela bagunça.
Uso Clipper 5.3b, Llibg, Blinker 7 modo Extendido numa maquina com Win2000 ou XP (Que é quase a mesma ...)
O que fazer minha gente ?
Enviado: 18 Mar 2006 00:27
por Jorge Adourian
Basta salvar a tela antes e restaurar depois e pronto !!!
Enviado: 18 Mar 2006 18:50
por alaminojunior
Salvar e restaurar telas é o básico.
Enviado: 18 Mar 2006 19:37
por vailton
Uma questão: sua tela bagunça no momento do RUN ou algo o aplicativo é executado?
Re: Blat - Será que ninguém tem a solução ?
Enviado: 18 Mar 2006 19:37
por Maligno
alaminojunior escreveu:
toda vez que chamo o Blat ou SmtpSend a tela bagunça.
Uso Clipper 5.3b, Llibg, Blinker 7 modo Extendido numa maquina com Win2000 ou XP (Que é quase a mesma ...)
Você não foi muito claro (nesta mensagem, pelo menos) sobre como está ficando sua tela. Mas vou dar um palpite: force a comutação de tela para o modo gráfico e em seguida, para o modo 80x25.
Tenho quase certeza de que isso resolverá seu problema, apesar de saber apenas que sua tela fica "bagunçada".
Aliás, há algum tempo alguém postou aqui uma rotina que faz exatamente isso. Mas a intenção era forçar a janela DOS para tela cheia. Converta o UU abaixo. Ele contém o OBJ da função que fiz pra isso. Inclua-o no seu script do BLinker. No programa, apenas execute WinFullScr().
Se não puder converter o UU abaixo, me peça o OBJ, que lhe enviarei assim que puder.
[]'s
Maligno
http://www.buzinello.com/prg
Código: Selecionar todos
begin 644 wfullscr.obj
M@`P`"G=F=6QL<V-R+F-GB!\````;5$,X-B!";W)L86YD(%1U<F)O($,K*R`S
M+C`PD8@2``#IJULP,PIW9G5L;'-C<BYC!X@C``#I("M''AM<8VQI<'!E<EQI
M;F-L=61E7&5X=&5N9"YA<&G*B",``.D@*T<>&UQC;&EP<&5R7&EN8VQU9&5<
M8VQI<&1E9G,N:-J(`P``Z8R(!0``Z@$,?)8P```-5T953$Q30U)?5$585`1#
M3T1%!5]$051!!$1!5$$$7T)34P-"4U,&1$=23U503Y@'`"@4``(#`1^8!P!(
M```$!0$/F`<`2```!@<!"YH&``C_`O\#58P(``5?7W)E=`!>D!$```$*5TE.
M1E5,3%-#4@```$N@&``!``!5B^RX!@#-$+@#`,T0F@````!=RX:<!0#,#E8!
<+H@3``#H``IW9G5L;'-C<BYCJULP,P>*`@``=```
`
end
Enviado: 19 Mar 2006 08:17
por Dudu_XBase
Bom dia.
Teste a Solução do Maligno se não funcionar poste para nós como vc esta chamando esse programa externo um trecho do seu código fonte ok.
POST RE-EDITADO PARA PRESERVAR AS REGRAS DO FÓRUM
Enviado: 19 Mar 2006 13:55
por alaminojunior
Olá meus caros,
obtive exito com a idéia do Maligno, em mudar o modo de exibição.
Meu sistema roda em modo gráfico, então antes de chamar o prog. externo (NodosImp ou PrWin) troco para modo texto, desta forma:
rotina:= "Nodosimp lista.tmp 96 mar0"
cls // Tem que limpar a tela antes, senão não vai !
Gmode(3) // Troca para modo texto
SetMode(25,80)
SwpRunCmd(rotina)
Gmode(18) // Retorna para modo gráfico
Não tem como evitar a piscada da tela, mas, PROBLEMA RESOLVIDO !!!
Obrigado a todos
) :* :xau