Re: [delphi-br] delphi com sqlserver
Use a paleta de componentes ADO que vem com o proprio Delphi. É barbada fazer isto. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Francisco To: forum delphi Sent: Tuesday, January 26, 2010 4:56 PM Subject: [delphi-br] delphi com sqlserver como conectar delphi ao sql server alguém poderia dar essa ajudazinha ou compartilhar de um componente que faça a conexão uso delphi 7 e sqlserver 2000 -- ,a_a {/ ` ´ \_ {\ ,_oo) Francisco sena do O' Filho sen...@gmail.com sen...@hotmail.com . {/ _^_,___;___; .=. { / \___ ) ) )* ) | | | | | | | | (.=.`\ {/ / =; ~~ | | | /\ | | | \ `\ { / ( \ / \ | | / \ | | \ `. `\ ) ) | | ( ) | | \ \ \ \ | | \ / | | \ / / / /_ _ | | | \/ | | | '= =''--- ) ) ) ) | | | | | | | | [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Problemas com acentuação Delphi e MySQL
Você precisa verificar como está o Charecter set e o Collation da Tabela e como está configurado O objeto de conexão ao banco.. sua tabela deva ta como UTF-8 Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 26 de janeiro de 2010 20:44, Ricardo Ravelli ricardorave...@gmail.comescreveu: Boa noite, Eu criei um form de Cadastro de Vendedores, utilizando do D2010 e MySQL 5.1, utilizo os componentes DbExpress para a comunicação no banco de dados. O que acontece é o seguinte: Eu cadastro o Nome de uma pessoa, por exemplo José, mas no banco de dados ele troca a letra com acento por caracteres estranhos José. O problema está no Delphi ou no MySQL? O que devo fazer para corrigir esse problema? Obrigado. Att. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] delphi com sqlserver
Adiciona o ADOConecction da paleta ADO para fazer a conexao, depois adiona ADOquery e pronto, vc pode fazer de um datamodulo que fica melhor .. espero ter ajudado ... --- Em ter, 26/1/10, Francisco sen...@gmail.com escreveu: De: Francisco sen...@gmail.com Assunto: [delphi-br] delphi com sqlserver Para: forum delphi delphi-br@yahoogrupos.com.br Data: Terça-feira, 26 de Janeiro de 2010, 19:56 como conectar delphi ao sql server alguém poderia dar essa ajudazinha ou compartilhar de um componente que faça a conexão uso delphi 7 e sqlserver 2000 -- ,a_a {/ ` ´ \_ {\ ,_oo) Francisco sena do O' Filho sen...@gmail. com sen...@hotmail. com .. {/ _^_, ___;_ __; ..=. { / \___ ) ) )* ) | | | | | | | | (.=.`\ {/ / =; ~~ | | | /\ | | | \ `\ { / ( \ / \ | | / \ | | \ `. `\ ) ) | | ( ) | | \ \ \ \ | | \ / | | \ / / / /_ _ | | | \/ | | | '= =''--- ) ) ) ) | | | | | | | | [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] conexao sql server com delphi como fazer
Grupo Delphi-BRcomo devo fazer para conectar o delphi 7 com sql server 2000 usando o zeoslib -- ,a_a {/ ` ´ \_ {\,_oo) Francisco sena do O' Filho sen...@gmail.com sen...@hotmail.com . {/ _^_,___;___; .=. { / \___ ) ) )* )| | | | | | | | (.=.`\ {// =; ~~ | | | /\ | | | \ `\ { / ( \ / \ | | / \ | | \ `. `\) ) | | ( ) | | \\\\| | \ / | | \ // / /_ _ | | | \/ | | | '= =''--- ) ) ) ) | | | | | | | | [As partes desta mensagem que não continham texto foram removidas]
Res: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010
tem tambem o detalhe do sistema operacional, se for 64 bits tambem não funciona De: Rubem Rocha rubem.ro...@dtmanaus.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 26 de Janeiro de 2010 19:50:24 Assunto: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010 Outras coisas: 1) Vc quer pegar o serial de um HD SCSI ou IDE? Essa daí só funciona pra SCSI. Do mesmo jeito q vc conseguiu essa pra SCSI, vc tb vai conseguir a função pra IDE. 2) Cadê o código dessa rotina ChangeByteOrder? Sds. De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Iran Lima Enviada em: terça-feira, 26 de janeiro de 2010 16:55 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010 Gente o que muda na função migrando para o Delphi 2010 ??? Existe AnsiWord e AnsiByte ?? hehe, to botando tudo “ANSI” function GetIdeDiskSerialNum ber : String; type TSrbIoControl = packed record HeaderLength: ULONG; Signature: Array[0..7] of Char; Timeout: ULONG; ControlCode: ULONG; ReturnCode: ULONG; Length: ULONG; end; SRB_IO_CONTROL = TSrbIoControl; PSrbIoControl = ^TSrbIoControl; TIDERegs = packed record bFeaturesReg : Byte; // especificar comandos SMART bSectorCountReg : Byte; // registro de contador de setor bSectorNumberReg : Byte; // registro de número de setores bCylLowReg : Byte; // valor de cilindro (byte mais baixo) bCylHighReg : Byte; // valor de cilindro (byte mais alto) bDriveHeadReg : Byte; // registro de drive/cabeça bCommandReg : Byte; // comando IDE bReserved : Byte; // reservado- tem que ser zero end; IDEREGS = TIDERegs; PIDERegs = ^TIDERegs; TSendCmdInParams = packed record cBufferSize : DWORD; irDriveRegs : TIDERegs; bDriveNumber : Byte; bReserved : Array[0..2] of Byte; dwReserved : Array[0..3] of DWORD; bBuffer : Array[0..0] of Byte; end; SENDCMDINPARAMS = TSendCmdInParams; PSendCmdInParams = ^TSendCmdInParams; TIdSector = packed record wGenConfig : Word; wNumCyls : Word; wReserved : Word; wNumHeads : Word; wBytesPerTrack : Word; wBytesPerSector : Word; wSectorsPerTrack : Word; wVendorUnique : Array[0..2] of Word; sSerialNumber : Array[0..19] of Char; wBufferType : Word; wBufferSize : Word; wECCSize : Word; sFirmwareRev : Array[0..7] of Char; sModelNumber : Array[0..39] of Char; wMoreVendorUnique : Word; wDoubleWordIO : Word; wCapabilities : Word; wReserved1 : Word; wPIOTiming : Word; wDMATiming : Word; wBS : Word; wNumCurrentCyls : Word; wNumCurrentHeads : Word; wNumCurrentSectorsP erTrack : Word; ulCurrentSectorCapa city : ULONG; wMultSectorStuff : Word; ulTotalAddressableS ectors : ULONG; wSingleWordDMA : Word; wMultiWordDMA : Word; bReserved : Array[0..127] of Byte; end; PIdSector = ^TIdSector; const IDE_ID_FUNCTION = $EC; IDENTIFY_BUFFER_ SIZE = 512; DFP_RECEIVE_ DRIVE_DATA = $0007c088; IOCTL_SCSI_MINIPORT = $0004d008; IOCTL_SCSI_MINIPORT _IDENTIFY = $001b0501; DataSize = sizeof(TSendCmdInPa rams)-1+IDENTIFY _BUFFER_SIZE; BufferSize = SizeOf(SRB_IO_ CONTROL)+ DataSize; W9xBufferSize = IDENTIFY_BUFFER_ SIZE+16; var hDevice : THandle; cbBytesReturned : DWORD; pInData : PSendCmdInParams; pOutData : Pointer; // PSendCmdOutParams Buffer : Array[0..BufferSize -1] of Byte; srbControl : TSrbIoControl absolute Buffer; begin Result := ''; FillChar(Buffer, BufferSize, #0); if Win32Platform= VER_PLATFORM_ WIN32_NT then // Windows NT, Windows 2000, Windows XP begin // recuperar handle da porta SCSI hDevice := CreateFile(PChar( '\\.\' + GetSysDrive) , // Nota: '\\.\C:' precisa de privilégios administrativos GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); if hDevice=INVALID_ HANDLE_VALUE then Exit; try srbControl.HeaderLe ngth := SizeOf(SRB_IO_ CONTROL); System.Move( 'SCSIDISK' ,srbControl. Signature, 8); srbControl.Timeout := 2; srbControl.Length := DataSize; srbControl.ControlC ode := IOCTL_SCSI_MINIPORT _IDENTIFY; pInData := PSendCmdInParams( PChar(@Buffer) +SizeOf(SRB_ IO_CONTROL) ); pOutData := pInData; with pInData^ do begin cBufferSize := IDENTIFY_BUFFER_ SIZE; bDriveNumber := 0; with irDriveRegs do begin bFeaturesReg := 0; bSectorCountReg := 1; bSectorNumberReg := 1; bCylLowReg := 0; bCylHighReg := 0; bDriveHeadReg := $A0; bCommandReg := IDE_ID_FUNCTION; end; end; if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT , @Buffer, BufferSize, @Buffer, BufferSize, cbBytesReturned, nil ) then Exit; finally CloseHandle( hDevice); end; end else begin // Windows 95 OSR2, Windows 98, Windows ME hDevice := CreateFile( '\\.\SMARTVSD' , 0, 0, nil, CREATE_NEW, 0, 0 ); if hDevice=INVALID_ HANDLE_VALUE then Exit; try pInData := PSendCmdInParams( @Buffer); pOutData := @pInData^.bBuffer; with pInData^ do begin cBufferSize := IDENTIFY_BUFFER_ SIZE; bDriveNumber := 0; with irDriveRegs do begin bFeaturesReg := 0;
[delphi-br] conexao sql server com delphi como fazer
Grupo Delphi-BRola Colegas, como devo fazer para conectar o delphi 7 com sql server 2000 usando o zeoslib alguem pode ajudar com um passo a passo agradeço desde já -- ,a_a {/ ` ´ \_ {\,_oo) Francisco sena do O' Filho sen...@gmail.com sen...@hotmail.com . {/ _^_,___;___; .=. { / \___ ) ) )* )| | | | | | | | (.=.`\ {// =; ~~ | | | /\ | | | \ `\ { / ( \ / \ | | / \ | | \ `. `\) ) | | ( ) | | \\\\| | \ / | | \ // / /_ _ | | | \/ | | | '= =''--- ) ) ) ) | | | | | | | | [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Informação IMPORTANTE...
Pessoal, vou deixar esta informação de um erro que pode aparecer. Meus computadores não tem mais aquele drive chamado Disquete :) Nos computadores de alguns clientes ainda tem, mas não usam :) Pois, eu tenho uma rotina que localiza todos os drives existentes no computador. Em um cliente meu, na BIOS, informa que o drive está instalado, mas na realidade ele não existe no computador, o Windows MOSTRA a unidade, mas ela não existe. Esta function da API: GetDriveType Quando utilizada num computador que na BIOS diz que está instado e não está, gera uma tela de erro Dizendo para inserir o disco em \Device\Harddisk2\DR2 (Windows 7, não sei nas outras versões) Portanto, se algum cliente reclamar vocês já sabem o que fazer, manda remover da BIOS, o drive. Eu levei muito tempo porque aqui nos meus computadores não tem drives de disquetes e não tava sendo informado na BIOS que tinha. Portanto, quem programa usando esta function da API ou outra que verifica se tem disco no drive, etc... é bom deixar esta informação lá no topo da unit para um dia acontecer e qdo for examinar o código ficar fácil. blz
Res: RES: [delphi-br] Trabalhar com JPGE E TIFF
Boa tarde; Voce pode utilizar uma biblioteca chamada ImageLib, tem um componente de visualização de imagens assim como um TImage que suporta visualizar praticamente todos os tipos comuns de imagens, fora isto tem rotinas para manipulação assim como voce precisa (tiff e várias páginas). Tive alguns problemas ao usar estes recursos e por motivos de tempo escasso, acabei fazendo em jpg, então não cheguei a explorar pra ver se é problema do componente ou falha minha. Atenc; Elazar Dornelles Ceza. De: Felipe Yahoo nunesfel...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 19 de Janeiro de 2010 8:35:02 Assunto: RES: [delphi-br] Trabalhar com JPGE E TIFF Bom dia, Cara passei a noite revirando esse site que vc me passou e não encontrei coisas do tipo, vc tem noção mais ou menos do nome do algoritimo? Obrigado De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de EmbarcaDelphi Enviada em: terça-feira, 19 de janeiro de 2010 00:12 Para: delphi...@yahoogrup os.com.br Assunto: Re: [delphi-br] Trabalhar com JPGE E TIFF Esse site vai quebrar teu galho e te dar mais visões para o que deseja :) http://www.efg2. com/Lab/Library/ Delphi/Graphics/ Algorithms. htm Diz aí se serviu.. . Em 18/01/2010 22:22, Felipe Yahoo escreveu: Boa Noite senhores, estou com um problema e não consigo solucionar. Preciso desenvolver um aplicativo que pega uma ou mais imagens jpg e transforme em um arquivo TIFF com várias paginas. Não se se conseguir ser claro, mas um arquivo de imagem TIFF consegue armazenar varias páginas no mesmo arquivo. E essas paginas seria minhas imagens jpg. Alguem por gentileza e por favor consegue me ajudar? Obrigado [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] FormatDateTime
Sempre que vou montar um sql na unha, uso 'dd.mm.' e nunca tive problemas, na verdade usso este formato para inclusive fazer selects/insert/updates no IBExperto ou IBConsole... Atenc; Elazar Dornelles Ceza De: Evaldo evaldoave...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 19 de Janeiro de 2010 8:36:22 Assunto: Re: [delphi-br] FormatDateTime Tentei assim também mas o da o mesmo problema. _ _ __ From: CRM Desenvolvimentos crmdesenvolvimentos @gmail.com To: delphi...@yahoogrup os.com.br Sent: Mon, January 18, 2010 3:51:42 PM Subject: Re: [delphi-br] FormatDateTime Porque não usa assim: *FormatDateTime( 'mm/dd/' ,date);* é mais simples. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] conexao sql server com delphi como fazer
Francisco, Grupo Delphi-BRola Acho que tô no grupo errado... teeessooo... . Agora sério: Insira um ZConnection no seu form, configura as propriedades da seguinte forma: Protocol= 'mssql' HostName=Nome do servidor SQL Catalog= Nome do Banco de Dados Database =Idem User =Nome do Usuário Password =Senha do Usuário Certifique-se de que a dll ntwdblib.dll está na pasta do seu aplicativo e seja feliz. Espero ter sido útil? -- []’s. Evandro Siqueira Programador de Sistemas L’essentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel Francisco escreveu: Grupo Delphi-BRola Colegas, como devo fazer para conectar o delphi 7 com sql server 2000 usando o zeoslib alguem pode ajudar com um passo a passo agradeço desde já
Re: [delphi-br] Informação IMPORTANTE...
Para quem usa essa função é muito bem observado. Meus parabéns. 2010/1/27 EmbarcaDelphi embarcadel...@yahoo.com.br Pessoal, vou deixar esta informação de um erro que pode aparecer. Meus computadores não tem mais aquele drive chamado Disquete :) Nos computadores de alguns clientes ainda tem, mas não usam :) Pois, eu tenho uma rotina que localiza todos os drives existentes no computador. Em um cliente meu, na BIOS, informa que o drive está instalado, mas na realidade ele não existe no computador, o Windows MOSTRA a unidade, mas ela não existe. Esta function da API: GetDriveType Quando utilizada num computador que na BIOS diz que está instado e não está, gera uma tela de erro Dizendo para inserir o disco em \Device\Harddisk2\DR2 (Windows 7, não sei nas outras versões) Portanto, se algum cliente reclamar vocês já sabem o que fazer, manda remover da BIOS, o drive. Eu levei muito tempo porque aqui nos meus computadores não tem drives de disquetes e não tava sendo informado na BIOS que tinha. Portanto, quem programa usando esta function da API ou outra que verifica se tem disco no drive, etc... é bom deixar esta informação lá no topo da unit para um dia acontecer e qdo for examinar o código ficar fácil. blz -- []'s Emerson Moreno Desenvolvedor Delphi O grande sábio aprende por ensinar! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] FormatDateTime
QuotedStr( FormatDateTime( mm/dd/, DATA ) ); _ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Elazar Dornelles Ceza Enviada em: quarta-feira, 27 de janeiro de 2010 08:28 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] FormatDateTime Sempre que vou montar um sql na unha, uso 'dd.mm.' e nunca tive problemas, na verdade usso este formato para inclusive fazer selects/insert/updates no IBExperto ou IBConsole... Atenc; Elazar Dornelles Ceza De: Evaldo evaldoavelar@ mailto:evaldoavelar%40yahoo.com.br yahoo.com.br Para: delphi...@yahoogrup mailto:delphi-br%40yahoogrupos.com.br os.com.br Enviadas: Terça-feira, 19 de Janeiro de 2010 8:36:22 Assunto: Re: [delphi-br] FormatDateTime Tentei assim também mas o da o mesmo problema. _ _ __ From: CRM Desenvolvimentos crmdesenvolvimentos @gmail.com To: delphi...@yahoogrup os.com.br Sent: Mon, January 18, 2010 3:51:42 PM Subject: Re: [delphi-br] FormatDateTime Porque não usa assim: *FormatDateTime( 'mm/dd/' ,date);* é mais simples. __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca http://br.maisbuscados.yahoo.com dos.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dicas
SharpE (http://delphi.about.com/b/2010/01/25/sharpe-open-source-delphi-windows-shell-replacement.htm?nl=1) - Incremento ao Shell do Windows, com código fonte aberto e escrito em Delphi. Extraia Links de páginas HTML - http://delphi.about.com/b/2010/01/26/extract-links-from-a-html-page-using-delphi-get-href-attribute-from-the-a-tags.htm Salve páginas web como HTML ou MHT - http://delphi.about.com/od/twebbrowser/a/save-as-mht.htm Sds. _ Com o Windows 7 nenhum arquivo vai se esconder de você. Clique para conhecer ! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dicas
Boa a dica do SharpE, obrigado. Marcos Douglas 2010/1/27 Rubem Nascimento da Rocha djpardalro...@hotmail.com SharpE ( http://delphi.about.com/b/2010/01/25/sharpe-open-source-delphi-windows-shell-replacement.htm?nl=1) - Incremento ao Shell do Windows, com código fonte aberto e escrito em Delphi. Extraia Links de páginas HTML - http://delphi.about.com/b/2010/01/26/extract-links-from-a-html-page-using-delphi-get-href-attribute-from-the-a-tags.htm Salve páginas web como HTML ou MHT - http://delphi.about.com/od/twebbrowser/a/save-as-mht.htm Sds. _ Com o Windows 7 nenhum arquivo vai se esconder de você. Clique para conhecer ! http://www.microsoft.com/brasil/windows7/default.html?WT.mc_id=1539 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como Instalar a JEDI
Ola Amigos bom dia !!! gostaria da ajuda de vcs em como instalar a JEDI gostaria de saber de vcs se tem algum segredo para se Instalar o JEDI no delphi 7 e 2010 pois instalo a ultima versao que baixei no source forge mais nao aparece a barra de componente no delphi ? precisa fazer alguma coisa pra ela aparecer?
Res: [delphi-br] Importar dados do arquivo .dat para sql
Voce devera primeiro exportar os dados para depois carregar os mesmos. Marcos Silva Belem-PA (91)81757652 De: Heraldo Andrade heraldo_andr...@yahoo.com.br Para: Grupo Delphi delphi-br@yahoogrupos.com.br Cc: Moderador forum modera...@delphi-br.org Enviadas: Terça-feira, 26 de Janeiro de 2010 17:20:14 Assunto: [delphi-br] Importar dados do arquivo .dat para sql Caros colegas, nao sei se estou fazendo a pergunta no lugar certo, mas gostaria de saber se alguem sabe como eu transfiro arquivos .dat feito em cobol, para sql, descupem caso perguntei no lugar errado. _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br..maisbusc ados.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] delphi com sqlserver
Voce deve usar o BDE ou ADO. No BDE crie um alias do tipo SQL Server Marcos Silva Belem-PA (91)81757652 De: Francisco sen...@gmail.com Para: forum delphi delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 26 de Janeiro de 2010 16:56:22 Assunto: [delphi-br] delphi com sqlserver como conectar delphi ao sql server alguém poderia dar essa ajudazinha ou compartilhar de um componente que faça a conexão uso delphi 7 e sqlserver 2000 -- ,a_a {/ ` ´ \_ {\,_oo) Francisco sena do O' Filho sen...@gmail. com sen...@hotmail. com . {/ _^_, ___;_ __; .=. { / \___ ) ) )* )| | | | | | | | (.=.`\ {// =; ~~ | | | /\ | | | \ `\ { / ( \ / \ | | / \ | | \ `. `\) ) | | ( ) | | \\\\| | \ / | | \ // / /_ _ | | | \/ | | | '= =''--- ) ) ) ) | | | | | | | | [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FormatDateTime
*Realmente assim funciona e fica mais fácil, nao usava assim, usava no formato 'mm/dd/' valeu pela dica.* 2010/1/27 Elazar Dornelles Ceza elazar...@yahoo.com.br Sempre que vou montar um sql na unha, uso 'dd.mm.' e nunca tive problemas, na verdade usso este formato para inclusive fazer selects/insert/updates no IBExperto ou IBConsole... Atenc; Elazar Dornelles Ceza De: Evaldo evaldoave...@yahoo.com.br evaldoavelar%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 19 de Janeiro de 2010 8:36:22 Assunto: Re: [delphi-br] FormatDateTime Tentei assim também mas o da o mesmo problema. _ _ __ From: CRM Desenvolvimentos crmdesenvolvimentos @gmail.com To: delphi...@yahoogrup os.com.br Sent: Mon, January 18, 2010 3:51:42 PM Subject: Re: [delphi-br] FormatDateTime Porque não usa assim: *FormatDateTime( 'mm/dd/' ,date);* é mais simples. __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ScreenSaver em Delphi
Olá Pessoal, Estou querendo fazer um screen saver para o site http://geekcats.com e descobri que o screensaver nada mais é do que um executável com a extensão de SCR. Até ai tudo bem. O que eu queria saber é como colocar uma amostra do screensaver dentro daquele monitorzinho que aparece. Por exemplo, se você seleciona Caixa Florescente 3D aparece a animação dentro. E também como saber que o usuário solicitou senha e como ativar a senha do windows. Obrigado Leandro Favero [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problemas com acentuação Delphi e MySQL
Eduardo, bom dia. Como eu faço para fazer a alteração das tabelas para esse formato? Eu uso o DbExpress para fazer a conexão, tem alguma alteração que deve ser feito na conexão também? Obrigado. Att. Ricardo Ravelli -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: terça-feira, 26 de janeiro de 2010 18:50 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas com acentuação Delphi e MySQL Você precisa verificar como está o Charecter set e o Collation da Tabela e como está configurado O objeto de conexão ao banco.. sua tabela deva ta como UTF-8 Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 26 de janeiro de 2010 20:44, Ricardo Ravelli ricardorave...@gmail.comescreveu: Boa noite, Eu criei um form de Cadastro de Vendedores, utilizando do D2010 e MySQL 5.1, utilizo os componentes DbExpress para a comunicação no banco de dados. O que acontece é o seguinte: Eu cadastro o Nome de uma pessoa, por exemplo José, mas no banco de dados ele troca a letra com acento por caracteres estranhos José. O problema está no Delphi ou no MySQL? O que devo fazer para corrigir esse problema? Obrigado. Att. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Problemas com acentuação Delphi e MySQL
Você pode usar o EMS SQL Manager for MySQL Freeware http://sqlmanager.net/en/products/mysql/manager/download nele você vai conseguir facilmente mudar as propriedades da tabela e do banco. No DBExpress, já não sei te informar pois não uso o mesmo. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 27 de janeiro de 2010 12:56, Ricardo Ravelli ricardorave...@gmail.comescreveu: Eduardo, bom dia. Como eu faço para fazer a alteração das tabelas para esse formato? Eu uso o DbExpress para fazer a conexão, tem alguma alteração que deve ser feito na conexão também? Obrigado. Att. Ricardo Ravelli -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: terça-feira, 26 de janeiro de 2010 18:50 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas com acentuação Delphi e MySQL Você precisa verificar como está o Charecter set e o Collation da Tabela e como está configurado O objeto de conexão ao banco.. sua tabela deva ta como UTF-8 Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... Em 26 de janeiro de 2010 20:44, Ricardo Ravelli ricardorave...@gmail.com ricardoravelli%40gmail.comescreveu: Boa noite, Eu criei um form de Cadastro de Vendedores, utilizando do D2010 e MySQL 5.1, utilizo os componentes DbExpress para a comunicação no banco de dados. O que acontece é o seguinte: Eu cadastro o Nome de uma pessoa, por exemplo José, mas no banco de dados ele troca a letra com acento por caracteres estranhos José. O problema está no Delphi ou no MySQL? O que devo fazer para corrigir esse problema? Obrigado. Att. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Alterar um atalho do menu iniciar
Tenho um atalho no menu iniciar que aponta para um arquivo executavel, ja consegui recria-lo normalmente, mas a questão é que ele perde o ícone original e gostaria de mantelo...alguem sabe como alterar somente a propriedade destino de um icone sem apagá-lo e recria-lo novamente???, ou seja, entrar no fonte do icone e alterar somente o valor de destino...algume sabe???
Re: [delphi-br] Informação IMPORTANTE.. .
Na realidade, pesquisando aqui, notei que não se trata apenas do disquete, mas qualquer unidade que esteja com defeito ou inexistente como as novas unidades SD. No caso do driver estiver defeituoso, mas está instalado no hardware do computador. Em 27/01/2010 01:39, EmbarcaDelphi escreveu: Pessoal, vou deixar esta informação de um erro que pode aparecer. Meus computadores não tem mais aquele drive chamado Disquete :) Nos computadores de alguns clientes ainda tem, mas não usam :) Pois, eu tenho uma rotina que localiza todos os drives existentes no computador. Em um cliente meu, na BIOS, informa que o drive está instalado, mas na realidade ele não existe no computador, o Windows MOSTRA a unidade, mas ela não existe. Esta function da API: GetDriveType Quando utilizada num computador que na BIOS diz que está instado e não está, gera uma tela de erro Dizendo para inserir o disco em \Device\Harddisk2\DR2 (Windows 7, não sei nas outras versões) Portanto, se algum cliente reclamar vocês já sabem o que fazer, manda remover da BIOS, o drive. Eu levei muito tempo porque aqui nos meus computadores não tem drives de disquetes e não tava sendo informado na BIOS que tinha. Portanto, quem programa usando esta function da API ou outra que verifica se tem disco no drive, etc... é bom deixar esta informação lá no topo da unit para um dia acontecer e qdo for examinar o código ficar fácil. blz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como Instalar a JEDI
A instalação dele é automática, tem um instalador próprio: INSTALL.BAT Primeiro vá na pasta JCL e dê dois cliques no .BAT Depois vá na pasta JVCL e dê dois cliques no .BAT O resto você vai ver na tela o que fazer... blz Em 27/01/2010 10:29, sudscript escreveu: Ola Amigos bom dia !!! gostaria da ajuda de vcs em como instalar a JEDI gostaria de saber de vcs se tem algum segredo para se Instalar o JEDI no delphi 7 e 2010 pois instalo a ultima versao que baixei no source forge mais nao aparece a barra de componente no delphi ? precisa fazer alguma coisa pra ela aparecer? [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Importar dados do arquivo .dat para sql
Tudo bem marcos, mas como eu faço isto, eu nao entendo nada de cobol ??? --- Em qua, 27/1/10, MARCOS SILVA mossoc...@yahoo.com.br escreveu: De: MARCOS SILVA mossoc...@yahoo.com.br Assunto: Res: [delphi-br] Importar dados do arquivo .dat para sql Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 27 de Janeiro de 2010, 10:07 Voce devera primeiro exportar os dados para depois carregar os mesmos. Marcos Silva Belem-PA Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Componente para Agenda
Ai cara, tambem estou a procura de um componente bom para agenda, ainda mais que eu preciso montar agenda de um consultório. O problema dos componentes da paleta JvTimeFramework é o uso. Não consigo entender como ele é usado. Já cheguei a montar uma com um StringGrid, mas deu trabalho Se vc achar algo me avisa, por favor. Falowww Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 26 de Janeiro de 2010 14:03:20 Assunto: RE: [delphi-br] Componente para Agenda Mais especificamente a paleta JvTimeFramework. Atte, Ricardo. 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor compreendida. 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em ter, 26/1/10, Rubem Nascimento da Rocha djpardalrocha@ hotmail.com escreveu: De: Rubem Nascimento da Rocha djpardalrocha@ hotmail.com Assunto: RE: [delphi-br] Componente para Agenda Para: delphi-br delphi...@yahoogrup os.com.br Data: Terça-feira, 26 de Janeiro de 2010, 12:14 Já olhou os componentes que tem na JVCL (JEDI Visual Component Library)? Sds. To: delphi...@yahoogrup os.com.br From: gyncow...@yahoo. com.br Date: Tue, 26 Jan 2010 05:57:18 -0800 Subject: [delphi-br] Componente para Agenda Bom dia a todos, preciso desenvolver um software de agenda e gostaria de sugestões quanto a componentes para exibir os compromissos. Já olhei os componentes ExpressScheduller, mas prefiria que fossem componentes open sources ou free. Se tiverem alguma indicação agradeço desde já. Atenciosamente, André Luis da Silveira _ _ _ _ _ _ Com o Windows 7 nenhum arquivo vai se esconder de você. Clique para conhecer ! http://www.microsof t.com/brasil/ windows7/ default.html? WT.mc_id= 1539 [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ferramentas para AcuCobol [OFF TOPIC]
Sei que o conteudo não é pertinente mas souberem de alguem que precisa de ferramentas para AcuCobol, ai vai... Vendo ferramentas para AcuCobol - IFXDB - Acesso nativo a banco de dados (Oracle, SQLServer, PostgreSQL, MySQL e Firebird) sem necessidade de alteração nos fontes Cobol - IFX.OCX - Controle Activex para acesso a qualquer base de dados via ODBC - SRB - Gerador de relatórios - IFXPLAYER - Player para a exibição automatica de videos, imagens e dados - IFXMK - conversão de arquivos Vision para banco de dados - IFX - Console para acesso, monitoramento, backup/restore, exportação/importação de dados - SBI - Ferramenta para B.I. Os melhores preços do mercado sds Vagner SNT | IFX [DB, MK, DBS, PLAYER] :: SRB :: SCR :: SBI web :: http://snt.50webs.org msn :: vagner.g...@hotmail.com skype :: vagner.gois
[delphi-br] Oferta de emprego
Alguem na lista postou um email com vaga de emprego em Joinvile, estou interessado perdi o email com os dados da empresa gostaria de saber de novo qual empresa é, e para qual email eu mando meu curriculum. João Roberto Sou de São José do Rio Preto - SP jrsilvas...@yahoo.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] TEF no Linux com Lazarus
Por favor não deixem de ver - [http://www.lazarus.freepascal.com.br/viewtopic.php?f=11t=505start=0]; Abraços, -- Silvio Clécio -- Contato - silvioproggmail/googlewave Blog estilo mural - silvioclecio.blogspot.com Twitter - twitter.com/silvioprog -- programmer ObjectPascal - silvioprog.blogspot.com -- Duas coisas instruem o homem, qualquer que seja a sua natureza: o instinto e a experiência. Blaise Pascal.
[delphi-br] Re: Oferta de emprego
http://br.groups.yahoo.com/group/delphi-br/message/207681 Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, jrsilvas...@... escreveu Alguem na lista postou um email com vaga de emprego em Joinvile, estou interessado perdi o email com os dados da empresa gostaria de saber de novo qual empresa é, e para qual email eu mando meu curriculum. João Roberto Sou de São José do Rio Preto - SP jrsilvas...@...
Re: [delphi-br] Oferta de emprego
Copiei e colei. *VAGA PARA TRABALHAR EM JOINVILLE - SC* Estamos contratando programadores delphi (junior ou pleno). Candidato precisa ser esforçado, autodidata e amante do Delphi. Interessados enviar Curriculum com pretensão salarial e disponibilidade para início. Nossa empresa: www.insightsystem. com.br Att, Jhosef Marks de Carvalho Blog: http://www.jhosefma rks.com.br --- Em qua, 27/1/10, jrsilvas...@yahoo.com.br jrsilvas...@yahoo.com.br escreveu: De: jrsilvas...@yahoo.com.br jrsilvas...@yahoo.com.br Assunto: [delphi-br] Oferta de emprego Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 27 de Janeiro de 2010, 10:03 Alguem na lista postou um email com vaga de emprego em Joinvile, estou interessado perdi o email com os dados da empresa gostaria de saber de novo qual empresa é, e para qual email eu mando meu curriculum. João Roberto Sou de São José do Rio Preto - SP jrsilvasjrp@ yahoo.com. br [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] [OFF-TOPIC] TEF no Linux com Lazarus
Em 27/01/2010 14:31, silvioprog escreveu: Por favor não deixem de ver - [http://www.lazarus.freepascal.com.br/viewtopic.php?f=11t=505start=0 http://www.lazarus.freepascal.com.br/viewtopic.php?f=11t=505start=0]; Abraços, -- Silvio Clécio Corrigindo o link que o Silvio passou... http://lazarus.freepascal.com.br/viewtopic.php?f=11t=505 http://lazarus.freepascal.com.br/viewtopic.php?f=11t=505 -- --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal willianjhon...@yahoo.com.br --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.2 Kernel 2.6.27.8-i686-core2 --- [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Importar dados do arquivo .dat para sql
qual é o COBOL que está usando ? Stainle --- Em qua, 27/1/10, Heraldo Andrade heraldo_andr...@yahoo.com.br escreveu: De: Heraldo Andrade heraldo_andr...@yahoo.com.br Assunto: Re: Res: [delphi-br] Importar dados do arquivo .dat para sql Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 27 de Janeiro de 2010, 14:30 Tudo bem marcos, mas como eu faço isto, eu nao entendo nada de cobol ??? --- Em qua, 27/1/10, MARCOS SILVA mossoc...@yahoo. com.br escreveu: De: MARCOS SILVA mossoc...@yahoo. com.br Assunto: Res: [delphi-br] Importar dados do arquivo .dat para sql Para: delphi...@yahoogrup os.com.br Data: Quarta-feira, 27 de Janeiro de 2010, 10:07 Voce devera primeiro exportar os dados para depois carregar os mesmos. Marcos Silva Belem-PA _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010
To querendo migrar pro delphi 2010, mas até agora não consegui fazer a função funcionar Peguei a função no link : http://www.planetadelphi.com.br/dica/6585/Descobrir%20serial%20do%20hd Se alguém tiver uma função que retorne o serial físico do HD ou da BIOS , que funcione no D2010 e puder me passar ficarei grato.[ Iran De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Enviada em: terça-feira, 26 de janeiro de 2010 19:57 Para: delphi-br@yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010 tem tambem o detalhe do sistema operacional, se for 64 bits tambem não funciona De: Rubem Rocha rubem.ro...@dtmanaus.com.br mailto:rubem.rocha%40dtmanaus.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 26 de Janeiro de 2010 19:50:24 Assunto: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010 Outras coisas: 1) Vc quer pegar o serial de um HD SCSI ou IDE? Essa daí só funciona pra SCSI. Do mesmo jeito q vc conseguiu essa pra SCSI, vc tb vai conseguir a função pra IDE. 2) Cadê o código dessa rotina ChangeByteOrder? Sds. De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Iran Lima Enviada em: terça-feira, 26 de janeiro de 2010 16:55 Para: delphi...@yahoogrup os.com.br Assunto: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010 Gente o que muda na função migrando para o Delphi 2010 ??? Existe AnsiWord e AnsiByte ?? hehe, to botando tudo “ANSI” function GetIdeDiskSerialNum ber : String; type TSrbIoControl = packed record HeaderLength: ULONG; Signature: Array[0..7] of Char; Timeout: ULONG; ControlCode: ULONG; ReturnCode: ULONG; Length: ULONG; end; SRB_IO_CONTROL = TSrbIoControl; PSrbIoControl = ^TSrbIoControl; TIDERegs = packed record bFeaturesReg : Byte; // especificar comandos SMART bSectorCountReg : Byte; // registro de contador de setor bSectorNumberReg : Byte; // registro de número de setores bCylLowReg : Byte; // valor de cilindro (byte mais baixo) bCylHighReg : Byte; // valor de cilindro (byte mais alto) bDriveHeadReg : Byte; // registro de drive/cabeça bCommandReg : Byte; // comando IDE bReserved : Byte; // reservado- tem que ser zero end; IDEREGS = TIDERegs; PIDERegs = ^TIDERegs; TSendCmdInParams = packed record cBufferSize : DWORD; irDriveRegs : TIDERegs; bDriveNumber : Byte; bReserved : Array[0..2] of Byte; dwReserved : Array[0..3] of DWORD; bBuffer : Array[0..0] of Byte; end; SENDCMDINPARAMS = TSendCmdInParams; PSendCmdInParams = ^TSendCmdInParams; TIdSector = packed record wGenConfig : Word; wNumCyls : Word; wReserved : Word; wNumHeads : Word; wBytesPerTrack : Word; wBytesPerSector : Word; wSectorsPerTrack : Word; wVendorUnique : Array[0..2] of Word; sSerialNumber : Array[0..19] of Char; wBufferType : Word; wBufferSize : Word; wECCSize : Word; sFirmwareRev : Array[0..7] of Char; sModelNumber : Array[0..39] of Char; wMoreVendorUnique : Word; wDoubleWordIO : Word; wCapabilities : Word; wReserved1 : Word; wPIOTiming : Word; wDMATiming : Word; wBS : Word; wNumCurrentCyls : Word; wNumCurrentHeads : Word; wNumCurrentSectorsP erTrack : Word; ulCurrentSectorCapa city : ULONG; wMultSectorStuff : Word; ulTotalAddressableS ectors : ULONG; wSingleWordDMA : Word; wMultiWordDMA : Word; bReserved : Array[0..127] of Byte; end; PIdSector = ^TIdSector; const IDE_ID_FUNCTION = $EC; IDENTIFY_BUFFER_ SIZE = 512; DFP_RECEIVE_ DRIVE_DATA = $0007c088; IOCTL_SCSI_MINIPORT = $0004d008; IOCTL_SCSI_MINIPORT _IDENTIFY = $001b0501; DataSize = sizeof(TSendCmdInPa rams)-1+IDENTIFY _BUFFER_SIZE; BufferSize = SizeOf(SRB_IO_ CONTROL)+ DataSize; W9xBufferSize = IDENTIFY_BUFFER_ SIZE+16; var hDevice : THandle; cbBytesReturned : DWORD; pInData : PSendCmdInParams; pOutData : Pointer; // PSendCmdOutParams Buffer : Array[0..BufferSize -1] of Byte; srbControl : TSrbIoControl absolute Buffer; begin Result := ''; FillChar(Buffer, BufferSize, #0); if Win32Platform= VER_PLATFORM_ WIN32_NT then // Windows NT, Windows 2000, Windows XP begin // recuperar handle da porta SCSI hDevice := CreateFile(PChar( '\\.\' + GetSysDrive) , // Nota: '\\.\C:' precisa de privilégios administrativos GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); if hDevice=INVALID_ HANDLE_VALUE then Exit; try srbControl.HeaderLe ngth := SizeOf(SRB_IO_ CONTROL); System.Move( 'SCSIDISK' ,srbControl. Signature, 8); srbControl.Timeout := 2; srbControl.Length := DataSize; srbControl.ControlC ode := IOCTL_SCSI_MINIPORT _IDENTIFY; pInData := PSendCmdInParams( PChar(@Buffer) +SizeOf(SRB_ IO_CONTROL) ); pOutData := pInData; with pInData^ do begin cBufferSize := IDENTIFY_BUFFER_ SIZE; bDriveNumber := 0; with irDriveRegs do begin bFeaturesReg := 0; bSectorCountReg := 1; bSectorNumberReg := 1;
RES: [delphi-br] Problemas com acentuação Delphi e MySQL
Eu fiz a alteração do banco e das tabelas da seguinte maneira: Character set: latin1 (ISO 8859-1 West European) Collation: latin1_swedish_ci Para: Character set: utf8 (UTF-8 Unicode) Collation: utf8_general_ci Mesmo assim não funcionou o programa. Ele continua gravando José (José). O mais engraçado é que sempre usei o MySQL e o Delphi e nunca deu o problema. É a primeira vez que estou utilizando o D2010 e DbExpress para fazer a conexão. Alguém consegue me ajudar com esse problema. Obrigado Att. Ricardo Ravelli. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: quarta-feira, 27 de janeiro de 2010 11:53 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas com acentuação Delphi e MySQL Você pode usar o EMS SQL Manager for MySQL Freeware http://sqlmanager.net/en/products/mysql/manager/download nele você vai conseguir facilmente mudar as propriedades da tabela e do banco. No DBExpress, já não sei te informar pois não uso o mesmo. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 27 de janeiro de 2010 12:56, Ricardo Ravelli ricardorave...@gmail.comescreveu: Eduardo, bom dia. Como eu faço para fazer a alteração das tabelas para esse formato? Eu uso o DbExpress para fazer a conexão, tem alguma alteração que deve ser feito na conexão também? Obrigado. Att. Ricardo Ravelli -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Eduardo Silva dos Santos Enviada em: terça-feira, 26 de janeiro de 2010 18:50 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas com acentuação Delphi e MySQL Você precisa verificar como está o Charecter set e o Collation da Tabela e como está configurado O objeto de conexão ao banco.. sua tabela deva ta como UTF-8 Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... Em 26 de janeiro de 2010 20:44, Ricardo Ravelli ricardorave...@gmail.com ricardoravelli%40gmail.comescreveu: Boa noite, Eu criei um form de Cadastro de Vendedores, utilizando do D2010 e MySQL 5.1, utilizo os componentes DbExpress para a comunicação no banco de dados. O que acontece é o seguinte: Eu cadastro o Nome de uma pessoa, por exemplo José, mas no banco de dados ele troca a letra com acento por caracteres estranhos José. O problema está no Delphi ou no MySQL? O que devo fazer para corrigir esse problema? Obrigado. Att. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010
Não ocorre nenhuma exceção apenas não retorna o numero correto. A função retorna um monte de caracteres (Chinês, japonês aparece de tudo). O mais importante você, com certeza, não falou: qual é o erro/exceção que ocorre? Sds. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010
Não postei todo o código, achei que dava pra saber pela função principal, já que o problema é de compatibilidade com o D2010. Function GetSysDrive: String; begin Result := ExcludeTrailingPathDelimiter(ExtractFileDrive(GetWindowsDir)); end; Obrigado pela ajuda. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: terça-feira, 26 de janeiro de 2010 18:55 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010 Prioridade: Alta E essa função GetSysDrive()? Cadê? Tá vendo, pressa pra querer as coisa resolvida e esquece de, além de explicar com detalhes a dúvida, pedaços de código! L Sds. [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Componente para Agenda
Já olhei sim os componentes da Jedi, mas é muito confuso o uso dos mesmos, estava procurando algo mais simples de usar e manter. Mas sigo ainda em busca de alguma coisa, qualquer coisa eu posto os resultados. Obrigado. André Luis da Silveira __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] Pegar Serial Fisico de HD no Delphi 2010
Em 27/1/2010 18:29, Iran Lima escreveu: Se alguém tiver uma função que retorne o serial físico do HD ou da BIOS , que funcione no D2010 e puder me passar ficarei grato.[ Iran Essa [1] eu testei até o Delphi 2007 e funciona apenas com HDs IDE. Mas abandonei esta idéia a partir do momento em q a maioria dos clientes começou a usar HDs SATA. Passei a usar a CPUID, que não varia, mesmo que o cliente troque o HD. Pra isso uso essa função [2]. [1]-- Function GetIdeSerialNumber:String; const IDENTIFY_BUFFER_SIZE = 512; type TIDERegs = packed record bFeaturesReg : BYTE; // Used for specifying SMART commands. bSectorCountReg : BYTE; // IDE sector count register bSectorNumberReg : BYTE; // IDE sector number register bCylLowReg : BYTE; // IDE low order cylinder value bCylHighReg : BYTE; // IDE high order cylinder value bDriveHeadReg: BYTE; // IDE drive/head register bCommandReg : BYTE; // Actual IDE command. bReserved: BYTE; // reserved for future use. Must be zero. end; TSendCmdInParams = packed record // Buffer size in bytes cBufferSize : DWORD; // Structure with drive register values. irDriveRegs : TIDERegs; // Physical drive number to send command to (0,1,2,3). bDriveNumber : BYTE; bReserved: Array[0..2] of Byte; dwReserved : Array[0..3] of DWORD; bBuffer : Array[0..0] of Byte; // Input buffer. end; TIdSector = packed record wGenConfig : Word; wNumCyls : Word; wReserved : Word; wNumHeads : Word; wBytesPerTrack : Word; wBytesPerSector: Word; wSectorsPerTrack : Word; wVendorUnique : Array[0..2] of Word; sSerialNumber : Array[0..19] of CHAR; wBufferType: Word; wBufferSize: Word; wECCSize : Word; sFirmwareRev : Array[0..7] of Char; sModelNumber : Array[0..39] of Char; wMoreVendorUnique : Word; wDoubleWordIO : Word; wCapabilities : Word; wReserved1 : Word; wPIOTiming : Word; wDMATiming : Word; wBS: Word; wNumCurrentCyls: Word; wNumCurrentHeads : Word; wNumCurrentSectorsPerTrack : Word; ulCurrentSectorCapacity: DWORD; wMultSectorStuff : Word; ulTotalAddressableSectors : DWORD; wSingleWordDMA : Word; wMultiWordDMA : Word; bReserved : Array[0..127] of BYTE; end; PIdSector = ^TIdSector; TDriverStatus = packed record // Error code from driver, or 0 if no error. bDriverError : Byte; // Contents of IDE Error register. Only valid when bDriverError is SMART_IDE_ERROR. bIDEStatus : Byte; bReserved: Array[0..1] of Byte; dwReserved : Array[0..1] of DWORD; end; TSendCmdOutParams = packed record // Size of bBuffer in bytes cBufferSize : DWORD; // Driver status structure. DriverStatus : TDriverStatus; // Buffer of arbitrary length in which to store the data read from the drive. bBuffer : Array[0..0] of BYTE; end; var hDevice : THandle; cbBytesReturned : DWORD; ptr : PChar; SCIP : TSendCmdInParams; aIdOutCmd : Array [0..(SizeOf(TSendCmdOutParams)+IDENTIFY_BUFFER_SIZE-1)-1] of Byte; IdOutCmd : TSendCmdOutParams absolute aIdOutCmd; procedure ChangeByteOrder( var Data; Size : Integer ); var Ptr: PChar; I: Integer; C: Char; Begin Ptr := @Data; For I := 0 to (Size shr 1) - 1 Do Begin C := Ptr^; Ptr^ := (Ptr + 1)^; (Ptr + 1)^ := C; Inc(Ptr, 2); end; end; Begin Result := ''; // return empty String on error If SysUtils.Win32Platform = VER_PLATFORM_WIN32_NT then // Windows NT, Windows 2000 begin // warning! change name for other drives: ex.: second drive '\\.\PhysicalDrive1\' hDevice := CreateFile( '\\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 ); end Else // Version Windows 95 OSR2, Windows 98 hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 ); If hDevice=INVALID_HANDLE_VALUE Then Exit; Try FillChar(SCIP,SizeOf(TSendCmdInParams)-1,#0); FillChar(aIdOutCmd,SizeOf(aIdOutCmd),#0); cbBytesReturned := 0; // Set up data structures for IDENTIFY command. With SCIP Do Begin cBufferSize := IDENTIFY_BUFFER_SIZE; // bDriveNumber := 0; With irDriveRegs Do Begin
[delphi-br] Executar Script Sql com DBExpress
Ola pessoal da lista, Estou precisando de uma dica de como estar executando um script SQL em um banco de dados Firebird que esta sendo acessado utilizando dbexpress. Qualquer dica e bem vinda. [As partes desta mensagem que não continham texto foram removidas]