Blat - Será que ninguém tem a solução ?

[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 ?

[Jorge Adourian]

Basta salvar a tela antes e restaurar depois e pronto !!!

[alaminojunior]

Salvar e restaurar telas é o básico.

[vailton]

Uma questão: sua tela bagunça no momento do RUN ou algo o aplicativo é executado?

[Maligno]

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

[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

[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