Re: Res: RES: [delphi-br] Autoincremento X ClientDataSet
Peguei esta dica aqui na lista www.planetadelphi.com.br/download/4229/Autoincremento%20no%20firebird --- Em qui, 5/8/10, Eny Urias enyur...@yahoo.com.br escreveu: De: Eny Urias enyur...@yahoo.com.br Assunto: Res: RES: [delphi-br] Autoincremento X ClientDataSet Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 5 de Agosto de 2010, 11:06 E quem lê direito não perde tempo! Aff! Falei que já peguei os exemplos do site da embarcadero e tb nao deu certo... Esse aí eu já li de cabo a rabo e testei tudo o que falam lá! Mas, mesmo assim obrigada pela atenção! Achei esse artigo do Walter http://www.oocities.com/walterchagas/ClientDataset.html... mas tb não funciona por causa do Autoinc na tabela de detalhes... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Rubem Rocha rubem.ro...@dtmanaus.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 5 de Agosto de 2010 10:46:00 Assunto: RES: [delphi-br] Autoincremento X ClientDataSet Lembre-se sempre: quem procura, acha! (Artigo “How to use AutoInc fields with DataSnap” – Como usar campos auto-incremento com DataSnap) http://edn.embarcadero.com/article/20847 (Código fonte referente ao artigo – necessário registro gratuito no portal para download) http://cc.embarcadero.com/Item/14448 Boa sorte. Sds. P.S.: O artigo é excelente, mas não tem versão dele em português, OK? ;) De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Eny Urias Enviada em: quinta-feira, 5 de agosto de 2010 09:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Autoincremento X ClientDataSet Vcs não tem noção de quanto eu to apanhando pra tentar fazer a coisa funcionar. Tenha a tabela de vendas com o campo código (Autoinc)... Tenho a tabela de itens com o campo codigo referente a venda e o campo id (autoinc)... Mas, como estou utilizando cds, tá dando key violation (lógico!) na tabela itens. Eu tenho medo de utilizar campo int nos codigos. Temo que dois usuarios ao mesmo tempo deem applyupdates com o mesmo codigo. Então como devo proceder? Fiquei a noite inteira ontem pesquisando... Peguei alguns exemplos no site da embarcadero mas nenhum deu certo... Como vcs trabalham? Lembro que eu quero digitar o pedido inteiro com itens e tudo antes de dar o applyupdates nas tabelas porque eu atualizo o estoque depois que eu salvo a venda. Agradeço a quem der um luz! -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles [As partes desta mensagem que não continham texto foram removidas] [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] Re: Gauge sem %
Coloque 2 timers, 2 buttons e 2 gauges. Adapte as suas necessidades.
private
{ Private declarations }
sentido1 : string;
perc1 : word;
sentido2 : string;
perc2 : word;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if sentido1 = 'vai' then
begin
inc(perc1);
Gauge1.Progress := perc1;
if perc1 = 100 then
sentido1 := 'volta';
end;
if sentido1 = 'volta' then
begin
dec(perc1);
Gauge1.Progress := perc1;
if perc1 = 0 then
sentido1 := 'vai';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
sentido1 := 'vai';
perc1 := 0;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if sentido2 = 'vai' then
begin
inc(perc2);
Gauge2.Progress := perc2;
if perc2= 100 then
begin
sentido2:= 'volta';
Gauge2.BackColor := clblack;
Gauge2.ForeColor := clwhite;
end;
end;
if sentido2 = 'volta' then
begin
dec(perc2);
Gauge2.Progress := perc2;
if perc2 = 0 then
begin
sentido2 := 'vai';
Gauge2.BackColor := clWhite;
Gauge2.ForeColor := clBlack;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer2.Enabled := true;
sentido2 := 'vai';
perc2 := 0;
end;
--- Em seg, 12/7/10, Andrei Luís compuvale.softw...@gmail.com escreveu:
De: Andrei Luís compuvale.softw...@gmail.com
Assunto: [delphi-br] Re: Gauge sem %
Para: Delphi-br delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 12 de Julho de 2010, 23:52
Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32.
[]s
Andrei
2010/7/12 Andrei Luís compuvale.softw...@gmail.com:
Boa noite,
Alguém poderia indicar um gauge bar sem % nem texto. Pensei em algo
que não necessariamente preenchesse a barra, mas tipo um que fique se
movimentando pra direita e pra esquerda sem parar, até ser encerrado.
A idéia é utilizar no envio de e-mails ou outras situações que não dá
pra medir a porcentagem do processo executado/à executar.
[]s
Andrei
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Gauge sem %
Colocar a propriedade dos ShowText = False (dos Gauges); --- Em seg, 12/7/10, Andrei Luís compuvale.softw...@gmail.com escreveu: De: Andrei Luís compuvale.softw...@gmail.com Assunto: [delphi-br] Re: Gauge sem % Para: Delphi-br delphi-br@yahoogrupos.com.br Data: Segunda-feira, 12 de Julho de 2010, 23:52 Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32. []s Andrei 2010/7/12 Andrei Luís compuvale.softw...@gmail.com: Boa noite, Alguém poderia indicar um gauge bar sem % nem texto. Pensei em algo que não necessariamente preenchesse a barra, mas tipo um que fique se movimentando pra direita e pra esquerda sem parar, até ser encerrado. A idéia é utilizar no envio de e-mails ou outras situações que não dá pra medir a porcentagem do processo executado/à executar. []s Andrei [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Envio de email com Delphi
www.activedelphi.com.br/print.php?sid=187 imasters.uol.com.br/artigo/1201/delphi/enviando_e-mails_com_componentes_indy/ www.devmedia.com.br/visualizacomponente.aspx?comp=1195site=3 www.ramosdainformatica.com.br/art_recentes01.php?CDA=22 www.devmedia.com.br/articles/viewcomp.asp?comp=9075 www.devmedia.com.br/articles/viewcomp.asp?comp=9107 www.google.com.br/search?hl=pt-BRq=Delphi+enviar+e-mailbtnG=Pesquisa+Googlemeta= massuda.blogspot.com/2007/04/como-enviar-email-usando-indy-10.html --- Em sex, 28/5/10, Richardson Freddo mjrkon...@yahoo.com.br escreveu: De: Richardson Freddo mjrkon...@yahoo.com.br Assunto: [delphi-br] Envio de email com Delphi Para: Grupo delphi-br@yahoogrupos.com.br Data: Sexta-feira, 28 de Maio de 2010, 11:35 Ola pessoal. Estou tentando usar o comando abaixo para enviar um email usando a API, com Delphi 7: comando:='mailto:'+quotedstr(Email) + '?subject='+quotedstr(vEmail.Assunto)+ ';attachment='+quotedstr(arquivo) +';'; ShellExecute(0, nil, PChar(Comando), nil, nil,SW_SHOWNORMAL); 1 - O problema é que ele abre o email, mas sem anexo nehum. Alguem sabe como usar esse comando e anexar o arquivo no email?? 2 - E o corpo da mensagem, ou seja, a mansagem mesmo, tem como montar ela ? Obrigado. Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT [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] Procuro emprego na área
www.planetadelphi.com.br/ www.activedelphi.com.br www.devmedia.com.br http://www.linhadecodigo.com.br/ --- Em qua, 28/4/10, Lucas Neves lucas_del...@yahoo.com.br escreveu: De: Lucas Neves lucas_del...@yahoo.com.br Assunto: [delphi-br] Procuro emprego na área Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 28 de Abril de 2010, 11:08 Bom dia a todos, Estou parado no momento e procurando emprego como Analista ou Desenvolvedor Delphi. Tenho 9 anos de experiência na linguagem e passei por diversos tipos de sistema. Se souberem de alguma coisa na região de Campinas ou de Limeira, eu agradeço. Obrigado Lucas Neves _ _ _ _ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Estações não conecta ao Ba nco
Verifique se o Firebird está ativo. --- Em qua, 28/4/10, Vinicius vinic...@cnen.gov.br escreveu: De: Vinicius vinic...@cnen.gov.br Assunto: [delphi-br] Estações não conecta ao Banco Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 28 de Abril de 2010, 16:10 Amigos, Boa Tarde De um dia para o outro as duas estações que tenho pararam de acessar o meu Banco que esta rodando com FireBird 2.1. O meu servidor está como nome de SERVIDOR. Eu consigo dar um ping das estações tanto pelo NOME como tbm pelo IP do servidor para as estações como das estações para o servidor. Das estações eu tenho total acesso ao diretório em que se encontra o Banco de Dados, tanto pra ler, escrever ou deletar. O meu programa Le um arquivo .INI com os seguintes comandos: # Arquivo de Configuração da Base de dados # Server=SERVIDOR; Root=C:\SGBD\ EspacoR1; DataBase=BDsonhos. FDB; Dentro do meu programa eu monto o nome do Banco e o se Path, sempre funcionou. Este arquivo está em todas as estações e tbm no servidor. Já esta em produção desde dez/09 sem dar nenhum problema. Hoje pela manha o cliente me ligou dizendo que o programa não rodava nas estações, apresentando o seguinte erro: Exception EDatabaseError in module EspacoR1.exe at 000ACEF1. Unable to complete network request to host “SERVIDOR” Failled to establish a connection. Uma tentativa de conexão falhou porque o componente conectado não respondeu corretamente após um período de tempo ou a conexão estabelecida falhou porque o host co. Fiz vários testes e não consegui refazer a conexão com o banco. Alguém pode me dar uma luz sobre o que pode ter acontecido, ou onde devo procurar o problema já que tenho acesso ao servidor de qualquer estação sem problemas... nada foi mudado. Tenho um roteador DLINK que esta conectado a um SWITCH, este roteador é utilizado para o Velox que está funcionando normalmente e todos os micros se enxergam sem problemas. Agradeço qualquer dica ou orientação. Vinicius. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Envio E-Mail
www.activedelphi.com.br/print.php?sid=187 imasters.uol.com.br/artigo/1201/delphi/enviando_e-mails_com_componentes_indy/ www.devmedia.com.br/visualizacomponente.aspx?comp=1195site=3 www.ramosdainformatica.com.br/art_recentes01.php?CDA=22 www.devmedia.com.br/articles/viewcomp.asp?comp=9075 www.devmedia.com.br/articles/viewcomp.asp?comp=9107 www.google.com.br/search?hl=pt-BRq=Delphi+enviar+e-mailbtnG=Pesquisa+Googlemeta= massuda.blogspot.com/2007/04/como-enviar-email-usando-indy-10.html --- Em sáb, 3/4/10, Eduardo Suruagy eduardosuru...@gmail.com escreveu: De: Eduardo Suruagy eduardosuru...@gmail.com Assunto: [delphi-br] Envio E-Mail Para: delphi-br@yahoogrupos.com.br Data: Sábado, 3 de Abril de 2010, 20:13 Gostaria de saber como vcs estão enviando e-mail pelo delphi 7?? Já tentei de tudo e nao consigo... [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] Formatar texto
Grupo Delphi-BRSenhores, O que quero saber é bem simples. Estou fazendo um sistema de caixa registradora, no qual preciso imprimir as compras num memo (ou listbox). Eu preciso imprimir os dados assim, por exemplo: - | 78946372 1xARROZ TIO JOAO 2,39 | | 78938920 1xFEIJAO BOMBOM 1,43 | (...) Espero que o desenho que fiz não perca a formatação. Se eu consegui ser claro, preciso que o valor dos produtos estejam alinhados á direita do memo (ou listbox), entendem? abraço! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] FreeLance
Pessoal, Trabalho com delphi a 6 anos, e estou disponivel para trabalhos Free-Lance a distancia. Fabio Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
Re: [delphi-br] Ajuda...Atualização de Soft ware
Você deu uma pesquisada em: www.delphibr.com.br www.linhadecodigo.com.br www.delphi.eti.br www.devmedia.com.br ? --- Em seg, 8/2/10, Domingos domingosp...@gmail.com escreveu: De: Domingos domingosp...@gmail.com Assunto: Re: [delphi-br] Ajuda...Atualização de Software Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 8 de Fevereiro de 2010, 22:45 Samuel, boa noite Cara gostei muito da sua idéia, poderia explicar melhor? O usuário executa esse sistema para ver se existe atualização? Esse seu executável acessa um serviço de FTP pra baixar o arquivo? Como você faz atualização do executável? Ou ele baixa outro arquivo? e a parte de atualização do banco de dados, você faz como o database comparer? Obrigado, []'s Em 8 de fevereiro de 2010 23:00, Samuel M. Basso samuelbasso@ yahoo.com. brescreveu: Eu fiz um executavel a parte que quando executado ele verifica no site onde hospedo as atualizacoes se existe atualizacao mais recente e consequentemente ele baixa a atualização. Junto com a atualizacao eu tenho os scripts que ele executa para atualizar a base de dados, porem tenho um problema que ainda nao resolvi no scripts, quando tento criar foreign key nunca da certo, sempre da erro que tal campo esta em uso e nao consegue prosseguir, mesmo ninguem executando o sistema ele da esse erro so consigo executar reininciando o serviço do firebird que ate entao nao tive ideias. mas é assim que faço atualizacoes. 2010/2/8 snakesjb robsontazinaffo@ hotmail.com Tenho um sistema feito em Delphi 2007 e banco de dados firebird...Como o sistema ja fooi instalado em alguns clientes e o mesmo ainda está em fase de testes, MAS EM USO, quase toda semana tenho que atualizar o executável... alguem tem alguma idéia??? Tava pensando em colocar o sistema em um ftp e criar um sistema para download apresentando os arquivos para download...Alguem tem algum exemplo para me ajudar??? -- Atenciosamente, Samuel M. Basso Cel: (54) 8135-3723 Skype: samuelbasso E-mail/MSN: samuelbasso@ gmail.com Web site: www.samuelbasso. com [As partes desta mensagem que não continham texto foram removidas] - - -- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- - - - - - - Domingos José Martins de Souza [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] 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] Importar do excel com abas
Dê uma estudada nesta rotina e adapte as suas necessidades.
procedure TMenuPlanilha.PlanDetalhe(arq : string);
var
i : byte;
lin : byte;
fim_plan : boolean;
texto : string;
aba : byte;
begin
excel_le.Workbooks.Open(arq);
for aba := 1 to excel_le.Workbooks[1].sheets.Count do
if excel_le.WorkBooks[1].Sheets[aba].Name =
cdsGrid.fieldbyname('DESCRCARTAO').asstring then
break;
if aba excel_le.Workbooks[1].sheets.Count then
begin
excel_le.quit;
exit;
end;
if UpperCase(trim(excel_le.Workbooks[1].WorkSheets[aba].cells[8,1]))
'COLABORADOR' then
begin
Screen.Cursor := crDefault;
showmessage('Planilha fora do padrão' + #13
+ arq);
excel_le.quit;
exit;
end;
if lin_grava = 1 then
begin
fim_plan := false;
col_lim := 2;
while not fim_plan do
begin
inc(col_lim);
excel_grava.Workbooks[1].WorkSheets[1].columns[col_lim].rowheight := 10;
if trim(excel_le.Workbooks[1].WorkSheets[aba].cells[8,col_lim + 1]) =
'' then
fim_plan := true;
end;
Espero ter ajudado.
--- Em sáb, 12/12/09, Rafael Jorge rafael.jo...@gmail.com escreveu:
De: Rafael Jorge rafael.jo...@gmail.com
Assunto: [delphi-br] Importar do excel com abas
Para: delphi-br delphi-br@yahoogrupos.com.br
Data: Sábado, 12 de Dezembro de 2009, 8:46
tenho uma rotina que importa do excel para meu banco de dados. ate ai tudo
bem, so que alguns clientes usam varias abas do excel (planilhas) dentro do
mesmo excel.
e eu gostaria de saber como sair de planilha em planilha pegando os dados.
tentei usando a rotina abaixo mais nao ta funcionando da erro no active
quando eu tento pegar a ultima celula ativa.
- - -- codigo fonte
- -
procedure TFormImpotarDoExcel .BitBtn5Click( Sender: TObject);
const
xlCellTypeLastCell = $000B;
var
XLApp : OLEVariant;
Sheet : OLEVariant;
RangeMatrix : Variant;
linha : Integer;
coluna : Integer;
I : Integer;
ii : integer;
iii : integer;
x : integer;
y : integer;
arquivo : string;
sql : string;
sair : boolean;
function valida(texto: string): string;
begin
result := stringreplace( texto,#39, '',[rfReplaceAll ]);
end;
begin
// Create Excel-OLE Object
XLApp := CreateOleObject( 'Excel.Applicati on');
//pegando todos os arquivos do diretorio.
g1.MinValue := 0;
g1.MaxValue := self.FileListBox1. Items.Count;
g1.Progress := 0;
for I := 0 to self.FileListBox1. Items.Count - 1 do
begin
g1.Progress := i;
application. ProcessMessages;
try
// Hide Excel
XLApp.Visible := False;
// Open the Workbook
arquivo :=
self.DirectoryListB ox1.Directory+ '\'+self. FileListBox1. Items.Strings[ i];
lbarquivo.caption := arquivo;
application. ProcessMessages;
XLApp.Workbooks. Open(arquivo) ;
// Sheet := XLApp.Workbooks[ 1].WorkSheets[ 1];
Sheet := XLApp.Workbooks[ ExtractFileName( arquivo)] .WorkSheets[ 0];
// In order to know the dimension of the WorkSheet, i.e the number of
rows
// and the number of columns, we activate the last non-empty cell of it
Sheet.Cells. SpecialCells( xlCellTypeLastCe ll, EmptyParam). Activate; ---
dá erro aqui!
// Get the value of the last row
x := XLApp.ActiveCell. Row;
// Get the value of the last column
y := XLApp.ActiveCell. Column;
// Assign the Variant associated with the WorkSheet to the Delphi
Variant
RangeMatrix := XLApp.Range[ 'A1', XLApp.Cells. Item[X, Y]].Value;
// Define the loop for filling in the TStringGrid
linha := strtoint(linhainici al.Text);
sair := false;
repeat
//criando o sql com base na tabela
sql := 'insert into '+self.combtabela. Text+' (';
if CheckBox1.Checked then sql := sql +'codigo,';
for Ii := 1 to self.grid.RowCount - 1 DO
BEGIN
if ii = 1
then sql := sql + self.grid.Cells[ 0,ii]
else sql := sql + ', '+self.grid. Cells[0,ii] ;
end;
//vendo os campos manuais
for iii := 1 to self.gridmanual. RowCount - 1
do sql := sql + ', '+self.gridmanual. Cells[0,iii] ;
//fachando os campos
sql := sql + ') values (';
if CheckBox1.Checked
then sql := sql +
autoincremento( nil,self. combtabela. Text,'codigo' ,fsqlconnection,
self.Socketconne ction)+',
';
//inserindo os dados
g2.MinValue := 0;
g2.MaxValue := self.grid.RowCount + self.gridmanual. RowCount;
g2.Progress := 0;
for ii := 1 to self.grid.RowCount - 1 do
begin
g2.Progress := ii;
application. ProcessMessages;
if (RangeMatrix[ linha, strtoint(self. grid.Cells[ 1,ii])] = '') and
(ii = 1) then
begin
sair := true;
Break;
end;
if self.grid.Cells[ 2,ii] = '0' then
begin
if ii = 1
then sql := sql + #39+ valida(RangeMatrix[ linha,
strtoint(self. grid.Cells[ 1,ii])])+ #39
else sql := sql + ', '+ #39+ valida(RangeMatrix[ linha,
strtoint(self. grid.Cells[ 1,ii])])+ #39;
end else begin
if ii = 1
then sql := sql + #39+ valida(copy( RangeMatrix[ linha,
strtoint(self. grid.Cells[ 1,ii])],1, strtoint( self.grid. Cells[2,ii] )))+#39
else sql := sql + ', '+ #39+ valida(copy( RangeMatrix[ linha,
strtoint(self. grid.Cells[ 1,ii])],1, strtoint(
Re: [delphi-br] Como colocar algumas linhas d e uma stringgrid não-editáveis
Adapte as suas necessidades use o evento OnSelectCell e verifique se é a linha que vc quer... if ARow = Linha then Grid.Options := Grid.Options + [goEditing] else Grid.Options := Grid.Options - [goEditing]; Espero ter ajudado. --- Em qui, 12/11/09, Joanes J. Chiesa inconscient...@yahoo.com.br escreveu: De: Joanes J. Chiesa inconscient...@yahoo.com.br Assunto: [delphi-br] Como colocar algumas linhas de uma stringgrid não-editáveis Para: delphi-br yahoogrupos delphi-br@yahoogrupos.com.br Data: Quinta-feira, 12 de Novembro de 2009, 23:21 Boa noite Pessoal, Estou com uma questão complicada para implementar, tenho um stringgrid e preciso que quando o usuário preencher uma linha ele não possa mais voltar e alterar novamente, ele somente pode excluir, deste modo preciso que parte do stringgrid (da linha 1 até a linha que ele acabou de digitar) fiquem travadas, somente podendo excluir e que abaixo disso as linhas fiquem disponiveis para novos dados digitados pelo usuário. sei que existe a opção Grid.Options := Grid.Options - [goEditing] mas somente funciona para colunas não encontrei nada que falasse sobre como aplicar isso em linhas. agradeço qualquer ajuda. Obrigado, Joanes _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com 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] Re: focus stringgrid
Adapte as suas necessidades. Já é um caminho para você pesquisar. procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); var i : byte; begin if key = #13 then begin i := 0; while i = stringgrid1.ColCount do begin StringGrid1.Cells[i,1] := StringGrid1.Cells[0,1]; inc(i); end; end; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if ARow = 1 then stringGrid1.Options := stringGrid1.Options + [goEditing] else stringGrid1.Options := stringGrid1.Options - [goEditing]; end; Espero ter ajudado. --- Em ter, 6/10/09, Joanes J. Chiesa inconscient...@yahoo.com.br escreveu: De: Joanes J. Chiesa inconscient...@yahoo.com.br Assunto: [delphi-br] Re: focus stringgrid Para: delphi-br yahoogrupos delphi-br@yahoogrupos.com.br Data: Terça-feira, 6 de Outubro de 2009, 12:28 Bom dia, alguém tem alguma ideia de como implementar a questao abaixo? pesquisei na internet mas nao achei nada, ou talvez alguém possa sugerir algo semelhante. deve haver um jeito de implementar isto pois ja vi em muitos programas. Obrigado, Joanes --- Em seg, 28/9/09, Joanes J. Chiesa inconsciente_ c...@yahoo.com. br escreveu: De: Joanes J. Chiesa inconsciente_ c...@yahoo.com. br Assunto: focus stringgrid Para: delphi-br yahoogrupos delphi...@yahoogrup os.com.br Data: Segunda-feira, 28 de Setembro de 2009, 23:56 Boa noite pessoal, Gostaria de implementar a seguinte funcionalidade: ao digitar algum valor na primeira coluna de um stringgrid, gostaria que os valores fossem carregados nas demais células da linha. O que não estou conseguindo é criar um modo de saber quando eu sai da coluna 1. Tentei os eventos (Onsetedittext e OngetEditText) mas estes eventos não são para esta finalidade. Encontrei no google este exemplo porém não consegui implementá-lo e também não tenho certeza se funciona corretamente. Talvez alguém com mais experiência saiba informar se isto realmente funciona. http://forum. devmedia. com.br/viewtopic .php?p=241870 sid=f52f0f499a2c 0fb202348082291d 64df Alguém poderia me ajudar? ou dar alguma dica para criar esta implementação? Obrigado, Joanes _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com 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] Executável somente no servidor da rede local
Andrei, vou lhe contar minha experiência: tinha um sistema com executável no servidor e o atalho na máquina dos clientes. Quando tinha que atualizar o executável, tinha que pedir para todos os usuários saírem do sistema para atualizá-lo. Resolvi colocar o executável nos clientes. Mas como fazer para atualizá-los com uma nova versão? Criei um programa AtualizaProg, coloquei nos clientes e coloco a última versão numa pasta do servidor. Quando o sistema inicializa, verifica a data do executável do cliente com a do servidor, Se for menor, executa o AtualizaProg e fecha o sistema. O AtualizaProg copia o executável do servidor para a máquina do cliente, executa o sistema do cliente e fecha. Quando havia um atalho nos clientes, o sistema levava +/- 4 segundos para inicilaizar. Com o executável nos clientes, era instatâneo. Em alguns clientes, de vez em quando, vinha esta mensagem que você citou, Mas quando colocava uma nova versão, esta mensagem não aparecia mais. Espero ter ajudado --- Em qua, 23/9/09, Andrei Luís compuvale.softw...@gmail.com escreveu: De: Andrei Luís compuvale.softw...@gmail.com Assunto: [delphi-br] Executável somente no servidor da rede local Para: Delphi-br delphi-br@yahoogrupos.com.br Data: Quarta-feira, 23 de Setembro de 2009, 21:16 Boa noite a todos, Hoje coloco o executável de meus sistemas em cada estação. Quero estudar como vai ficar o desempenho se deixar o executável somente no servidor e nas estações um atalho apontando pra lá. Bem, criei uma pasta no servidor, coloquei os arquivos necessários e compartilhei a pasta. Na primeira estação, ao executar o novo atalho, o Windows chia com a mensagem 'O editor não pode ser verificado' e apresenta um botão 'Executar' e um 'Cancelar', clicando em Executar o sistema é abre normalmente. Mas aí, pô, é um saco ficar a cada execução do sistema, clicar no bendito botão. Alguém sabe o que pode se fazer para não aparecer essa msg? Já tentei criar uma exceção no Firewall da estação, já desativei o Firewall da estação e do servidor. Aquele botão Desbloquear não aparece nem nas propriedades do executavel, nem nas propriedades do atalho. 'Servidor' e estações rodam Win XP Pro SP3 []s Andrei [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] [ Problema Memoria com Quickreport]
Este erro já tinha sido reportado a muitos anos atrás e veja a solução que
foi dada:
Qdo mando imprimir várias guias (empresas diferentes) a primeira
imprime correto, depois comeca a imprimir faltando logotipo.
solucao (não testado)
ja vi gente resolvendo problema parecido com um sleep({pode ser 500}).
Espero ter ajudado.
--- Em ter, 22/9/09, Marcio mar...@sulfabril.com.br escreveu:
De: Marcio mar...@sulfabril.com.br
Assunto: [delphi-br] [ Problema Memoria com Quickreport]
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 22 de Setembro de 2009, 9:29
Ola pessoal, desenvolvi um relatorio (Nota Fiscal) com uma imagem no plano
de fundo.
estou usando um TQRimagem para o logotipo no canto superior e a rotina abaixo
para gerar marca dagua no centro da pagina ..
tenho percebido que qndo imprimo as notas esta a memoria usada esta ficando
alto
e depois um tempo , hora imprime as images hora nao.
sera algum problema de esvaziamento de memoria ?/
alguem tem alguma ideia ...
Att. Marcio.
procedure TfrmDANFE.QRRodapeA fterPrint( Sender: TQRCustomBand; BandPrinted:
Boolean);
var
xx : integer;
BitMap : TBitMap; {marca dagua}
R : TRect; {marca dagua}
X, Y : integer; {marca dagua}
begin
xx := 0;
///
//rotina para imprimir marca dagua no QuickReport
//incluir no PageFooterBand1Afte rPrint
BitMap := TBitMap.Create;
try
if not FileExists(PastaLog otipo + 'sulfabril_logo. bmp') then
begin
messagebox(handle, 'O arquivo de imagem n?existe ou foi
removido !','Aten?',MB_ OK or MB_ICONWARNING) ;
SetActiveWindow( Application. Handle);
end
else
begin
BitMap.LoadFromFile ( PastaLogotipo +'sulfabril_ logo.bmp' );
with QuickRep2.QRPrinter do
begin
//Y := YPos(PaperLengthVal ue) div 6;
Y := YPos(PaperLengthVal ue) div 4;
X := XPos(PaperWidthValu e) div 4;
R := Rect(X, 2 * Y, 3 * X, 4 * Y);
ImprimeBitMap( Canvas, BitMap, R);
end;
end;
finally
BitMap.Free;
end;
/ / / / //
end;
procedure TfrmDANFE.ImprimeBi tMap(Cnv: TCanvas; BitMap: TBitMap; R: TRect);
var
Info : PBitMapInfo;
InfoSize : DWORD;
Image : Pointer;
ImageSize : DWORD;
begin
with BitMap do
begin
GetDIBSizes( Handle, InfoSize, ImageSize);
GetMem(Info, InfoSize);
try
Getmem(Image, ImageSize);
try
GetDIB(Handle, Palette, Info^,Image^ );
with Info^.bmiHeader do
StretchDIBits( Cnv.Handle, R.Left, R.Top, R.Right -
R.Left,R.Bottom - R.Top,
0, 0, biWidth, biHeight, Image, Info^, DIB_RGB_COLORS, SRCAND);
finally
FreeMem(Image, ImageSize);
end;
finally
FreeMem(Info, InfoSize);
end;
end;
end;
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] [ Problema Memoria com Quickreport]
Isso. Este problema e esta solução não são meus. Esta dica foi posta aqui na
lista. Experimente colocar antes de imprimir a banda que contem o logotipo.
--- Em ter, 22/9/09, Marcio mar...@sulfabril.com.br escreveu:
De: Marcio mar...@sulfabril.com.br
Assunto: Re: [delphi-br] [ Problema Memoria com Quickreport]
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 22 de Setembro de 2009, 11:36
Fabio, tu diz que eu tenho que usar
sleep({pode ser 500}).
dar um tempo em cada impressao ???
att. Marcio.
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] Desenvolvimento para Palm
Peguei este sites na lista. Não sei nada sobre o assunto. www.clubepda.com.br Espero ter ajudado. --- Em seg, 17/8/09, Leandro - Grupos leacarbone...@yahoo.com.br escreveu: De: Leandro - Grupos leacarbone...@yahoo.com.br Assunto: [delphi-br] Desenvolvimento para Palm Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 17 de Agosto de 2009, 13:28 E ai galera... blz... Seguinte, tenho um cliente onde os seus vendedores irão começar a trabalhar com Palms e precisamos desenvolver uma aplicação para eles para uma simples consulta de preços. Gostaria de saber se alguém já teve alguma experiência desse tipo e se teria algum material ou alguma dica para medar Abraço [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] Balanca Eletronica Toledo
Utilizei uma vez o componente do ACBR, la tem um componente para balanças com comunicação Serial. - Original Message - From: nunofigueir...@terra.com.br To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 13, 2009 2:31 PM Subject: [delphi-br] Balanca Eletronica Toledo Amigos: estou desenvolvendo um sistema em D7 para controlar pesagem de uma balanca Toledo 9091 (toledobrasil.com.br). Esta dita balanca tem uma porta RS232 que comunica com impressoras ou micros. Infelizmente o manual da mesma é completamente omisso quanto a essa parte. Algum dos colegas tem sugestões para mim? Preciso de ler a pesagem e pôr na tela do micro. Não há nenhum metodo definido para a comunicacao serial. Alguem ja passou por isso e pode me dar uma luz? Alem disso, alguem conhece uma biblioteca para cmomunicacao serial no NT/XP/2000/2003? A que eu tinha, eu mesmo desenvolvi mas usava assembler e escrevia diretamente na porta ou seja, nao roda mais no NT. Agradeco desde ja a todos. abracos Nuno [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] Modularização Aplicativos
www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=141 www.imasters.com.br/busca/0/29/6/artigo www.imasters.com.br/artigo/1047/delphi/usando_pacotes_para_modularizar_aplicacoes_parte_final/ forum.devmedia.com.br/viewtopic.php?t=95308highlight= Espero ter ajudado. --- Em seg, 10/8/09, Alexsandro Machado adura...@bol.com.br escreveu: De: Alexsandro Machado adura...@bol.com.br Assunto: [delphi-br] Modularização Aplicativos Para: delphi-br@yahoogrupos.com.br Data: Segunda-feira, 10 de Agosto de 2009, 18:42 Boa tarde pessoal, Alguém utiliza sua aplicação modularizada em bpls, tipo: financeiro uma, estoque outra...e assim vai. Vale apena fazer assim ? Onde encontrar um bom material ? (procurei no google não achei nada interessante) . Obrigado Alex [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] StringGrid
Adapte as suas necessidades. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin label1.Caption:=IntToStr(StringGrid1.Row)+' '+IntToStr(StringGrid1.Col); end; Espero ter ajudado. --- Em dom, 9/8/09, Joanes J. Chiesa inconscient...@yahoo.com.br escreveu: De: Joanes J. Chiesa inconscient...@yahoo.com.br Assunto: [delphi-br] StringGrid Para: delphi-br yahoogrupos delphi-br@yahoogrupos.com.br Data: Domingo, 9 de Agosto de 2009, 23:22 Boa noite pessoal, Estou utilizando um Stringgrid e gostaria de implementação uma função onde o usuário tivesse a opção de selecionar varias linhas deste grid e ao clicar em um botão eu soubesse quais são as linhas selecionadas! alguém já implementou isto? Obrigado, Joanes _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com 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] Delphi X OpenOffice
Adapte as suas necessidades
// bordas da celula
excel.Workbooks[1].WorkSheets[1].range['A4','E5'].borders.linestyle := 1;
excel.Workbooks[1].WorkSheets[1].range['A4','E5'].borders.weight := 2;
// mesclar celulas
excel.Workbooks[1].WorkSheets[1].Range['A4:C4'].Merge;
excel.Workbooks[1].WorkSheets[1].Range['D4:E4'].Merge;
Para formatar células:
1º você formata depois coloca o conteúdo, é + fácil.
2º formate assim...
Range(C5).Select
Selection.NumberFormat = 0.00
ou
Cells(11, 3).Select
Selection.NumberFormat = 0.00
ou
Range(C7).Select
Selection.NumberFormat = m/d/yy
Excel.Cells.Item[1,2].Select;
Excel.Selection.numberformat := '00'; {Formata como CNPJ}
Excel.Cells.Item[1,2].Select;
Excel.Selection.numberformat := '@'; {Formata como texto}
Excel.Cells.Item[1,2].Select;
Excel.Selection.numberformat := '#,##0.00'; {Formata 1,00}
a célula deve receber apenas o mês e não um a data??
tente isso antes de passar o valor para a célula.
Range['A1', 'A1'].NumberFormat := '#';
Range[StrCell, StrCell].Value2 := grd.Columns[NumColuna].Field.Value;
if grd.Columns[NumColuna].Field.DataType in [ftdate, ftDateTime] then
Range[StrCell, StrCell].NumberFormat := 'dd/mm/';
if grd.Columns[NumColuna].Field.DataType in [ftFloat, ftCurrency] then
Range[StrCell, StrCell].NumberFormat := '#.##0,00';
Dê uma pesquisada em www.delphi.eti.br
Espero ter ajudado.
--- Em seg, 3/8/09, Paulo Pontes pontespa...@gmail.com escreveu:
De: Paulo Pontes pontespa...@gmail.com
Assunto: [delphi-br] Delphi X OpenOffice
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 3 de Agosto de 2009, 9:42
Pessoal, bom dia!
Alguém tem um exemplo aí de como formatar uma planilha do OpenOffice pelo
Delphi? Eu já implementei uma rotina aqui que faz a geração da planilha mas
não estou conseguindo formatá-la, principalmente: mesclar células e colocar
grade.
Obrigado!
[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] Delphi X OpenOffice
Você já deu uma pesquisada em:
www.devmedia.com.br ,
www.linhadecodigo.com.br ,
www.activedelphi.com.br ,
www.delphi.eti.br ?
--- Em seg, 3/8/09, Paulo Pontes pontespa...@gmail.com escreveu:
De: Paulo Pontes pontespa...@gmail.com
Assunto: Re: [delphi-br] Delphi X OpenOffice
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 3 de Agosto de 2009, 11:28
Fábio, obrigado pela dica.
Mas meu problema maior é com o OpenOffice, para o Excel fiz como vc citou
mesmo. Mas a API dos dois é diferente, não possui as mesmas funções.
Valeu!
2009/8/3 fabio giro fabio_g...@yahoo. com.br
Adapte as suas necessidades
// bordas da celula
excel.Workbooks[ 1].WorkSheets[ 1].range[ 'A4','E5' ].borders. linestyle := 1;
excel.Workbooks[ 1].WorkSheets[ 1].range[ 'A4','E5' ].borders. weight := 2;
// mesclar celulas
excel.Workbooks[ 1].WorkSheets[ 1].Range[ 'A4:C4']. Merge;
excel.Workbooks[ 1].WorkSheets[ 1].Range[ 'D4:E4']. Merge;
Para formatar células:
1º você formata depois coloca o conteúdo, é + fácil.
2º formate assim...
Range(C5). Select
Selection.NumberFor mat = 0.00
ou
Cells(11, 3).Select
Selection.NumberFor mat = 0.00
ou
Range(C7). Select
Selection.NumberFor mat = m/d/yy
Excel.Cells. Item[1,2] .Select;
Excel.Selection. numberformat := '00' ; {Formata como CNPJ}
Excel.Cells. Item[1,2] .Select;
Excel.Selection. numberformat := '@'; {Formata como texto}
Excel.Cells. Item[1,2] .Select;
Excel.Selection. numberformat := '#,##0.00'; {Formata 1,00}
a célula deve receber apenas o mês e não um a data??
tente isso antes de passar o valor para a célula.
Range['A1', 'A1'].NumberFormat := '#';
Range[StrCell, StrCell].Value2 := grd.Columns[ NumColuna] .Field.Value;
if grd.Columns[ NumColuna] .Field.DataType in [ftdate, ftDateTime] then
Range[StrCell, StrCell].NumberForm at := 'dd/mm/' ;
if grd.Columns[ NumColuna] .Field.DataType in [ftFloat, ftCurrency] then
Range[StrCell, StrCell].NumberForm at := '#.##0,00';
Dê uma pesquisada em www.delphi.eti. br
Espero ter ajudado.
--- Em seg, 3/8/09, Paulo Pontes pontespaulo@ gmail.compontespaulo%
40gmail.com
escreveu:
De: Paulo Pontes pontespaulo@ gmail.com pontespaulo% 40gmail.com
Assunto: [delphi-br] Delphi X OpenOffice
Para: delphi...@yahoogrup os.com.br delphi-br%40yahoog rupos.com. br
Data: Segunda-feira, 3 de Agosto de 2009, 9:42
Pessoal, bom dia!
Alguém tem um exemplo aí de como formatar uma planilha do OpenOffice pelo
Delphi? Eu já implementei uma rotina aqui que faz a geração da planilha mas
não estou conseguindo formatá-la, principalmente: mesclar células e colocar
grade.
Obrigado!
[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]
[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] Sistema Completo para Transportadora
Veja se esta empresa atende. Eles tem sistemas, também, para transporte de cargas. www.bgmrodotec.com.br --- Em qua, 22/7/09, Jorge Ericsson jericsson...@gmail.com escreveu: De: Jorge Ericsson jericsson...@gmail.com Assunto: [delphi-br] Sistema Completo para Transportadora Para: Data: Quarta-feira, 22 de Julho de 2009, 23:12 Olá amigos, Tenho um cliente que precisa de uma sistema para transportadora que atenda as seguintes necessidades básicas como: Cadastro de Clientes Rotas Funcionários Cadastro de Frota Controle de Combustível Controle de Troca de Óleo Contas Naturezas de Operação Plano de Contas Formas de Pagamento Cadastro de Cedentes Instruções do Boleto Fluxo de Caixa Contas à Pagar Contas à Receber Boletos à Receber Duplicatas à Receber Adiantamento dos Motoristas Comissão dos Motoristas Conta Corrente dos Motoristas Cálculo do Transporte Controle de Cotações/Cálculos Ordem de Coleta Emissão do Conhecimento de Frete (CTRC) Impressão de Manifesto Emissão de Ordem de Serviço Controle de Carregamento Controle de Entregas Status das Frota Ordens de Coleta CTRC Emitidos Ordem de Serviço Consumo de Combustível Vencimentos de Doc. da Frota Acertos de Conta Histórico de Exclusões Gerador Sintegra Gerador de Arquivos EDI Gerador de Arquivos Contábil Recebimento de Arquivos EDI Infelizmente não tenho tempo para levantar os requisitos deste sistema e desenvolve-lo, por isso gostaria de falar em PVT sobre o assunto. Obs.: Dependendo do sistema, podemos conversar a respeito do código fonte, caso não seja negociável, que tenha a possibilidade de adequar o sistema as necessidades do cliente de forma rápida. Aguardo retorno, Jorge Ericsson S. Pinheiro http://www.jericsso n.com.br jericssonsup@ gmail.com jericssonsup@ hotmail.com skype:jericsson Brasília - DF [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] Dica ComboBox num String Grid
Adapte as suas necessidades.
colocar 1 combobox 1 um stringgrid;
OBS: depois que colocar o combobox e o stringgrid, clicar com o botão direito
sobre o combobox e clicar em Bring to Front.
procedure TForm1.FormCreate(Sender: TObject);
begin
{ Ajusta a altura do ComboBox com a altura da linha do StringGrid}
StringGrid1.DefaultRowHeight := ComboBox1.Height;
{Esconde o ComboBox}
ComboBox1.Visible := False;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row] :=
ComboBox1.Items[ComboBox1.ItemIndex];
ComboBox1.Visible := False;
StringGrid1.SetFocus;
end;
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row]
:= ComboBox1.Items[ComboBox1.ItemIndex];
ComboBox1.Visible := False;
StringGrid1.SetFocus;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer; var
CanSelect: Boolean);
var
R: TRect;
begin
if ((Col = 3) AND
(Row 0)) then begin
R := StringGrid1.CellRect(Col, Row);
R.Left := R.Left + StringGrid1.Left;
R.Right := R.Right + StringGrid1.Left;
R.Top := R.Top + StringGrid1.Top;
R.Bottom := R.Bottom + StringGrid1.Top;
ComboBox1.Left := R.Left + 1;
ComboBox1.Top := R.Top + 1;
ComboBox1.Width := (R.Right + 1) - R.Left;
ComboBox1.Height := (R.Bottom + 1) - R.Top;
ComboBox1.Visible := True;
ComboBox1.SetFocus;
end;
CanSelect := True;
end;
Espero ter ajudado.
--- Em qua, 22/7/09, Jose Newton Araujo jose.new...@jnewton.com.br escreveu:
De: Jose Newton Araujo jose.new...@jnewton.com.br
Assunto: [delphi-br] Dica ComboBox num String Grid
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 22 de Julho de 2009, 10:09
Pessoal, preciso de um help
Tem como colocar um Combo Box num string grid e fazer com que a célula
automaticamente assuma o valor definido no combo ?
Jose Newton
[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] Excluir linhas de excel como delphi
excel.rows[10].select; Excel.selection.entirerow.delete; Espero ter ajudado. --- Em sex, 26/6/09, rodrigoojapa rodrigooj...@hotmail.com escreveu: De: rodrigoojapa rodrigooj...@hotmail.com Assunto: [delphi-br] Excluir linhas de excel como delphi Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 26 de Junho de 2009, 11:14 Bom dia, Estou com uma duvida em relação ao modo de excluir no delphi. Tenho uma aplicação que pega dados de uma .txt e coloca em uma planilha de exce, mas como varia o tamanho dos valores a aplicação conta quantos valores tem e exclui as linhas a partir do ultimo dados. O problema é que o tamanho da planilha quando a aplicação salca não diminui, enquanto que era para diminuir.Uso o seguinte comando para excluir. Excel.WorkBook[ 1].Sheets[ 5].range[ ColI + ':' + ColF].delete E quando eu excluo no excel e salvo o tamano do arquivo diminui O que pode ser? 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] Erro na validação dos dados da NF-e.
Boa tarde pessoal, já postei o erro outra vez, porém coloquei uma imagem, e
notei que ninguém me respondeu, dai que fui na pagina do grupo e vi que
realmente meu e-mail não tinha ido, pois não vai anexo.
Então transcrevi o erro.
Falha na validação dos dados da Nota 0068
'CLASSESUBCLASSE 3 N RISCO 33 N ONU 1866 EMBIII' violates pattern constraint of
'[!-ÿ]{1}[ -ÿ]{0,}[!-ÿ]{1}|[!-ÿ]{1}'
The element '{htto://www.portalfiscal.inf.br/nfe}infAdProd' with value
'CLASSESUBCLASSE 3 N RISCO 33 N ONU 1866 EMBIII' failed to parse.
Segue abaixo a parte do xml dos produtos.
- det nItem=1
- prod
cProdKG290037/cProd
cEAN /
xProdALKIPOL 075/xProd
NCM39075010/NCM
genero39/genero
CFOP6101/CFOP
uComKilogr/uCom
qCom1./qCom
vUnCom12.1397/vUnCom
vProd12.14/vProd
cEANTrib /
uTribKilogr/uTrib
qTrib1./qTrib
vUnTrib12.1400/vUnTrib
/prod
- imposto
- ICMS
- ICMS00
orig0/orig
CST00/CST
modBC3/modBC
vBC12.14/vBC
pICMS12.00/pICMS
vICMS1.46/vICMS
/ICMS00
/ICMS
- PIS
- PISAliq
CST01/CST
vBC0.00/vBC
pPIS0.00/pPIS
vPIS0.00/vPIS
/PISAliq
/PIS
- COFINS
- COFINSAliq
CST01/CST
vBC0.00/vBC
pCOFINS0.00/pCOFINS
vCOFINS0.00/vCOFINS
/COFINSAliq
/COFINS
/imposto
infAdProdCLASSESUBCLASSE 3 N RISCO 33 N ONU 1866 GRUPO EMBIII/infAdProd
/det
- det nItem=2
- prod
cProdKG190027/cProd
cEAN /
xProdALKIPOL 38050 T/xProd
NCM39075010/NCM
genero39/genero
CFOP6101/CFOP
uComKilogr/uCom
qCom1./qCom
vUnCom10.9827/vUnCom
vProd10.98/vProd
cEANTrib /
uTribKilogr/uTrib
qTrib1./qTrib
vUnTrib10.9800/vUnTrib
/prod
- imposto
- ICMS
- ICMS00
orig1/orig
CST00/CST
modBC3/modBC
vBC10.98/vBC
pICMS12.00/pICMS
vICMS1.32/vICMS
/ICMS00
/ICMS
- PIS
- PISAliq
CST01/CST
vBC0.00/vBC
pPIS0.00/pPIS
vPIS0.00/vPIS
/PISAliq
/PIS
- COFINS
- COFINSAliq
CST01/CST
vBC0.00/vBC
pCOFINS0.00/pCOFINS
vCOFINS0.00/vCOFINS
/COFINSAliq
/COFINS
/imposto
infAdProdCLASSESUBCLASSE 3 N RISCO 33 N ONU 1866 GRUPO EMBIII/infAdProd
/det
Abraços
Fabio Szekut
_
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ACBrNFe - Erro ao validar NFe.
Estou com problemas quando na validação quanto a nota fiscal quando contém informações adicionais do produto com o componente ACBrNFe. Segue abaixo o erro. Alguém já teve problemas com isto? Abraços Fabio Szekut _ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto
André, baixei novamente, mas por CVS, não sei se é a mesma coisa, e vi que não existe esta propriedade, pode me mandar o caminho para atualização por SVN? Abraços Fabio Szekut _ From: André Moraes - Gmail Sent: Tuesday, June 02, 2009 8:26 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto A propriedade informação adicional já existe, o problema é que o DANFE ainda não foi adaptado para imprimir esta informação. Se vc estiver com a última versão do SVN, para acessar a propriedade, basta usar DadosProdutos.Add.InformacaoAdicional := 'Informacao Adicional'; André F. Moraes - Original Message - From: Fabio Szekut - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 02, 2009 12:44 AM Subject: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Olá, participo do grupo já algum tempo, quando penso em escrever para tirar uma dúvida, pesquiso e vejo que alguém já teve o problema e tem a solução. mas agora estou com um problema, e não consegui encontrar a solução. Estou usando o ACBrNFe, achei um componente excelente, parabéns quem teve a iniciativa. Mas não consigo encontrar a propriedade para colocar informações adicionais do produto, pois a empresa que vai utilizar a emissão de nota fiscal, usa componentes químicos e deve sair junto com o produto as informações toxicológicas, classes, coisas do tipo. Alguém sabe me dizer onde encontrar esta propriedade? Abraços Fabio Szekut _ [As partes desta mensagem que não continham texto foram removidas] [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] Projeto ACBrNFe - Dados adicionais do produto
Obrigado, apareceu agora a propriedade!! Mas outra dúvida, as das duplicatas, como inserir estas informações? Abraços Fabio Szekut _ From: André Moraes - Gmail Sent: Wednesday, June 03, 2009 3:17 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Vc deve baixar via SVN, o CVS não é atualizado desde 13/03/2009. Veja http://acbr.sourceforge.net/drupal/?q=node/37 André F. Moraes - Original Message - From: Fabio Szekut - Yahoo fabioszek...@yahoo.com.br To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 03, 2009 12:22 AM Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto André, baixei novamente, mas por CVS, não sei se é a mesma coisa, e vi que não existe esta propriedade, pode me mandar o caminho para atualização por SVN? Abraços Fabio Szekut _ From: André Moraes - Gmail Sent: Tuesday, June 02, 2009 8:26 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto A propriedade informação adicional já existe, o problema é que o DANFE ainda não foi adaptado para imprimir esta informação. Se vc estiver com a última versão do SVN, para acessar a propriedade, basta usar DadosProdutos.Add.InformacaoAdicional := 'Informacao Adicional'; André F. Moraes - Original Message - From: Fabio Szekut - Yahoo To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 02, 2009 12:44 AM Subject: [delphi-br] Projeto ACBrNFe - Dados adicionais do produto Olá, participo do grupo já algum tempo, quando penso em escrever para tirar uma dúvida, pesquiso e vejo que alguém já teve o problema e tem a solução. mas agora estou com um problema, e não consegui encontrar a solução. Estou usando o ACBrNFe, achei um componente excelente, parabéns quem teve a iniciativa. Mas não consigo encontrar a propriedade para colocar informações adicionais do produto, pois a empresa que vai utilizar a emissão de nota fiscal, usa componentes químicos e deve sair junto com o produto as informações toxicológicas, classes, coisas do tipo. Alguém sabe me dizer onde encontrar esta propriedade? Abraços Fabio Szekut _ [As partes desta mensagem que não continham texto foram removidas] [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]
[delphi-br] Projeto ACBrNFe - Dados adicionais do produto
Olá, participo do grupo já algum tempo, quando penso em escrever para tirar uma dúvida, pesquiso e vejo que alguém já teve o problema e tem a solução. mas agora estou com um problema, e não consegui encontrar a solução. Estou usando o ACBrNFe, achei um componente excelente, parabéns quem teve a iniciativa. Mas não consigo encontrar a propriedade para colocar informações adicionais do produto, pois a empresa que vai utilizar a emissão de nota fiscal, usa componentes químicos e deve sair junto com o produto as informações toxicológicas, classes, coisas do tipo. Alguém sabe me dizer onde encontrar esta propriedade? Abraços Fabio Szekut _ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Windows MediaPlayer em panel ??
Alessandra, Se utilizar o Delphi 2005 ou superior vá em component - Import Component selecione a opção Import ActiveX Control, selecione Windows Media Player e por ai vai, nunca usei este tipo de objeto mas sei que é por ai. No delphi 7 é no menu Component - Import ActiveX Control. 2009/5/24 alessandra porto alessandraport...@yahoo.com.br fabio pode ate ser o ''pro'' é que eu en tenho ideia de como fazer isso --- Em dom, 24/5/09, Fabio Thomaz fabio_...@yahoo.com.brfabio_thz%40yahoo.com.br escreveu: De: Fabio Thomaz fabio_...@yahoo.com.br fabio_thz%40yahoo.com.br Assunto: Re: [delphi-br] Windows MediaPlayer em panel ?? Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Domingo, 24 de Maio de 2009, 19:18 Será que não foi um controle ActiveX importado? 2009/5/24 alessandra porto alessandraporto11@ yahoo.com. br Vi em uma aplicação o uso do Windows MediaPlayer wm um panel é o proprio aplicativo do windows não o componente mediaplayer do delphi Alguem sabe dizer como isso é feito? E o legal da coisa é que o windowsmediaplayer já entra abrindo seu arquivo media.avi de sua aplicação. obs:o aplicativo fica somente dentro do panel. Alguem pode dar uma dica de como fazer isso? Abraços a todos. 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] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [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] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Windows MediaPlayer em panel ??
Será que não foi um controle ActiveX importado? 2009/5/24 alessandra porto alessandraport...@yahoo.com.br Vi em uma aplicação o uso do Windows MediaPlayer wm um panel é o proprio aplicativo do windowsnão o componente mediaplayer do delphi Alguem sabe dizer como isso é feito? E o legal da coisa é que o windowsmediaplayer já entra abrindo seu arquivo media.avi de sua aplicação. obs:o aplicativo fica somente dentro do panel. Alguem pode dar uma dica de como fazer isso? Abraços a todos. 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] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird no Vista
Já tentou instalar a versão mais recente do firebird? 2009/5/20 Vinicius da Silva Pinto vinic...@cnen.gov.br Amigos, preciso de uma dica, já procurei nas mensagens antigas da lista e no google, mais não consegui achar uma solução. instalei o FireBird 2.0 no laptop que esta com Vista Home. A instalação foi concluida, depois instalei o IBExpert trial que baixei da HKsoftware. Quando vou criar um banco novo, estou recebendo a seguinte mensagem: unsuccessful execution caused by an unavailable resource. unavailable database. Já desinstalei, desmarqui a opção que altera a GDS32.DLL e sempre o mesmo erro. Alguem tem alguma dica a ser usada na hora da instalação? Tenho que fazer algo diferente?? Obrigado a quem puder colaborar comigo.. Vinicius -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Atualizar IWDBLookupComboBox ao selecionar outro IWDBLookupComboBox
Olá amigos, Estou dando uma futucada no IntraWeb e não estou conseguindo fazer com que um componente IWDBLookupComboBox seja atualizado quando eu seleciono outro IWDBLookupComboBox, sendo que este, ao mudar de registro refaz uma consulta no dataset ligado no primeiro, Ex: iwdblcbTurmas - Está ligado do ClientDataSet cdsTurmas, que recebe os valores no IWAppFormCreate, ai tudo bem; iwdblcbDisciplinas - Está ligado do ClientDataSet cdsDisciplinas, que recebe os valores no onChange do iwdblcbTurmas, sendo que o ClientDataSet é preenchido mas o iwdblcbDisciplinas não é atualizado com os dados da consulta. Gostaria de saber se existe algum evento que dê um Refresh neste segundo componente para que as informações sejam exibidas. Desde já agradeço. Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Imagens JPEG no Rave
Ainda não havia pensado nisto, é uma idéia, mas mesmo assim deverei converter a jpeg para bmp quando gerar o relatório, pois o componente do rave não aceita o jpeg. 2009/5/8 jpsleao jpsl...@hotmail.com Vc já pensou em fazer esse relatório via código no delphi??? O relatório ficaria mais rápido (não precisa do arquivo .rav) e vc resolveria facilmente esse problema. João Paulo --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Fabio Thomaz fabio_...@... escreveu Já pensei nisto, mas em determinadas situações terei vários registros com imagens, e ai o processo de conversão deixará o aplicativo um pouco lento, sem dizer que em alguns testes que fiz ocorreram alguns erros ao exibir a imagem no rave depois de convertida. 2009/5/7 berdam berdamzi...@... pq q vc n tenta converter de jpeg para bmp e jogar no rave?? Fabio Thomaz escreveu: Olá amigos, Tenho um banco de dados de fotos, hoje em bmp devido o Rave não suportar jpeg, estou fazendo um outro sistema onde o banco de dados vai estar disponível para máquinas na internet, ai veio a necessidade de fazer com que este seja bem rápido, e para isto preciso gravar as imagens no banco como jpeg, mas o gerenciador de relatórios não tem suporte a este formato, alguém sabe se existe algum componente que eu possa instalar no rave para suportar este formato? Vi em uns fóruns que existe, mas não consegui acessar o local do componente no site da nevrona, o link estava corrompido. Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas] -- - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduado em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com - -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@... [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi2009 + Interbase Driver ? Firebird
Olá amigos, só para lembrar, este driver não continuará free, ele agora é comercializado pela IBExpert. Fonte: http://groups.google.com.br/group/tbodbxfb/browse_thread/thread/7e5a62f70736d725?hl=pt-BR Esta dll que usamos agora é este produto: http://ibexpert.net/ibe/index.php?n=Main.IBExpertDBX4Firebird 2009/5/11 Paulo Coutinho pa...@prsolucoes.com Obrigado galera pelas respostas. O endereço para baixar o driver do Thiago é: http://www.tbosystems.bluehosting.com.br/dbx4/ ?? Aqui não estou conseguindo acessar. 2009/5/11 Rubens Antunes rubensantu...@yahoo.com.brrubensantunes%40yahoo.com.br Paulo Eu estou utilizando o Drive do Interbase mesmo, mas utilizando a dll do Delphi 7, tem funcionado numa boa, o problema do campo Blob acabou. Sucesso Rubens Antunes Autor do Livro - Delphi Faça Uma Aplicação Comercial Blog http://rubensantunes.zip.net/ --- Em seg, 11/5/09, Bruno Lichot bruno.lic...@borland.combruno.lichot%40borland.com bruno.lichot%40borland.com escreveu: De: Bruno Lichot bruno.lic...@borland.com bruno.lichot%40borland.combruno.lichot% 40borland.com Assunto: RE: [delphi-br] Delphi2009 + Interbase Driver ? Firebird Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Data: Segunda-feira, 11 de Maio de 2009, 12:32 Salve Paulo, Existe o problema do driver ser do InterBase e não do FireBird, e como muita coisa foi mexida na API do FireBird pela sua equipe, a compatibilidade que existia do FireBird com o InterBase muito se perdeu e podem existir erros sim. Recomendo a voce utilizar um driver especifico como o do Thiago Borges que é gratuito ou o da corelab. Este driver do Thiago eu estou utilizando no site do DUG-SP - www.dug-sp.com Abs BL From: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] On Behalf Of Paulo Coutinho Sent: segunda-feira, 11 de maio de 2009 08:02 To: delphi...@yahoogrup os.com.br Subject: [delphi-br] Delphi2009 + Interbase Driver ? Firebird Olá galera, Estou utilziando o Delphi 2009 com dbExpress com o driver 'Interbase' para acessar minha base de dados firebird. Gostaria de saber se existe algum problema em relação a isso, em questão de performance, segurança, estabilidade e assuntos relacionados. -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes. com/blog Site: www.prsolucoes. com Msn: pa...@prsolucoes. com mailto:paulo% paulo%25 paulo%25 40prsolucoes. com [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] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Imagens JPEG no Rave
O problema não é este, é que o componente de imagem do rave só aceita imagens bmp. Deveria existir um outro para o formato jpeg. 2009/5/7 Marcio F. Cruz fo...@marciofcruz.com tente adicionar no uses do formulário a unit jpeg 2009/5/7 berdam berdamzi...@yahoo.com.br berdamzinho%40yahoo.com.br pq q vc n tenta converter de jpeg para bmp e jogar no rave?? Fabio Thomaz escreveu: Olá amigos, Tenho um banco de dados de fotos, hoje em bmp devido o Rave não suportar jpeg, estou fazendo um outro sistema onde o banco de dados vai estar disponível para máquinas na internet, ai veio a necessidade de fazer com que este seja bem rápido, e para isto preciso gravar as imagens no banco como jpeg, mas o gerenciador de relatórios não tem suporte a este formato, alguém sabe se existe algum componente que eu possa instalar no rave para suportar este formato? Vi em uns fóruns que existe, mas não consegui acessar o local do componente no site da nevrona, o link estava corrompido. Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas] -- - Uberdam Cavaletti Formado em Tecnologia da informação - Unoesc - Xxe Pós graduado em Desenvolvimento Java - Unoesc - Xxe Acesse http://www.curricular.com.br/berdam Acesse http://passandoveneno.blogspot.com - -- Márcio F. Cruz [As partes desta mensagem que não continham texto foram removidas] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Imagens JPEG no Rave
Olá amigos, Tenho um banco de dados de fotos, hoje em bmp devido o Rave não suportar jpeg, estou fazendo um outro sistema onde o banco de dados vai estar disponível para máquinas na internet, ai veio a necessidade de fazer com que este seja bem rápido, e para isto preciso gravar as imagens no banco como jpeg, mas o gerenciador de relatórios não tem suporte a este formato, alguém sabe se existe algum componente que eu possa instalar no rave para suportar este formato? Vi em uns fóruns que existe, mas não consegui acessar o local do componente no site da nevrona, o link estava corrompido. Fábio Thomaz [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ShowMessage('NAO FUNCIONA');
Tem que adicionar na clausla uses, o Dialogs;
From: wa...@oi.com.br
Sent: Wednesday, May 06, 2009 10:36 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] ShowMessage('NAO FUNCIONA');
Pessoal, vcs já me ajudaram antes, mas não estou me lembrando e estou
longe do meu computador principal.
Para que ShowMessage funcione em threads, for e whiles, tenho que
colocar antes uma chamada de um método que não me lembro agora,
Algo como Appication. não sei se é por ai.
Me ajudem a refrescar a velha memória,
Sds
Roberto
--
Na Oi Internet você ganha ou ganha. Além de acesso grátis com
qualidade, você pode ter contas ilimitadas de email com 1 giga cada
uma,
suporte grátis e muito mais. Baixe grátis o Discador Oi em
http://www.oi.com.br/discador e comece a ganhar.
Agora, se o seu negócio é voar alto na internet,
assine Oi Internet Banda Larga e ganhe o modem grátis. Clique em
http://www.oi.com.br/bandalarga e aproveite essa moleza!
[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] Class TQRLabel not found ???
Creio que são componentes do Quickreport (http://www.qusoft.com). 2009/4/26 nillgolv nillg...@bol.com.br Pessoal, ao tentar abrir o form de um fonte da o seguinte: ERROR Reading Form -- Class TQRLabel not found. Faltando estes componentes tambem: TQRSysData TQRImage TQRDBText Uso delphi 7, onde encontro estes componentes? -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com Rave Reports
Não seria apenas informar a propriedade ControllerBand do Band Component não? 2009/4/24 ott...@ymail.com ott...@ymail.com Bom dia Alguém sabe qual propriedade do databand do Rave Reports que não permite a impressão do databand mestre se o seu detalhe não tiver nenhum registro? Deste já agradeço qualquer ajuda. -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Timage
Compartilha a solução. --- Em qui, 26/3/09, Alexandre alexandresoare...@yahoo.com.br escreveu: De: Alexandre alexandresoare...@yahoo.com.br Assunto: Re: [delphi-br] Timage Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 26 de Março de 2009, 8:49 Eu percebi!Mas já achei uma solução para o meu problema. Alex - Original Message - From: Rubem Nascimento da Rocha To: delphi-br Sent: Wednesday, March 25, 2009 8:22 PM Subject: RE: [delphi-br] Timage TImage não tem propriedade para isso! Sds. To: delphi...@yahoogrup os.com.br From: alexandresoaressp@ yahoo.com. br Date: Wed, 25 Mar 2009 19:42:25 -0300 Subject: [delphi-br] Timage Pessoal como faço para recuperar o caminho completo da imagem lida em um Timage? Alex [As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video. msn.com/? mkt=pt-br [As partes desta mensagem que não continham texto foram removidas] __ Information from ESET NOD32 Antivirus, version of virus signature database 3958 (20090324) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. 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] Impressão Impressora Argox - Tipo Código de Barras
O problema pode estar na configuração de seu leitor... ele esta Habiltado a ler este tipo de código ? - Original Message - From: Timóteo M. Rico To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 05, 2009 10:21 AM Subject: [delphi-br] Impressão Impressora Argox - Tipo Código de Barras E ai pessoal... Estou desenvolvendo uma rotina para impressão de Código de Barras para impressora Argox na linguagem PPLA... Já estou com a rotina toda pronta, só tem um detalhe: Quando no código de barras tem letras e números juntos até imprimi certo, mas na hora do leitor ler ele troca alguns caracter, por exemplo: Impressão código de barras : cc2163-05 o leitor lê OO2163-05... E São vários caracter que ele troca na hora da leitura... Acredito que o erro esteja no padrão do Código de Barras utilizado... O Sistema teria que aceitar qualquer caracter para código de barras, números,letras, sinais... Abaixo está um exemplo do código PPLA: Codigo_Barras_PPLA(1, //Orientacao 'O', //Tipo_Codigo_Barra //a '2', //Largura_Barra_Larga//5 '1', //Largura_Barra_Fina 70, //Altura_Barra 100, //Eixo_Y 200, //Eixo_X cc2163-05);//código de barras Acredito que tenho que mudar o tipo de código de barras que está marcado com a letra O... Se alguém souber qual caracter que tenho que alterar no lugar do O para os códigos de barra imprimirem no padrão que preciso (letras, números, sinais)... Desde já agradeço... Até... -- Timóteo Matthies Rico [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Interface com cameras IP
Caros Senhores Sou novo na lista e gostaria de um auxílio. Alguém já trabalhou com interface de cameras IP ? Obrigado Fabio Bairros
[delphi-br] Manter o programa sempre ativo
Pessoal, boa tarde. Desejo fazer um programa simples que faça uma tarefa simples: O programa deve deixar a janela ativa sempre ativa, ou seja: supondo que estou trabalhando com o word, daí de repente o windows manda um alerta sobre qualquer coisa, ou outro aplicativo que faz aparecer um alerta na tela, por cima do word. Isso faz o word perder o foco e alguns caracteres que eu estava digitando. Portanto, quero que minha aplicação funcione em background monitorando a janela ativa e não deixando outro aplicativo aparecer de repente e faze-la perder o foco. Alguém ajuda? Fabio.
Re: [delphi-br] Rave Reports - Geração de etiqueta s
Tânia, Por um acaso vc sabe se tem como estar gerando estas etiquetas via código com código de barras? O exemplo que vem com o Rave da pasta Demos mostra como gerar as etiquetas, mas não sei se tem como incluir o código de barras. Ou talvez exista até uma outra forma de se fazer isto, gostaria que fosse via código pois assim ficaria mais fácil customizar. 2009/2/19 Tânia Salgado tanias...@yahoo.com.br Oi Natanael, estou enviando dois exemplos de etiqueta q tenho aqui.. havia baixado qdo estava aprendendo a fazer relatório no rave.. o RaveLabels é com rave só por código, o RaveBarCod2 é etiqueta com código de barras com arquivo. Tânia --- Em qui, 19/2/09, Natanael Rodrigues nr.n...@gmail.comnr.news%40gmail.com escreveu: De: Natanael Rodrigues nr.n...@gmail.com nr.news%40gmail.com Assunto: [delphi-br] Rave Reports - Geração de etiquetas Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quinta-feira, 19 de Fevereiro de 2009, 11:24 Bom dia pessoal, Estou começando a mexer com o Rave agora, demorei, mas consegui me livrar da era Crystal Reports. Minha dúvida é quanto a gerar etiquetas pelo rave, alguem tem algum tutorial ou consegui me dar um help nesse sentido, já procurei no tio Google, mas sem sucesso. Meu formulário terá 5 colunas de etiquetas... como fazer isso? Grato pela ajuda. Natanael. [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] -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arquivo XML
Ainda não estou conseguindo, veja como estou fazendo:
//Carrego XML Anterior
cds1.LoadFromFile('Origem.xml');
cds1.Close;
//Adiciono o Campo Desejado
cds1.FieldDefs.Add('NovoCampo',ftString,10,False);
cds1.FieldDefs.Update;
cds1.CreateDataSet;
//Salvo o XML
cds1.SaveToFile('Destino.xml',dfXML);
//Depois Carrego o Novo XML
cds1.LoadFromFile('Destino.xml');
O que estou fazendo de errado? O XML de destino continua igual o de origem.
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Msn: fa...@rgsystem.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Assunto repetido?
Isso. Estou me referindo à ClubeDelphi sim. Não estou reclamando. Só gostaria de saber se é, como você sitou, um assunto com abordagem diferente. Obrigado pela atenção. --- Em qua, 11/2/09, Ricardo César Cardoso ricardo_engs...@yahoo.com.br escreveu: De: Ricardo César Cardoso ricardo_engs...@yahoo.com.br Assunto: Re: [delphi-br] Assunto repetido? Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 11 de Fevereiro de 2009, 15:20 Acho que vc se refere a revista ClubeDelphi, não é? Olha, se não me engano a matéria de capa da Edição 70 era sobre testes automatizados (discutido na edição 102) mas esse assunto de DataSnap já esteve em alguma outra capa da CD, sim. Mas não acho ruim não, pois a abordagem é diferente. É uma implementação diferente da mesma tecnologia (DataSnap, no caso) []'s Ricardo. _ _ _ _ _ _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 11/2/09, fabio_giro fabio_g...@yahoo. com.br escreveu: Esta pergunta é para aqueles que assinam a revista a algum tempo. O assunto da revista nº 103 é o mesmo da revista nº 70? Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com 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] Arquivo XML
Olá amigos,
Tenho um arquivo XML com vários registros, gostaria de saber se alguém
sabe como fazer para que eu possa adicionar mais um Field dentro deste
arquivo.
Já tentei cds.FieldDefs.Add('NomeCampo',ftString,10,False) e depois
cds.SaveToFile('',dfXML) más o campo não é incluso no arquivo xml, alguma
idéia?
Ex.:
cds1.FieldDefs.Add('Campo',ftString,10,False);
cds1.FieldDefs.Update;
cds1.SaveToFile('NovaTabela.xml',dfXML);
Desde já agradeço.
--
Fábio Thomaz
RG System Informática Ltda - Desenvolvimento
Msn: fa...@rgsystem.com.br
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Condenacao Daruma
Não estou defendendo ninguém, mas uma história sempre tem dois lados: NOTA DE ESCLARECIMENTO AOS PARCEIROS DARUMA A Daruma tem investido de forma contínua e maciça no segmento de automação, tendo uma das melhores equipes de desenvolvedores de drivers e de suporte aos desenvolvedores de softwares do país, utilizando-se de recursos internos e de convênios para PD estabelecidos com Universidades em São José dos Campos e Fortaleza. Além disso, a Daruma tem com as software houses e os canais de vendas as suas verdadeiras parceiras que fomentam um crescimento mútuo nesse segmento, mantendo em relação a eles grande consideração e respeito, ao contrário de outras empresas que os têm como concorrentes. Com base neste respeito aos nossos parceiros e clientes, vimos a público esclarecer os fatos que se seguem: Como é de amplo conhecimento, existe entre a Daruma e a Bematech Indústria e Comércio de Equipamentos S/A uma discussão judicial sobre o driver Daruma32.DLL, tido por esta última como contrafação do Bemafi32.DLL. Alega a Bematech que a Daruma, através do Sr. Claudenir Campos Andrade, teria infringido a Lei de Propriedade Industrial, criando o seu driver por meio de informações obtidas ilegalmente, fruto do desenvolvimento do Bemafi32.DLL. O esclarecimento completo esta no link: http://www.desenvolvedoresdaruma.com.br/DDCWebNOVO/downloads/Site_2009/Notic ias/Carta_Esclarecimento_aos_parceiros_Daruma.pdf Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços E-mail: fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br http://www.grupocoan.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quinta-feira, 29 de janeiro de 2009 16:21 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Condenacao Daruma Tem outra coisa. Uma empresa só tem o direito de reivindicar, judicialmente, direitos autorais a nivel de projeto de software se sas ferramentas, nas quais os mesmos foram feitas, forem legalizadas. Se for constatado que as ferramentas são piratas então ela ainda toma é um nabo por pratica de pirataria. A primeira coisa que o Juiz vai pedir é as licenças da ferramenta de desenvolvimento. Então Coutinho, se lá tudo era pirata, pode sair por aí usando e aplicando Flash-Filer a vontade porque a unica coisa que eles vão ter direito é de chorar na cama... []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Coutinho - Yahoo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, January 29, 2009 10:52 AM Subject: Re: [delphi-br] Condenacao Daruma Também acho amigo, mas na época estava precisando da vaga... e aí... de qualquer forma, o período que passei nessa emrpesa não foi longo... e pasme... eles me demitiram por telefone, quando estava enfermo em casa, com atestado médico... Se eu quisesse fazer uma celeuma, podia ter arrancado um dinheiro deles, mas como também já estava insatisfeito, deixei a coisa rolar... Eu podia ter sacaneado os caras de montão... Eles pagavam 40% na cartei ra e o resto por fora... podia ter pedido para recolherem meu inss integral, provar em juízo que eles sonegavam e a zorra, mas não conseguia mais nem falar o nome da desgraçada da empresa, pois fui chamado para fazer uma coisa, acabei fazendo outra, o que eles me convidaram para tocar, deram para outro, e foi uma JOSTA... mas a vida é cíclica, e hoje, espero que tenham aprendido, e eu estou de bem com minha consciência! Isso foi há muito tempo... final dos aos 90... Para vc ver, o Flash-Filer era novidade!!! Abraços __ Emanuel Coutinho Salvador-Ba-Brasil *Walter Chagas (Bol) escreveu:* *Ue, mas peraí! ferramentas de terceiros que eles usam e QR-Design sequer os direitos autorais destes produtos são deles. Acho que abusaram da sua necessidade da vaga e lhe fizeram assinar isto sob a filosofia do ou dá ou desce. Queria ver eles levaram isso pro pau, se iriam ganhar. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr * * * -- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Ler Tag do Menu e SubMenus....
Amigo aconselho você trabalhar com recursividade, pois o menu tem uma coleção de submenus e os submenus possui uma coleção de submenus e assim por diante. Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços E-mail: fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br http://www.grupocoan.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de vin_monteiro2003 Enviada em: segunda-feira, 26 de janeiro de 2009 09:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Ler Tag do Menu e SubMenus Olá José Henrique... Obrigado por ter respondido... Mas é esse laço que eu não consegui fazer no final de semana Tem alguma dica de qual propriedade devo trabalhar ? Obrigado --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , José Henrique (Zote) z...@... escreveu Pra cada menu, você deverá listar os submenus dele. -- José Henrique (Zote) Analista de TI Bludata Software De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi- b...@yahoogrupos.com.br mailto:br%40yahoogrupos.com.br ] Em nome de vin_monteiro2003 Enviada em: segunda-feira, 26 de janeiro de 2009 09:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] Ler Tag do Menu e SubMenus Delphi 7 Bom dia, Estou pensando em colocar o controle da minha aplicação no tag do menu... Só que não consigo fazer a leitura dos tags que estão nos submenus... for i:= 0 to _mnuPrincipal.items.Count - 1 do // ele só me traz a quantidade de items do menu raiz Como poderia ler também os tags que estão nos submenus, sabendo que estes submenus podem também ter submenus... exemplo Arquivo tag - 1 Cadastros tag -4 Clientes -8 Clientes - 9 Autorizados - 10 Obrigado por toda a ajuda... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi Prism X VS 2008
Na empresa onde trabalho usamos para desenvolvimento Web Delphi 2006 + FrameWork 1.1 e Win32 o Delphi 2006 + Componentes, estamos querendo mudar o Framework de desenvolvimento Web para 3.5, certo de que teremos que fazer a migração da versão do .NET Delphi 2007 somente framework 2.0; Delphi 2009 separou a parte de .NET do Delphi e agora é chamado de Delphi Prism com linguagem Oxygene integrada no VS 2008 e O.O.; Sera que esse Oxygene vai para frente vale a pena mudar os nossos Sistema Web para Oxygene e continuar o desenvolvimento Win 32 em Delphi ou mudar para VS 2008 e aprender C# ou VB.net e usar framework no desenvolvimento Win32?! Fico no aguardo da opnião de vocês; Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços E-mail: mailto:fabio.l...@grupocoan.com.br fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br/ http://www.grupocoan.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Login AD
Alguém sabe como implementar a autenticação do usuário no AD usando framework 1.1 e BDS 2006? Procurei por exemplos mas em sua maioria são para o framework 2.0 em diante, porém ainda uso o 1.1. Obrigado a todos. Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços E-mail: mailto:fabio.l...@grupocoan.com.br fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br/ http://www.grupocoan.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Homologação NF-e
Boa tarde a todos! Temos uma seguinte dúvida aqui na empresa. Uma empresa do grupo onde trabalho terá a necessidade de emitir NF-e e a versão do sistema atual não tem esta funcionalidade. O fornecedor desta ferramenta disse que teremos que atualizar para uma versão mais nova que possui esta funcionalidade, concordo plenamente com esta postura. Porém o diretor da empresa questionou se há realmente a necessidade de atualização e se esta necessidade vem por conta da versão estar homologada junto ao governo e sendo somente ela autorizada a emitir a NF-e. Basicamente o diretor da empresa quer ter certeza de que há outra maneira de se obter esta funcionalidade, deixando como ultimo recurso a atualização de versão. Fábio Lima de Oliveira Analista de Sistema E-mail: mailto:fabio.l...@grupocoan.com.br fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br/ http://www.grupocoan.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de Gestão Escolar
Trabalho com um sistema escolar! Sistema já implantado em diversas escolas municipais, estaduais e particulares, controla mais de uma escola, tem toda a parte financeira, inclusive uma ótima área gerencial tanto financeira como pedagógica, entre em contato em PVT que te passo mais informações. 2009/1/5 gilberto_rr gilberto...@yahoo.com.br Alguém possui um Sistema de Gestão Escolar concluído e disponível para comercialização? O Sistema deve possuir ao menos os seguintes módulos: matrícula, rematrícula, transferência, montagem de turmas, controle de notas e situação do aluno, boletim, histórico escolar, contas a pagar/receber (em aberto, vencidas, pagas), mensalidades (em aberto, vencidas, pagas). Aguardo contatos, obrigado! -- Fábio Thomaz RG System Informática Ltda - Desenvolvimento Fone: (27) 3727-1127 Celular: (27) 9947-0459 Msn: fa...@rgsystem.com.br [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Multi-Thread
José obrigado pela resposta. Eu já estou ativando o Map detalhado na minha aplicação, porém infelizmente não esta dando certo desta maneira. Com outros erros o log aponta exatamente o local, sem problemas. Quanto a sessões críticas, vou tentar implementar se a minha alteração (citada na resposta anterior não der certo). Uma dúvida quanto as sessões críticas: Em um exemplo que encontrei na net - http://delphi.about.com/gi/dynamic/offsite.htm?zi=1/XJ/Ya http://delphi.about.com/gi/dynamic/offsite.htm?zi=1/XJ/Yasdn=delphicdn=co mputetm=96f=00tt=14bt=0bts=0zu=http%3A//www.delphicorner.f9.co.uk/arti cles/op4.htm sdn=delphicdn=computetm=96f=00tt=14bt=0bts=0zu=http%3A//www.delphico rner.f9.co.uk/articles/op4.htm Este exemplo ele explica bem, mas o única problema que encontrei em implementar esta rotina, foi que no exemplo ele utiliza thread fixas, ou seja ele sabe quantas serão geradas, no meu caso eu não, pois elas são geradas dinamicamente. Você já chegou a usar desta maneira? Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços E-mail: fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br http://www.grupocoan.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de José Mário Silva Guedes Enviada em: segunda-feira, 5 de janeiro de 2009 10:53 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Multi-Thread Para achar o local exato do seu Access Violation, procure na web o AVFinder.exe. Acho que será bem útil no seu caso. Para usá-lo você tem que ativar a geração do arquivo MAP (Project-Options-Linker-Map File-Detailed). Sugiro sempre, caso não esteja utilizando, o uso da seção crítica para se trabalhar com threads. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Multi-Thread
Renato, bom dia! Desde já agradeço pela sua resposta. Os métodos que alteram a VCL já estão declarados como seguro. O que estou pensando em fazer é colocar um tempo maior para disparar Threads e também as mesmas serem disparadas por um único timer também. Assim que eu tiver uma posição sobre esta alteração eu posto na lista. Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços E-mail: fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br http://www.grupocoan.com.br/ De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Paulo Coutinho Enviada em: terça-feira, 30 de dezembro de 2008 20:52 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Multi-Thread O método serve apenas para quando você for alterar algo visualmente direto da thread, tornando ela uma safe thread. Se na thread você quiser alterar sua progressbar, use este método seguro para fazer tal ação. Claro que isso não é uma solução para o seu problema, mas deve ajudar. Abs. 2008/12/30 Fabio Lima fabio.l...@grupocoan.com.br mailto:fabio.lima%40grupocoan.com.br Boa tarde pessoal! Estou desenvolvento um sistema que trabalha com várias Threads. O sistema tem a função de extrair dados dos servidores e geram um arquivo .txt que é importado por outra Thread. Lendo em alguns artigos vi que os métodos que não alteram algo dentro da VCL não devem utilizar o Synchronize. O sistema roda tranquilamente durante uns 4 minutos e log em seguida acaba gerando vários Access Violation, para tentar encontrar o problema eu utilizei o componen Expression Manager para gerar os logs incluisive o call Stack. Um exmeplo dos logs segue abaixo: Tipo : EAccessViolation ( EExternal ) Unit : Classes Linha : Unknown Classe : Classes Função : TComponent.Notification Endereço : 0x0042AA68 Sender Class : TTimer TComponent TPersistent TObject Sender Name : tmrPing Ip : 121.120.119.142 Mem Total(Kb) : 515.180 Ko Mem Disp(%) : 94 % Mem Virtual(Kb) : 2.097.024 Ko Mem Vir Disp(Kb): 2.064.796 Ko Pag Total(Kb) : 1.259.336 Ko Pag Disp(Kb) : 409.056 Ko Mensagem : Access violation at address 0042AA68 in module 'Monitoramento.exe'. Read of address 0830 Call Stack : U_XAM_Debug::U_XAM_Debug.TXAMDebug.GetCallStack U_XAM_Debug::U_XAM_Debug.TXAMDebug.GetExceptionInfos U_XAM_Debug::U_XAM_Debug.TXAMDebug.ProcessException U_XAM_Debug::U_XAM_Debug.TXAMDebug.HandleException Forms::Forms.TApplication.HandleException Classes::Classes.StdWndProc Windows::Windows.HwndMSWheel ActiveX::ActiveX.SafeArrayGetUBound SysConst::ActiveX.Succeeded SysConst::ActiveX.Succeeded Variants::varian...@varfromlstr Variants::varian...@vartoint64 Classes::Classes.TComponent.DestroyComponents Classes::Classes.TThread.CheckThreadError Menus::Menus.TMenu.UpdateImage Menus::Menus.TMenu.AdjustBiDiBehavior StdCtrls::StdCtrls.TCustomGroupBox.AdjustClientRect StdCtrls::StdCtrls.TCustomGroupBox.Create SysUtils::SysUtils.ShowException System::System.ParamCount SysUtils::SysUtils.ScanTime Já tentei analizar este log, principalmente tentar encontrar uma explicação para o Access violation. Se alguém analizando este log conseguir encontrar algo que possa me ajudar agradeço. Aproveitando, Feliz Ano Novo a todos. Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços Fone: +55 15 3282-9050 Ramal: 9050 Cel: 19 9187-4192 E-mail: mailto:fabio.l...@grupocoan.com.br mailto:fabio.lima%40grupocoan.com.br fabio.lima%40grupocoan.com.br fabio.l...@grupocoan.com.br mailto:fabio.lima%40grupocoan.com.br fabio.lima%40grupocoan.com.br Site: http://www.grupocoan.com.br/ http://www.grupocoan.com.br [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Site: www.prsolucoes.com Msn: pa...@prsolucoes.com mailto:paulo%40prsolucoes.com Skype: paulo.prsolucoes [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Multi-Thread
Boa tarde pessoal! Estou desenvolvento um sistema que trabalha com várias Threads. O sistema tem a função de extrair dados dos servidores e geram um arquivo .txt que é importado por outra Thread. Lendo em alguns artigos vi que os métodos que não alteram algo dentro da VCL não devem utilizar o Synchronize. O sistema roda tranquilamente durante uns 4 minutos e log em seguida acaba gerando vários Access Violation, para tentar encontrar o problema eu utilizei o componen Expression Manager para gerar os logs incluisive o call Stack. Um exmeplo dos logs segue abaixo: Tipo: EAccessViolation ( EExternal ) Unit: Classes Linha : Unknown Classe : Classes Função : TComponent.Notification Endereço: 0x0042AA68 Sender Class: TTimer TComponent TPersistent TObject Sender Name : tmrPing Ip : 121.120.119.142 Mem Total(Kb) : 515.180 Ko Mem Disp(%) : 94 % Mem Virtual(Kb) : 2.097.024 Ko Mem Vir Disp(Kb): 2.064.796 Ko Pag Total(Kb) : 1.259.336 Ko Pag Disp(Kb): 409.056 Ko Mensagem: Access violation at address 0042AA68 in module 'Monitoramento.exe'. Read of address 0830 Call Stack : U_XAM_Debug::U_XAM_Debug.TXAMDebug.GetCallStack U_XAM_Debug::U_XAM_Debug.TXAMDebug.GetExceptionInfos U_XAM_Debug::U_XAM_Debug.TXAMDebug.ProcessException U_XAM_Debug::U_XAM_Debug.TXAMDebug.HandleException Forms::Forms.TApplication.HandleException Classes::Classes.StdWndProc Windows::Windows.HwndMSWheel ActiveX::ActiveX.SafeArrayGetUBound SysConst::ActiveX.Succeeded SysConst::ActiveX.Succeeded Variants::varian...@varfromlstr Variants::varian...@vartoint64 Classes::Classes.TComponent.DestroyComponents Classes::Classes.TThread.CheckThreadError Menus::Menus.TMenu.UpdateImage Menus::Menus.TMenu.AdjustBiDiBehavior StdCtrls::StdCtrls.TCustomGroupBox.AdjustClientRect StdCtrls::StdCtrls.TCustomGroupBox.Create SysUtils::SysUtils.ShowException System::System.ParamCount SysUtils::SysUtils.ScanTime Já tentei analizar este log, principalmente tentar encontrar uma explicação para o Access violation. Se alguém analizando este log conseguir encontrar algo que possa me ajudar agradeço. Aproveitando, Feliz Ano Novo a todos. Fábio Lima de Oliveira Analista de Sistema Grupo Coan Alimentos Serviços Fone: +55 15 3282-9050 Ramal: 9050 Cel: 19 9187-4192 E-mail: mailto:fabio.l...@grupocoan.com.br fabio.l...@grupocoan.com.br Site: http://www.grupocoan.com.br/ http://www.grupocoan.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usando Indy - SMTP
A porta do yahoo é 587. --- Em sáb, 27/12/08, Dener (SOFTClass) lis...@softclass.com.br escreveu: De: Dener (SOFTClass) lis...@softclass.com.br Assunto: Re: [delphi-br] Usando Indy - SMTP Para: delphi-br@yahoogrupos.com.br Data: Sábado, 27 de Dezembro de 2008, 14:19 Amarra o IdSMTP com um componente IdSSLIOHandlerSocke tOpenSSL (Indy 10) no Indy 9 eu tentei e não consegui fazer funcionar, segue o meu código, testei com gmail, terra e uol. // Conecta with IdSMTP do begin Host := SMTPServidor; Username := SMTPUsuario; Password := SMTPSenha; Port := SMTPPorta; AuthType := satNone; if SMTPAutenticar = 'S' then AuthType := satDefault; IdSMTP.IOHandler := nil; if SMTPSSL = 'S' then begin IdSMTP.IOHandler := IdSSL; UseTLS := utUseRequireTLS; end; with IdLog do begin Filename := 'C:\LOG.LOG' ; IdSMTP.Intercept := IdLog; Active := (SMTPLog='S' ); end; try Connect; if SMTPAutenticar = 'S' then Authenticate; except on Erro:Exception do begin MsgMensagem := 'Não foi possível conectar ao servidor'; MsgAjuda := 'Erro informado:'+ #13+#10+Erro. Message; MsgError; Exit; end; end; end; // Envia o email try with IdSMTP do begin try Send(IdSMTPMessage) ; finally Disconnect; end; end; except on Erro:Exception do begin MsgMensagem := 'Erro no envio das informações'; MsgAjuda := 'Erro informado:'+ #13+#10+Erro. Message; MsgError; Exit; end; end; Tenta aí, se não der te mando o pedaço do código que controlo isso. Dener Coutinho - Yahoo escreveu: Pessoal Tenho feito meus envios de e-mail, usando o componente da Jedi... agora, tenho tentado usar a Indy. Quando uso o servidor de smtp do provedor Terra, com a porta 25, funciona que é uma beleza, mas quando uso o do yahoo, ou gmail, etc... porta 465 a coisa pega... dá um erro de socket, e aí fiquei vendido, pois tentei achar pelo google e até no próprio site da Indy sobre envio de e-mail para servidores com conexão segura, e dei com os burros n'água. Alguém já conseguiu fazer isso, e pode me dar uma LUZ? Desde já agradeço. Emanuel Coutinho 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] Unit Banco Real
Pessoal, alguem poderia me enviar a unit do Banco Real?
[delphi-br] Tabela com CEP
Moçada, onde encontro uma tabela em Firebird com os CEP cadastrados? grato, Fabio.
[delphi-br] Botão na IntraWeb não funciona.
Estou aprendendo Intraweb. Tenho um sistema em Win32 e estou usando-o como base (aproveitando o desenho da tela e lógica, porém com componentes IntraWeb) para fazer um sistema em IntraWeb. O menu principal funciona. A grid da tela de cadastro traz os dados., mas um botão simples não. O botão tem a seguinte lógica: procedure TIWForm2.IWButton1C lick(Sender: TObject); begin WebApplication. showmessage( 'Registro já existe'); end; O que será que está faltando? Uso Delphi 7 Enterprise. Obrigado. 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] Não consigo mudar o hei ght e width
Sim, verifiquei. Infelizmente concluí que no Delphi 7 não dá pra fazer o form ter dimensões maiores que a resolução do monitor. Fabio. Eric Roberto Darruiz escreveu: Já verificou a propriedade Constraints do form (MaxHeight, MinHeight, MaxWidth e MinWidth)? Defina os 4 para 0 e tente alterar novamente o tamanho e largura do form. []'s Eric - Original Message - From: Juliano Silva - Yahoo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, November 25, 2008 10:16 AM Subject: RES: [delphi-br] Não consigo mudar o height e width Bom dia Vou dizer uma besteira, acredito que já deva ter tentado, altera as propriedades PrintScale = poProportional WindowsState =wsMaximized Mas acredito que você já deva ter tentado isso... Juliano 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 Fabio R Cardoso Enviada em: segunda-feira, 24 de novembro de 2008 19:08 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br; [EMAIL PROTECTED] mailto:lista-delphi%40yahoogrupos.com.br Assunto: [delphi-br] Não consigo mudar o height e width Senhores, até me dá vergonha me dizer isso, mas não consigo mudar o height e o width do meu form. É o seguinte, desenvolvi um sistema para um cliente que usa resolução 1440x990. Porém o meu PC é o clássico 1024x768. Agora preciso ajustar os forms para a resolução dele, compilar e entregar. Porém, 1024x768 é a resolução máxima do meu monitor e não consigo alterar as propriedades width e height do meu form. Quando altero, por exemplo, o width para 1440, o Delphi muda sozinho para 1036. As propriedades Autosize e Autoscroll estão como False. Fabio. __ Informação do NOD32 IMON 3637 (20081124) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Não consigo mudar o height e width
Senhores, até me dá vergonha me dizer isso, mas não consigo mudar o height e o width do meu form. É o seguinte, desenvolvi um sistema para um cliente que usa resolução 1440x990. Porém o meu PC é o clássico 1024x768. Agora preciso ajustar os forms para a resolução dele, compilar e entregar. Porém, 1024x768 é a resolução máxima do meu monitor e não consigo alterar as propriedades width e height do meu form. Quando altero, por exemplo, o width para 1440, o Delphi muda sozinho para 1036. As propriedades Autosize e Autoscroll estão como False. Fabio.
[delphi-br] Filtrando dados
Senhores, quero fazer o seguinte: possuo três tabelas listadas abaixo. FORNECEDORES forne_codigo integer not null primary key fone_nome varchar(50) PRODUTOS produ_codigo integer not null primary key produ_codigofornecedor* integer not null produ_descricao varchar(50) * FK com tabela fornecedores ITENS_DE_COMPRA icomp_codigo integer not null primary key icomp_codigoproduto* integer not null icomp_codigofornecedor** integer not null * FK com tabela produtos ** FK com tabela fornecedores Pergunto: Quando manipulo ITENS_DE_VENDA, tenho um dblookupcombobox que lista os fornecedores. Certo. Logo abaixo, tenho outro que lista os produtos. Quase certo. Quero que esse último liste apenas os produtos cadastrado com o fornecedor selecionado no primeiro dblookupcombobox. Sem usar filtro em tabela nem SQL diferente. Eu já fiz isso uma vez usando campos lookup e os ditos dblookupcombobox. Porém, não me lembro como. Fabio.
Re: [delphi-br] Relação muitos-para-muitos. . socorro!
Resolvido. Muito obrigado a Alosi e JB! abraço a todos. Fabio.
[delphi-br] Executar evento do botão na IntraWeb
Seguindo meus testes, criei uma tela de cadastro (código e nome). No botão
Consultar, dei duplo clique e coloquei uma rotina. Fez nada. Coloquei um
BreakPoint. Não passa. Fui na propriedade ScriptEvents e coloquei a mesma
rotina. Nada. No botão Voltar, o mesmo problema. Falta alguma coisa? A rotina é
essa:
procedure TiwCadSind.btConsultarClick(Sender: TObject);
begin
if strtointdef(trim(meCodigo.text),0) = 0 then
begin
WebApplication.showmessage('Código não informado');
meCodigo.setfocus;
exit;
end;
AtualizaTela; // mostra os dados na tela
if trim(chave_ant) = '' then
WebApplication.showmessage('Registro não encontrado');
end;
procedure TiwCadSind.btVoltarClick(Sender: TObject);
begin
Release;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Executar evento do botão na IntraW eb
O código está lá. Coloquei o breakpoint neste evento, mas não passa lá. --- Em sex, 7/11/08, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: De: Eduardo Silva dos Santos [EMAIL PROTECTED] Assunto: Re: [delphi-br] Executar evento do botão na IntraWeb Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 7 de Novembro de 2008, 14:05 seleciona o botão e no object inspector vai a aba events.. e veja se ta no evento onClick,, só pra confirmar.. se estiver depure o código que tem algo nele.. 2008/11/7 fabio giro [EMAIL PROTECTED] com.br Seguindo meus testes, criei uma tela de cadastro (código e nome). No botão Consultar, dei duplo clique e coloquei uma rotina. Fez nada. Coloquei um BreakPoint. Não passa. Fui na propriedade ScriptEvents e coloquei a mesma rotina. Nada. No botão Voltar, o mesmo problema. Falta alguma coisa? A rotina é essa: procedure TiwCadSind.btConsul tarClick( Sender: TObject); begin if strtointdef( trim(meCodigo. text),0) = 0 then begin WebApplication. showmessage( 'Código não informado'); meCodigo.setfocus; exit; end; AtualizaTela; // mostra os dados na tela if trim(chave_ant) = '' then WebApplication. showmessage( 'Registro não encontrado') ; end; procedure TiwCadSind.btVoltar Click(Sender: TObject); begin Release; end; -- . . . . ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com.br/ . . . . ... [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Executar evento do botão na IntraW eb
- Stand Alone - voltar ao form anterior Estou usando D7. --- Em sex, 7/11/08, Jackson Gomes - ToolsComps [EMAIL PROTECTED] escreveu: De: Jackson Gomes - ToolsComps [EMAIL PROTECTED] Assunto: Re: [delphi-br] Executar evento do botão na IntraWeb Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 7 de Novembro de 2008, 15:18 rotina. Nada. No botão Voltar, o mesmo problema. Falta alguma coisa? A rotina é essa: procedure TiwCadSind.btConsul tarClick( Sender: TObject); Mas vc está debugando via Stand Alone server ou via DLL? procedure TiwCadSind.btVoltar Click(Sender: TObject); begin Release; end; Qual o seu objetivo aqui? Terminar com a aplicação? Voltar a um form anterior? Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsand comps.com Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps e-mail: [EMAIL PROTECTED] ps.com Fone: 27 3389 1138 - 8811 0324 - - - - - - http://jacklovesdel phi.blogspot. com - Delphi, Intraweb, etc - - - - - - Devhost - Webhost para desenvolvedores Delphi http://www.devhost. com.br [EMAIL PROTECTED] com.br Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] IntraWeb com D7
Pq vc não parte logo para o ASP.NET, com o DELPHI.DOT. Inclusive é uma boa maneira, de ficar em dia com o mercado, que agora aponta fortemenet para DOT.NET e/ou JAVA. Estando em DELPHI, vc não perde muito, pq pd usar o DELPHI.NET Abs 2008/11/7 valdirdill [EMAIL PROTECTED] Olá, Estou querendo desenvolver algo com Intraweb do Delphi 7 e tenho pouco conhecimento sobre o assunto. Fiz um pequeno projeto teste e está funcionando em minha máquina. Digito http://localhost/scripts/project1.dll no browser e tudo certo. Pergunto: para executar isso através de outra micro, como faria? O que tem quer fazer (instalar) nessa outra máquina? Meu principal objetivo é permitir a visualização de dados via net de um sistema de dados (Firebird 2.0) desenvolvido para Win32. Obrigado [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Aplicação intraweb
Estamos no mesmo barco. --- Em qui, 6/11/08, TI - Metalurgica Jano [EMAIL PROTECTED] escreveu: De: TI - Metalurgica Jano [EMAIL PROTECTED] Assunto: [delphi-br] Aplicação intraweb Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 6 de Novembro de 2008, 15:38 Depois de muitas duvidas resolvi desenvolver uma aplicação intraweb, Já que estou sem tempo para aprender c# dot.net. Espero não ficar na mão. A medida que for desenvolvendo vou postando aqui criticas positivas e negativas sobre o intraweb. Um abraço galera. [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Olá Coutinho,
Sim, é isso que eu quis dizer, conforme você falou e o Moacir também. Só
que quero controlar a baixa dos insumos por trigger. O problema é que
não sei fazer tal trigger.
abraço,
Fabio.
Coutinho - Yahoo escreveu:
Colega... deixa eu pegar o bonde andando...
Você tem duas instâncias diferentes...
uma é fabricar o pão... na minha opinião, aí vc deveria dar baixa na
farinha...
e a outra é a venda do pão... nela então você daria baixa do pão...
fazer as duas coisas deixa um gap, de não baixar a farinha caso uma
parte do pão não seja vendida!!!
Algumas fábricas de pão mandam parte dos pães não vendidos para virarem
torradas, e aí já é um outro produto
Pense nisso!!!
Sds
Emanuel Coutinho
Fabinho escreveu:
Olá Moacir,
Na verdade vou comprar farinha e depois produzir o pão. Comprando
farinha, adiciono seu estoque e depois que eu produzir o pão, dou
baixa no estoque de farinha e aumento o estoque de pão. Quando eu
vender o pão, baixo o estoque do pão.
Por isso, tenho os produtos e insumos cadastrados na tabela PRODUTOS e
a ficha técnica desses produtos cadastrados na tabela COMPOSICAO.
Como o pão tem seus insumos cadastrados na tabela COMPOSICAO, quando
eu vender o pão, tenho que varrer a tabela de INSUMOS para verificar a
quantidade de farinha de que é feito o pão e dar baixa no estoque
dessa farinha, que fica na tabela PRODUTOS.
Se não consegui ser bem claro, por favor, me diga que explico melhor.
Fabio.
De: Moacir - GMail [EMAIL PROTECTED] mailto:prismars%40gmail.com
mailto:prismars%40gmail.com
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Sexta-feira, 31 de Outubro de 2008 7:53:34
Assunto: Re: [delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Fabio,
Voce vai comprar pão e quer adicionar estoque em farinha, leite e etc ??
Acredito que voce deva estar comprando farinha, leite, etc e depois
produzindo o pão, correto ?
Se este for o caso voce deve dar entrada dos insumos para fabricação do
pão e ao produzi-lo dar baixa dos insumos utilizados.
[ ]´s
Moacir
Fabio R Cardoso escreveu:
Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert
de não
mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda.
Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema:
PRODUTOS
COMPOSICAO
COMPRAS
Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos
produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos
formados por outros produtos, na qual estes estão na tabela
COMPOSICAO.
É assim, por exemplo:
PRODUTOS (código e descrição)
1 - coca cola
2 - pão francês
3 - farinha de trigo
4 - leite
5 - noz moscada
COMPOSICAO (código, código do produto e qtde)
1 - 2 (farinha de trigo) - 20g
2 - 2 (leite) - 1l
Observem que apenas o produto 2 (pão francês) possui registros na
composição, uma vez que ele é feito de outros produtos.
Eu quero criar um processo automático para varrer a composição do
produto comprado e adicionar o estoque dos produtos na composição do
produto.
Espero ter conseguido explicar. Por favor, me ajudem.
Fabio.
- - --
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
sua cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ajuda com trigger ou SP - PELAMORDEDEUS
Antes agradeço a ajuda do Carlos Cantu pelo problema do IBexpert de não mostrar mensagens de erro. Porém, não consegui solucioná-lo ainda. Vamos lá. Senhores, tenho as tabelas abaixo no meu sistema: PRODUTOS COMPOSICAO COMPRAS Fiz uma trigger que, quando faço uma compra, ele aumenta o estoque dos produtos adquiridos na tabela compras. Até aí ok. Porém, há produtos formados por outros produtos, na qual estes estão na tabela COMPOSICAO. É assim, por exemplo: PRODUTOS (código e descrição) 1 - coca cola 2 - pão francês 3 - farinha de trigo 4 - leite 5 - noz moscada COMPOSICAO (código, código do produto e qtde) 1 - 2 (farinha de trigo) - 20g 2 - 2 (leite) - 1l Observem que apenas o produto 2 (pão francês) possui registros na composição, uma vez que ele é feito de outros produtos. Eu quero criar um processo automático para varrer a composição do produto comprado e adicionar o estoque dos produtos na composição do produto. Espero ter conseguido explicar. Por favor, me ajudem. Fabio.
[delphi-br] Alguém sabe se esta Rodando 100% o Fortes Reports para o Delphi 2007
Ola pessoal Alguém tem algum histórico do fortes reports para o Delphi 2007 ? Abs [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como DEBUGAR uma STORED PROCEDURE ?
Fabio http://www.orkut.com.br/Main#Profile.aspx?uid=14658194472417066894Como DEBUGAR uma STORED PROCEDURE ?Pessoal Estou começando agora a mexer com T-SQL e me deparei com uma SP enorme e gostaria de saber se há alguma maneira de debugar uma sp acompanhando o seus resultados passo a passo. Abs [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida - Deu Branco - Como fazer o calculo do ICMS, IPI e ISS ?
Pessoal Deu uma branco aqui e não estou achando as formulas. Alguem pode me dar uma luz sobre como é feito atualmente o calculo do ICMS, IPI e ISS ? Eles são feito Item a Item ou sobre o Total da Nota? Abs [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Datas em WebService
Minha duvida é um pouco mais atrás...
COmo criar um WebService com o Delphi win32?
2008/10/20 Jhosef Marks [EMAIL PROTECTED]
Ja tentou passar elas como string?
JM
2008/10/14 Willian Leal [EMAIL PROTECTED] willian.leal%40gmail.com
Bom dia, alguém já trabalhou com datas em WebServices. Eu tenho o
seguinte
método:
procedure TConcurso.Update(CodConcurso: integer; Nome, Cidade, UF, Obs:
String; InicioInsc, FimInsc: TDate);
var
Con: MySqlConnection;
Cmd: MySqlCommand;
Sql: String;
begin
Con :=
MySqlConnection.Create(ConfigurationManager.ConnectionStrings['MySQLASPNETDB'].ConnectionString);
Sql := System.String.Format('update Concursos set Nome={1},
Cidade={2}, UF={3}, ' +
'Obs={4}, Inicial={5}, Final={6} where
CodConcurso={0}',
[CodConcurso, Nome, Cidade, UF, Obs,
InicioInsc, FimInsc]);
Cmd := MySqlCommand.Create(Sql, Con);
Con.Open;
try
Cmd.ExecuteNonQuery();
finally
Con.Close();
end;
end;
Quando o mesmo é executado todos os dados são atualizados, porém aa datas
não. Dei uma pesquisada e achei o lançe do TXSDateTime que é para
trabalhar
com datas no padrão xml, apliquei na chamada do meu código mais mesmo
assim
não funcionou. Eu estou usando o banco de dados MySql. Eu não tenho
experiência nenhuma com isso por isso venho pedir a ajuda dos colegas,
desde
já agradeço a atenção de todos.
--
Willian Leal
Desenvolvedor de Softwares
MSN: [EMAIL PROTECTED] willian_leal%40hotmail.comwillian_leal%
40hotmail.com
Celular:(32) 8409 - 3077
[As partes desta mensagem que não continham texto foram removidas]
--
Jhosef Marks de Carvalho
Delphi Developer
http://groups.google.com/group/soumaisdelphi
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvidas sobre o componente TADODATASET
Pessoal Uma duvida.. Estou começando agora a trabalhar com os componentes ADO. Só usava DBEXPRESS, mas agora tem q dar manutenção numa aplicação que usa banco de dados SQL SERVER e arquivos ACCESS. No meu primeiro programa peguei uma situação onde não um TADODATASET estava ligado direto a um DATASOURCE e este a um DBEDIT. Ou seja, não encontrei um DATASETPROVIDER e nem um TCLIENTDATASET. Isto significa que o TADODASET é bidirecional? Posso trabalhar com ele como se estivesse trabalhando com um ClientDataSet ? Abs [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [DU] Como Sincronizar DBGRID com DBCOMBOBOX, DBEDITs
[DU] Como Sincronizar DBGRID com DBCOMBOBOX, DBEDI Pessoal Estou fazendo um programa onde eu tenho que usar um DBGRID para visualizar os dados e vários DBEDITs, DBTEXTs e DBCOMBOBOX para a operação de alteração. Eu não consegui ainda um jeito de sincronizar a linha selecionada na Tabela, atualize dinamicamente os DBEDITS e DBCOMBOBOX. Alguém pd me dar uma ajuda? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] convertendo string minuscula em maiuscula
function MixCase(InString: String): String;
var
I: Integer;
begin
Result := LowerCase(InString);
Result[1] := UpCase(Result[1]);
For I := 1 To Length(InString) - 1 Do
If (Result[I] = ' ') Or (Result[I] = ) Or (Result[I] = '')
Or (Result[I] = '-') Or (Result[I] = '.') Or (Result[I] = '(') Then
Result[I + 1] := UpCase(Result[I + 1]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s :string;
begin
s := LowerCase(trim(edit1.text));
label1.caption := mixcase(s);
end;
Espero ter ajudado.
--- Em sex, 17/10/08, Leonardo Baldino [EMAIL PROTECTED] escreveu:
De: Leonardo Baldino [EMAIL PROTECTED]
Assunto: [delphi-br] convertendo string minuscula em maiuscula
Para: Grupo_Delphi delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 17 de Outubro de 2008, 9:49
alguem sabe onde eu posso encontrar uma procedure que quando eu insiro
uma string como AVENIDA AFONSO PANSAN ela me retorne essa mesma
string porem somente com a primeira letra de cada palavra em maiusculo
--
Leonardo Carlos Baldino - The Highlander
__
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] dbExpress Error: Operation Not Supported
Pessoal Alguém já se deparou com este erro? dbExpress Error: Operation Not Supported Já fiz o registro da MIDAL.DLL atráves do comando RegSVR32.dll, mas ainda não resolveu. Alguma outra sugestão? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como Pegar o Valor de um DBCOMBOBOX
Eu to com um DBCOMBOBOX associado a uma tabela de Produtos, onde nela eu mostro apenas a descricão e terei que gravar apenas o código na tabela. Entretanto antes de gravar, após o usuário escolher o produto, eu preciso pegar o código do produto escolhido. Como é que eu posso fazer acesso ao campo do DataSetField do do DBCOMBOBOX? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Arvore
TTreView do Delphi ou a biblioteca informada pelo colega. A proposito aonde eu baixo esta biblioteca? Abs 2008/10/17 Coutinho - Yahoo [EMAIL PROTECTED] Você já deu uma olhada no jvDbTreeListView? Se precisar de um arquivo de dados (modelo), te mando em PVT Sds Emanuel Coutinho Rodrigo Magno escreveu: Bom dia Amigos, Gostaria de saber se alguem sabe me dizer se existe algum componente ou como fazer uma arvore , aonde tipo : Diretoria Superintendencia Acionistas Informatica Dpto Pessoal -- Funcionarios Algo mais ou menos deste tipo, pois nao encontrei nada sobre de como fazer este tipo de procedimento. No mais agradeço a atenção de todos. Abraços, Rodrigo Magno * [EMAIL PROTECTED] rcmagnobh%40yahoo.com.br mailto: rcmagnobh%40yahoo.com.br rcmagnobh%2540yahoo.com.br msn [EMAIL PROTECTED] rcmagnobh%40yahoo.com.br mailto: rcmagnobh%40yahoo.com.br rcmagnobh%2540yahoo.com.br __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ http://br.messenger.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] Como Sincronizar 2 DataSource
Tenho 2 DataSource no meu projeto, um esta ligado a GRID, mas pelo fato de ter um Join para alguns campos, não posso fazer atualização direto nele. Ele aprensenta os dados numa GRID, e gostaria de poder pegar os o IDdo da linha selecionada na GRID e sincronizar com o do outro DataSource Pq no 2o. DataSource é que poderei Excluir e alterar um determinado registro. Abs [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] [DICA] +Funções para strings
Faça isso não. Continue enviando dicas. São sempre importantes.
--- Em qui, 16/10/08, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
De: Rubem Nascimento da Rocha [EMAIL PROTECTED]
Assunto: RE: [delphi-br] [DICA] +Funções para strings
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 16 de Outubro de 2008, 1:23
É, cada um pensa de um jeito! Minha intenção era apenas a de ajudar. Acho
melhor ficar só nas sugestões de idéias. Cada um tem a sua maneira de
codificar. E em respeito a essas diferenças, ficarei apenas na surdina, na
obscuridade, observando. Nada mais de códigos. Caso alguém queira a minha
opinião, estou por aqui.
Sds.
_ _ __
To: [EMAIL PROTECTED] os.com.br
From: [EMAIL PROTECTED] com
Date: Thu, 16 Oct 2008 00:09:42 -0200
Subject: Re: [delphi-br] [DICA] +Funções para strings
Concordo com o João, não vamos reinventar a roda, k.
Joao Morais escreveu:
Fala Rubem!
2008/10/15 Rubem Nascimento da Rocha djpardalrocha@ hotmail.com
:
Sinceramente, não vejo hack nenhum. Em linguagem C, condições do
tipo if (var 0)
podem ser simplificadas com if (var). O Object Pascal me permite
fazer isso também,
como ilustro no meu código. Portanto, pra mim, não é hack.
Hack é tudo que é feito sem o suporte da linguagem. No Object Pascal,
boolean e números não são compatíveis. O que o Object Pascal te
fornece é um meio de hac^H^H^H forçar esta compatibilidade.
C não tem nem boolean, nem elegância, nem diferença entre código limpo
e hackeado, então a comparação ficou meio forçada.
E ainda acrescento que faço uso de intensivo de constantes por ser
uma prática que torna
bem mais claro o código, algo bem melhor do que ficar usando magic
numbers.
Hã... Boolean(Items. Count) não me parece mais claro do que
(Items.Count 0), pelo contrário. A menos que você seja um
programador C ou Assembly.
No entanto não importa. O que coloquei é o que o prof. Wirth esperava
que fizéssemos, e não colocar a minha opinião, muito menos ir contra a
sua.
Quanto ao uso de TStringList, ... ora, se em Java eu posso usar coisa
parecida, pq não em
Delphi? Se o Object Pascal possui artefatos para uso de orientação a
objetos, e classes
utilitárias para auxiliar nosso trabalho, pq não fazer uso delas?
Ah, o código é complexo e
faz uso de heap! Mas uma função dessas, muito provavelmente, não
seria usada em
textos muito extensos, e o impacto na performance geral de um grande
sistema aplicativo
seria o mínimo.
A pouca demanda para o uso de uma rotina jamais deve ser argumento
para escolher uma opção mais cara perante uma opção mais simples. É
justamente assim que nascem códigos mal feitos. Outros fatores como
manutenção futura também entram na conta, mas que simplesmente não se
aplica para uma rotina tão simples como essa.
Alias será, pq faço uso dessas funções intensivamente no sistema que
dou manutenção
atualmente, e não existe perda de performance com o seu uso.
Agora, putz, se for pra escrever sempre código simpleco e
estruturado, então quem vêm
do Delphi e tá acostumado a escrever só procedimentos e funções ou
está acostumado
somente a colocar componentes e codificar razoavelmente eventos vai
se lascar feio ao
tentar pegar códigos mais trabalhados em Java ou C#. Imagina pegar
algo mais
complicado como, por exemplo, validar uma texto em uma caixa de
edição (a.k.a. TEdit)
usando expressões regulares (a.k.a. RegEx)!
Entendo aonde você quer chegar. Então agora basta, ou escolher um
exemplo a altura da complexidade da implementação, ou implementar a
rotina a altura da sua simplicidade. Mais bonito, menor e melhor são
três grandezas diferentes para trechos de código.
Mas, como diria Voltaire, posso não concordar com o que dizes, mas
até o fim defenderei
o direito que o tens de dizê-lo.
Eu não esperava que fosses concordar comigo, no entanto devo confessar
que eu esperava argumentos melhores para as suas escolhas.
Sds.
--
Joao Morais
_ _ __
To: [EMAIL PROTECTED] os.com.br
From: [EMAIL PROTECTED] com
Date: Wed, 15 Oct 2008 22:16:55 -0300
Subject: Re: [delphi-br] [DICA] +Funções para strings
2008/10/15 Rubem Nascimento da Rocha djpardalrocha@ hotmail.com
:
if not AllowEmpty then
for i := 0 to Count - 1 do
while (List[i] = EmptyStr) and Boolean(List. Count) do
No seu lugar eu removeria o while e colocaria um for downto, além de
tirar esse hack do código e ajudar o caboclo a escrever código limpo.
{ Conta quantas palavras existem em uma string }
function CountWords(S: string): integer;
begin
with TStringList. Create do
Por que não usar o for? TStrings além de usar o heap tem um código
mais complexo para uma tarefa simples.
--
Joao Morais
try
Delimiter := ' ';
DelimitedText := S;
Result := Count;
finally
Free
end
end;
Sds.,
Rubem Rocha
Manaus, AM
_ _ _ _ _ _
Conheça o Windows Live Spaces, a rede
[delphi-br] Erro ao Tentar um Append num AdoQuery
Pessoal Boa Noite Estou tentando fazer um Append e um Edit numa Query Usando o ADOQUery com o banco SQL SERVER 2000. Qdo executo o comando qryMinhaTabela.Append o sistema da o seguinte erro: Cannot Modify a read-Only DataSet, A query pega os 4 campos da tabela principal e acrescenta mais 2 campos atra´ves de um inner Join. Quem puder me ajudar agradeço! Abs [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] INTRAWEB - Quem pode me dar umas aulas ?
1 - EU 2 - EU Qual seria o Custo ? Uma opção que lhe daria seria a de usar salas de Audio/VideoConferencias - (www.hotconferece.com). Assim vc pd fazer treinamento com mais de uma pessoa ao mesmo tempo! Abs 2008/10/14 Jackson Gomes - ToolsComps [EMAIL PROTECTED] Estou precisando de umas aulas de IntraWeb. Alguém poderia me dar umas aulas Estou pensando em ministrar treinamentos de IW, mas preciso montar um programa do curso. Algo como 20 horas pra iniciar... Esse treinamento seria via Skype/Acesso Remoto... Alguém mais estaria interessado? Jackson Gomes ToolsComps - 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] jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br [EMAIL PROTECTED] devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Exemplo de um pequeno programa/sistema Orientado a Objetos... Onde encontrar...
Pessoal, Alguém tem algum exemplo de um pequeno programa/sistema feito com orientação a objetos ? Estou precisando estudar isto. Já estou cheio de conceitos agora preciso ver a pratica, colocar a mão na massa. Abs [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Field FormPai.HIperOptions does not have a corresponding componente. remove the declaration ?
Pessoal Estou começando a usar Orientação a objetos e peguei um sistema para dar uma estudada, mas estou esbarrando num pequeno problema e não sei como resolver. O Formulário Pai paree que tem um componentes que não foi herdado no formulário Filho ou se perdeu.. Havia uma biblitoeca de terceiro que foi instalada, e depois reinstalada, o q acredito possa ter perdido a referencia do diretorio. A questão é q qdo tento salvar o formulário filho, aparece a mensagem. Field FormPai.HIperOptions does not have a corresponding componente. remove the declaration ? Existe alguma maneira de acertar isto, sem ter que remover a tal declaração ? Abs [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Exportar Configuração do Delphi
Pessoal Existe alguma maneira de exportar as configuraçãoes da parte de Diretorios, Path, Pakages, libryries do Delphi 5, para poder importar em outra instação do Delphi ? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] INTRAWEB - Quem pode me dar umas aulas ?
Pessoal Estou precisando de umas aulas de IntraWeb. Alguém poderia me dar umas aulas ? Desde Já agradeço! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi na versão 1, 3 e 4
Mas vc pretende te-lo apenas pelo prazer de ter ou é para desenvolvimento? Ou vc quer ter o prazer de ter algo ORiginal e gratuito? Se for para algo profissional as versoes de 1 a 4, não vão te ajudar muito. Já estão super defasadas.. Mas, se quiser uma solução atualizada e gratuita me retorne PERGUNTE-ME COMO!! Abs 2008/10/13 Walter Chagas Jr (BOL) [EMAIL PROTECTED] sim... Aqui NÃO É EUA. AQUI É BRASIL. SE QUER APURAR, CONSULTE A LEI 9609 E NÃO LEI AMERICANA. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] wchagasj%40bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Onjahyr - GMAIL To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Monday, October 13, 2008 9:40 PM Subject: Re: [delphi-br] Delphi na versão 1, 3 e 4 Um software que passa dos 10 anos torna-se free SIM. Só que essa lei é nos EUA. O Delphi 1 ao 3 é free completão O Delphi 4 assim que foi lançado de brinde na revista, informava que era FREE para uso pessoal apenas, hoje em dia não sei se já ultrapassa os 10 anos... Da versão 5 em diante também não sei como fica Mesma coisa, se seu computador suportar, pode usar o DOS, o Windows 3.1 ou 3.11 e o Windows 95 totalmente FREE. Isso já foi parar num processo aqui na justiça e o reu ganhou a questão, não sei bem do por que se foi por causa que, no Brasil, não se fala nada sobre isso ou por outro motivo, não fui atrás para ver, mas que aconteceu aconteceu. Walter Chagas Jr (BOL) escreveu: As versões que vieram nas revistas não são free. Isto é um mito que inventaram a anos de que o Delphi, da versão 4 pra baixo, passaram a ser freewares. Isto não procede. O que acontece é que a licença da versão da revista é a propria revista. Pode ter sido um lote que a PC Expert arrematou ou algum tipo de negociação. Mas, como esta revista foi lançada, se não me engano, em 2001 ou 2002 por alí. É pouco provável que voce a encontre em alguma banca ou mesmo na distribuidora. Aliás, este mito deve ter sido originado com base em um outro mito que inventaram também, de que depois de 10 anos, o software se torna automaticamente freeware. O que não é verdade, tem que olhar a licença do produto o que é que ela prevê. Se ela prevê isto, então é. Mas caso contrario não. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] wchagasj%40bol.com.br mailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] whitesockets%40hotmail.com mailto: whitesockets%40hotmail.com whitesockets%2540hotmail.com SKYPE: WalterChagasJr - Original Message - From: Andrei Luís To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Sent: Monday, October 13, 2008 3:08 PM Subject: Re: [delphi-br] Delphi na versão 1, 3 e 4 Cara, Até onde eu sei, nenhuma versão do Delphi foi liberada pra download pelo fabricante Borland/Inprise/Borland dinovo/Code Gear/Embarcadero. Pirataria é assunto proibido na lista, mas, supondo que o que você queira seja algo free e não pirata, procure pela revista Pc Expert nr 29 (foi lançada já a alguns anos), nela veio o Delphi 4 Professional. A revista WWW, não sei qual número, veio com o Delphi 3 Client/Server. E teve ainda uma outra PC Expert não sei qual número que veio com o Delphi 3 Standart. Todos esses no sabor full, free e legalizados. [] Andrei 2008/10/10 Osiel Santos [EMAIL PROTECTED]index2208%40yahoo.com.br mailto:index2208%40yahoo.com.br index2208%2540yahoo.com.br Olá pessoal alguém tem o delphi na versão 1 ou sabe de algum link que posso fazer o download? estou procurando essas versões do delphi... 1, 3 ou 4 [As partes desta mensagem que não continham texto foram removidas] __ Informação do ESET NOD32 Antivirus, versão da vacina 3518 (20081013) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __ Informação do ESET NOD32 Antivirus, versão da vacina 3519 (20081013) __ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.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] [OFF TOPIC] - Aviso...
È possivel abrir as Planilhas e os Textos do OpenOffice através do Delphi? Em caso positivo, como funciona? O q devo usar? 2008/10/14 Silvio Clécio [EMAIL PROTECTED] Olá pessoal, Opa, valeu o aviso brother! Um abraço! Silvio Clécio Contatos/Blog Skype: silvioprog Yahoo! Messenger: [EMAIL PROTECTED] silvioprog%40yahoo.com.br MSN (Hotmail): [EMAIL PROTECTED] silvio_prog%40hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ - Mensagem original De: Onjahyr - GMAIL [EMAIL PROTECTED] onjahyr%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Segunda-feira, 13 de Outubro de 2008 21:51:23 Assunto: [delphi-br] [OFF TOPIC] - Aviso... E aí pessoal, desculpem o OFF. Recebi o comunicado hoje e achei interessante pois algumas pessoas fazem uso de programação para o OpenOffice/BROffice . - A suite BROffice 3 acaba de ser lançada. O link para download é: https://www. broffice. org/download ou http://ftp.unicamp. br/pub/broffice/ stable/3. 0.0 A nova versão traz diversas melhorias importantes, como um painel a partir do qual se tem acesso a todos os recursos da suite, ver e editar mais de uma página ao mesmo tempo, um controle de zoom mais amigável, inserção de notas com um visual ultra-moderno e intuitivo, suporte ao formato Office OpenXML (.docx, .pptx e ), .xlsx. Mas não é só isto, tem muito mais. Veja uma lista bem completa de novos recursos em http://www.oooninja .com/2008/ 03/openofficeorg -30-new-features .html Blz Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [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] Na hora de Debugar, algumas linhas são ignoradas
Jaz fiz isto ara regerar os DCUs e nada! 2008/10/9 Vinicius Santos - MSI [EMAIL PROTECTED] Dê um Build All e tente novamente. Fabio Ferreira escreveu: Pessoal Alguém sabe o q pode estar acontecendo... Coloquei um breakpoint em uma determinada linha, e logo de inicio achei estranho porque a bolinha vermelha esta cocm um x laranja. Então coloquei logo na linha de baixo que aceitou normalmente. O primeiro break-point é um IF, e na hora que pressiono F8 nesta linha, simplesmente o o debug ignora e passa batido. alguém sabe me dizer o q pode estar de errado ? Abs [As partes desta mensagem que não continham texto foram removidas] -- Vinicius dos Santos http://www.msisolucoes.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] FastReport - master com mais de um detail
Aonde eu baixo este FreeReport ? 2008/10/9 Eduardo Silva dos Santos [EMAIL PROTECTED] Fiz um teste com o Fast Report 4 e aparentemente deu certo 1 MasterData e 2 DetailData. se quiser fazer algum teste específico estou às ordens. 2008/10/9 Joao Morais [EMAIL PROTECTED] post%40joaomorais.com.br Povo, Tenho alguns relatórios em FreeReport (antigo FastReport 2.34) e não consigo colocar mais de um container pendurado em um master. Ilustrando: +-Orcamento +-ItemOrcamento | +-Vias | +-Custos | +-Quantidades +-Faturas O relatório precisa apresentar a listagem de vias e a listagem de quantidades para cada item de orçamento. Até outro dia consegui enrolar e agrupar as quantidades em um campo calculado, mas agora preciso apresentar estas quantidades linha a linha. Alguém já conseguiu fazer uma configuração semelhante e com sucesso? E em qual versão do FR? Algum outro componente que consiga fazer isto e que tenha um designer em runtime? Joao Morais -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [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] Sobre intraweb no Delphi
isto significa q é hora de começarmos a colocar os coletes salva-vidas.. Mas voltando ao IntraWeb, é possivel fazer uma aplicação para acessar banco de dados na Web, como o MYSQL por exemplo??? 2008/10/9 Luciano Calenzani Simões [EMAIL PROTECTED] Cuma? Se é o que estou entendendo, agora que a galera do VS vai rolar de tanto rir da galera do Delphi. Luciano Calenzani Simões - Mensagem original De: Jackson Gomes - ToolsComps [EMAIL PROTECTED]jackson%40toolsandcomps.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 9 de Outubro de 2008 16:30:58 Assunto: Re: [delphi-br] Sobre intraweb no Delphi Além do que, Delphi.NET agora só dentro do VS, pois a Embarcadero decidiu descontinuar o Delphi .NET como o conhecemos. Para as próximas versões, vc vai ter que comprar o VS tb, além do próprio Delphi http://www.google. com.br/search? hl=pt-BR q=Delphi+ Prismmeta= Jackson Gomes Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [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] Na hora de Debugar, algumas linhas são ignoradas
Sim, esta marcada! 2008/10/9 Luciano Calenzani Simões [EMAIL PROTECTED] O que pode ocorrer é o Delphi, por motivos lógicos, ignorar linhas que não serão usadas, por exemplo quanto você atribui um valor a uma variável e essa variável não é utilizada, esta linha será ignorada. Olha, também, se a opção Project/Compiler/Debugging/Debug Information está marcada. Luciano Calenzani Simões - Mensagem original De: Leonardo Gonçalves [EMAIL PROTECTED] leogsouza%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 9 de Outubro de 2008 14:23:56 Assunto: Re: [delphi-br] Na hora de Debugar, algumas linhas são ignoradas Se a dica do Vinícius não resolver envie pra gente a parte do código onde isso ocorre 2008/10/9 Vinicius Santos - MSI [EMAIL PROTECTED] s.com.br Dê um Build All e tente novamente. Fabio Ferreira escreveu: Pessoal Alguém sabe o q pode estar acontecendo. .. Coloquei um breakpoint em uma determinada linha, e logo de inicio achei estranho porque a bolinha vermelha esta cocm um x laranja. Então coloquei logo na linha de baixo que aceitou normalmente. O primeiro break-point é um IF, e na hora que pressiono F8 nesta linha, simplesmente o o debug ignora e passa batido. alguém sabe me dizer o q pode estar de errado ? Abs Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [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] Listar todos os formulários do projeto
Listar aonde? Em tela ou no Papel ? Não sei se vai ajudar, mas vc pd abrir o arquivo principal do seu sistema, que tem a extensão .DPR. Abs 2008/10/9 Vinicius Santos - MSI [EMAIL PROTECTED] Pessoal, alguém conhece alguma rotina(se é que exista), que liste todos os formulários de um projeto ?? -- Vinicius dos Santos http://www.msisolucoes.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Na hora de Debugar, algumas linhas são ignoradas
Pessoal Alguém sabe o q pode estar acontecendo... Coloquei um breakpoint em uma determinada linha, e logo de inicio achei estranho porque a bolinha vermelha esta cocm um x laranja. Então coloquei logo na linha de baixo que aceitou normalmente. O primeiro break-point é um IF, e na hora que pressiono F8 nesta linha, simplesmente o o debug ignora e passa batido. alguém sabe me dizer o q pode estar de errado ? Abs [As partes desta mensagem que não continham texto foram removidas]
