em delphi 2010 como exportar uma tabela para excel
preciso de uma rotina que exporte os dados de uma tabela para uma planilha do excel, no delphi7 tenho esta rotina mas não funciona no delphi 2010, favor quem tiver me ajudar, tambem preciso de uma rotina que pegue o ip da maquina local que funcione no delphi 2010, tambem tenho uma que funcionava no delphi7 que não funciona noi 2010.
atenciosamente
edson garcia de melo
atenciosamente
edson garcia de melo
Edson Melo
Curtidas 0
Respostas
Gustavo Bretas
14/12/2011
Edson, pq não posta a rotina que não esta funcionando? Talvez uma pequena adequação possa resolver o problema!
Fico no aguardo!
Fico no aguardo!
GOSTEI 0
Edson Melo
14/12/2011
estou precisando mais urgente desta rotina abaixo funcionando, ela pega o ip da maquina ,
para poder registrar no sistema, em uma tabela do banco de dados no delphi 7 funciona que
e uma beleza , mas no 2010 não
function GetIP:string;
//--> Declare a Winsock na clausula uses da unit
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Name:string;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
begin
Result := Format(%d.%d.%d.%d,
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;
Linha que da o erro e esta
Gethostname(PChar(Name), 255);
se que o delphi 2010 mudou a forma da string mas não consigo
usar a nova formula ainda , sei que o erro refere-se a pchar
quantoo a outra que exporta a tabela pro excel depois eu envio
atenciosamente
edson garcia de melo
para poder registrar no sistema, em uma tabela do banco de dados no delphi 7 funciona que
e uma beleza , mas no 2010 não
function GetIP:string;
//--> Declare a Winsock na clausula uses da unit
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Name:string;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
begin
Result := Format(%d.%d.%d.%d,
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;
Linha que da o erro e esta
Gethostname(PChar(Name), 255);
se que o delphi 2010 mudou a forma da string mas não consigo
usar a nova formula ainda , sei que o erro refere-se a pchar
quantoo a outra que exporta a tabela pro excel depois eu envio
atenciosamente
edson garcia de melo
GOSTEI 0
Edson Melo
14/12/2011
ola pessoal quantoa a rotina de exportar o bd para o excel ja resolvo so faltava declarar no uses
GOSTEI 0
Edson Melo
14/12/2011
faltava declara no uses ComObj
quando fiz isso funcionou
quando fiz isso funcionou
GOSTEI 0