Mude sua função para retornar AnsiChar e usar a função AnsiChar, conforme
abaixo.
function AnsiToDOS(S: string): AnsiString;
begin
SetLength(Result, Length(S));
if S <> '' then
begin
CharToOem(PChar(S), PAnsiChar(Result));
end;
end;
O tipo String mapeia UnicodeString, a função que você usou é da API do Windows
e ela receber um PAnsiChar, ou seja, Char sem Unicode.
A VCL e o compilador foram atualizados para converter direto, mas em caso de
uso direto da API do Windows, você terá que verificar.
--
Andreano
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of jcpf
Sent: Thursday, September 11, 2008 9:21 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Para o Andreano - Intraweb 10 no D2009: Cannot find submit
component
Importance: High
Andreano,
Fico satisfeito que esteja funcionando.
Agora gostaria de solicitar sua ajuda no seguinte problema no D2009.
A função abaixo compila NORMALMENTE do D7 ao D2007.
A questão é: Porque no D2009 dá erro ?
function AnsiToDOS(S: string): string;
begin
SetLength(Result, Length(S));
if S <> '' then
begin
CharToOem(PChar(S), PChar(Result)); -> O ERRO OCORRE NESSA FUNÇÃO
(Nativa do Delphi) - "[DCC Error] TXALL.PAS(557): E2010 Incompatible types:
'Char' and 'AnsiChar'"
end;
end;
Como falei, compila OK do D7 ao D2007.
Grato pela sua atenção,
João Carlos
De: delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>] Em
nome de Andreano Lanusse
Enviada em: quarta-feira, 10 de setembro de 2008 19:44
Para: delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>
Assunto: RE: [delphi-br] Intraweb 10 no D2009: Cannot find submit component
O Jackson acabou de me enviar um exemplo, funciona perfeitamente.
Os testes que O Jackson estava fazendo era sobre uma versão beta.
[]'s
Andreano
From: delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
[mailto:delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
] On Behalf Of Anakin
Sent: Wednesday, September 10, 2008 5:48 PM
To: delphi-br@yahoogrupos.com.br<mailto:delphi-br%40yahoogrupos.com.br>
<mailto:delphi-br%40yahoogrupos.com.br>
Subject: Re: [delphi-br] Intraweb 10 no D2009: Cannot find submit component
Essa é para o Adriano. Cantou vitória antes da hora. Já começaram a aparecer
os bugs do D2009.
Vai com calma Adriano, easy, easy....
Joáo Carlos
2008/9/10 Jackson Gomes - Tools&Comps <[EMAIL
PROTECTED]<mailto:jackson%40toolsandcomps.com>
<mailto:jackson%40toolsandcomps.com> <mailto:jackson%40toolsandcomps.com>>
> Opa:
>
> Estou testando o D2009 com o IW 10 e minhas páginas aonde tenho frames
> estão com
> o problema do Cannot find submit component. Se eu
> tenho um Botão dentro de um frame e esse botão está associado a algum
> evento de
> Click, dá o erro. O problema dá em toda parte da
> aplicação.
>
> Alguém mais? Alguém conseguiu uma solução pra isso ?
>
> --
> Jackson Gomes
> Tools&Comps - Controle de Usuários para Desenvolvedores CodeGear
> Web Site: http://www.toolsandcomps.com
> Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
> e-mail: [EMAIL PROTECTED]<mailto:jackson%40toolsandcomps.com>
> <mailto:jackson%40toolsandcomps.com>
<mailto:jackson%40toolsandcomps.com> <jackson%40toolsandcomps.com>
> Fone: 27 3389 1138 - 8811 0324
> ----------------------------------------------------------
> Devhost - Webhost para desenvolvedores Delphi
> http://www.devhost.com.br
> [EMAIL PROTECTED]<mailto:devhost%40devhost.com.br>
> <mailto:devhost%40devhost.com.br>
<mailto:devhost%40devhost.com.br> <devhost%40devhost.com.br>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
CONFIDENTIALITY NOTICE: This email message is for the sole use of the
intended recipient(s)
and may contain confidential and privileged information. Any unauthorized
review, use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please
contact the sender by reply email and destroy all copies of the original
message.
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.169 / Virus Database: 270.6.20/1666 - Release Date: 11/09/2008
07:03
[As partes desta mensagem que não continham texto foram removidas]
CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended
recipient(s)
and may contain confidential and privileged information. Any unauthorized
review, use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please
contact the sender by reply email and destroy all copies of the original
message.
[As partes desta mensagem que não continham texto foram removidas]
