Segundo o help do SQL o erro 8501 significa que o servico MSDTC (responsável
por transações de insert, update) não está rodando no servidor.
Deve-se usar o SQL Service Manager para verificar se esse serviço está
startado. Com certeza, está havendo perda de conexão com o banco.
É um erro tipo
Existe um meio de enviar uma lista de emails para a lista de contatos do
Outlook via Delphi? Ou seja, leio a tabela de clientes, capturo os emails e vou
adicionando na lista de contatos do outlook na categoria de Clientes
Fidelizados.
Graça
-
Abra sua
para CTRL+ALT+DELETE
http://www.swissdelphicenter.ch/torry/showcode.php?id=1528
http://www.activedelphi.com.br/modules
php?op=modloadname=Newsfile=articlesid=128mode=threadorder=0thold=0
http://www.ramosdainformatica.com.br/dic_recentes01.php?CDA=236
para ALT + F4
Pelo que entendi não é codigo, ou componente, e sim o peso do formulario
da nota fiscal, o jeito talvez seja você começar a pensar em outro
modelo, mais robusto, ou avisar ao operador que deverá ficar de olho na
impressão.
Aqui imprimimos outro tipo de documento, mas não fica muito atrás,
Bom dia!!
estou dando uma força a um amigo meu no projeto dele mas fiquei travado numa
parte aq.
ele montou um pequeno dispositivo com 4 motores. Esse dispositivo será ligado
ao computador pela porta paralela. Cada motor é acionado atraves d um pulso
enviado a um pino da porta (eu precisarei
Rafael,
Acredito que neste link vc obterá respostas para as tuas dúvidas:
http://www.rogercom.com/
[ ]´s
Moacir
Rafael Marques escreveu:
Bom dia!!
estou dando uma força a um amigo meu no projeto dele mas fiquei travado numa
parte aq.
ele montou um pequeno dispositivo com 4 motores.
Voce pode gerar um arquivo csv, ai depois e so importar no outlook.
Acho que eu tenho isso em casa, se eu achar posso disponibilizar pra voce.
Att
Em 28/11/07, Maria das Graças . [EMAIL PROTECTED] escreveu:
Existe um meio de enviar uma lista de emails para a lista de contatos do
Imprimir em modo gráfico em matriciais sempre da isso, só não acontece
quando vc da a sorte de achar a configuração da página certinha.
para resolver esse problema não adianta correr, o ideal é imprimir em modo
texto, linhaXcoluna... ai meu amigo, vc pode imprimir 1.0 de notas
fiscais que
Galera minha duvida é o seguinte.
Eu tenho um campo na minha tabela do tipo varchar(32) e preciso fazer o
seguinte, ler essa string e alterar o caracter da posicao X. Tentei
fazer desse jeito mas ele não aceita, pois da imcompatibilidade de
types...
function EditarString(sTex:String;numero:
Bom dia, da uma olhada nos componentes do turbo power, acho que tem alguma
coisa pra isso que voce quer fazer.
Att
Em 28/11/07, Rafael Marques [EMAIL PROTECTED] escreveu:
Bom dia!!
estou dando uma força a um amigo meu no projeto dele mas fiquei travado
numa parte aq.
ele montou um
eu havia encontrado esse site no google e achei interessante, gostei mto, mas n
consegui achar exemplos em Delphi (só em C/C++)
eu n consegui converter os exemplos pra Delphi e entao encalhei. :-(
eheheheheheh
- Original Message -
From: Moacir - GMail
To:
da uma olhada em:
StringReplace
Acho que isso resolve...
Att
Em 28/11/07, Ricardo Mendes [EMAIL PROTECTED] escreveu:
Galera minha duvida é o seguinte.
Eu tenho um campo na minha tabela do tipo varchar(32) e preciso fazer o
seguinte, ler essa string e alterar o caracter da posicao X.
Não da para utilizar StringReplace devido eu não saber o que está na posição X
da string, pois essa string vem com varias letras e numeros iguais e cada uma
das 32 posições tem funções difentes dentro do sistema.
Ricardo Mendes
Departamento de Informática
E-mail: [EMAIL PROTECTED]
Site:
Var
L: string;
Vouler, vouinserir: char;
Begin
Vouinserir := 'a';
L := String que vem do varchar(32);
Vouler := L[15];
L[15] := vouinserir;
End;
Depois eu te mando a conta
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Galera,
Tô com uma dúvida básica aqui: preciso fazer um case when numa data no
Firebird 1.5 ou superior, não sei nem se funciona.
Na verdade não dá erro, mas não retorna corretamente os dados. Pra
resumir preciso copiar parte da string de um campo se a data for
inferior a 01/07/2007. Por
Olá Adriano!
Desculpe se minha resposta não ajuda, mas vc não faz CAST da data que vc passa
para a comparação?
Não me lembro se isso tem isso disponível, mas seria algo do tipo:
CAST('07-19-2006') AS DATE
Sds,
Ricardo.
Adriano Santos (Yahoo) [EMAIL PROTECTED] escreveu:
Ricardo Mendes wrote:
Galera minha duvida é o seguinte.
Eu tenho um campo na minha tabela do tipo varchar(32) e preciso fazer o
seguinte, ler essa string e alterar o caracter da posicao X. Tentei
fazer desse jeito mas ele não aceita, pois da imcompatibilidade de
types...
function
Olá Delphianos,
Gostaria de saber se alguém tem alguma função para converter este valor hexa
B383102C para valor em decimal, que deve resultar em 3011711020
Tentei usar algumas funções e não obtive sucesso.
Abraços a todos.
Omar M. Haddad
Analista de Sistemas
Abra
http://www.iprogramas.com.br/download/2350/rnlowlevel_library.html
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 28 Nov 2007 08:40:02 -0200
Subject: Re: [delphi-br] Envio de Comando para Pino Especifico da porta Paralela
eu
Ricardo:
Quando vc acessa a e-nésima posição de uma string, o tipo passa a ser
considerado como char.
Tente assim:
function EditarStrings(sText:String;numero:integer;sCarac:char):string //defina
a variável que trará o caracter desejado, com o tipo char
var
L:string[31];
begin
L:-sTex;
Ricardo
Vc pode usar a função
INSTR ('Hello Word', W) = 6 // Ele te passa a posição do caracter
estar dando imcompatibilidade pq vc está pegando um caracter de uma string,
esperimenta transformar para CHAR.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de
Lista
Tem alguma forma de saber se existe um determinado valor em um array sem
ter que passar por ele inteiro ???
posso usar assim
for x:= 0 to length ( array) - 1 do
begin
if array[x] = valor then
Pode ser que esteja retornando alguma data nula, utilize a função COALESCE
- Original Message -
From: Adriano Santos (Yahoo)
To: Delphi-br
Sent: Wednesday, November 28, 2007 9:11 AM
Subject: [delphi-br] Off - Case When com Datas no FB
Galera,
Tô com uma dúvida básica
function BuscaTroca(Texto: String; pos:integer; troca:String):string;
begin
result := copy(texto,1,pos-1)+troca+copy(texto,pos+1,32);
end;
EX: Trocar o quinto caracter por X do Edit1
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.text := BuscaTroca(edit1.text,5,'X');
end;
kra,
- Original Message -
From: Adriano Santos (Yahoo)
To: Delphi-br
Sent: Wednesday, November 28, 2007 9:11 AM
Subject: [delphi-br] Off - Case When com Datas no FB
Galera,
Tô com uma dúvida básica aqui: preciso fazer um case when numa data no
Firebird 1.5 ou superior,
Utilize a classe TStringList.
[]'s
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de
BandaLemuel
Enviada em: quarta-feira, 28 de novembro de 2007 10:24
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Array
Lista
Tem alguma forma de saber se existe um
Faz um teste com o SQL a seguir:
Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 28 Nov 2007 09:16:04
-0200Subject: Re: [delphi-br] Off - Case When com Datas no FB
Pode ser que esteja retornando alguma data nula, utilize a função COALESCE-
Original Message - From:
SELECT LP.*, FL.NOME AS NM_FILIAL, HS.HISTORICO AS NM_OCORRENCIA,
(CASE
WHEN LP.DT_LANCAMENTO '07-19-2006' THEN SUBSTR(LP.OPERADOR, 4, 15)
ELSE SUBSTR(LP.OPERADOR, 1, 15)
END) AS NM_OPERADOR
FROM STWCOLTLANP LP
LEFT JOIN STWOPETFIL FL
Infelizmente, apesar do Object Pascal ser uma linguagem excelente, ela não
dispõe, no seu conjunto de funções básicas, funções específicas para arrays,
visto que como a linguagem Object Pascal é fortemente tipada e o Delphi não
gera aplicações pseudo-compiladas e sim compiladas com código de
Salve todos,
Após pesquisar nas mensagens anteriores e nos documentos informados,
tentei instalar o zebedee para melhorar a comunicação de um aplicativo
com o bd firebird que, por necessidade, deve ficar num provedor na web
para que seja acessado por máquinas em locais diferentes.
Porém, ainda
Olá pessoal,
Gostaria de saber se tem como pegar a posição do Click do mouse em qualquer
lugar do Desktop.
Valeu a todos.
Darkzad
[As partes desta mensagem que não continham texto foram removidas]
Rubem Nascimento da Rocha wrote:
Até teria se o tipo variant não ocupasse tanto espaço em memória,
E não fosse tão lento, e não tivesse tipagem zero, e etc. A graça do
Pascal está justamente no fato de coisas como Variant serem minoria,
além do fato de usar begin ao invés de um abre-chaves, e
Localize no Help do Delphi: Mouse variable
Existe uma variável de sistema, global, que dá todas as informações
sobre o Mouse.
Att,
Marcos Douglas
On 11/28/07, Darkzad [EMAIL PROTECTED] wrote:
Olá pessoal,
Gostaria de saber se tem como pegar a posição do Click do mouse em qualquer
lugar do
Tenta assim...
Result:= '';
for x:= 1 to length(texto a trocar caracter) do
begin
if x = posicaocaracter a trocar then
result:= result+NovoCarater ;
else
Olá, esta é uma mensagem de teste. Não estou
sendo respondido nas mensagens enviadas.
Agradeço.
--
Marcus Vinícius Moreira
[As partes desta mensagem que não continham texto foram removidas]
Tenta usar = ou = e quanto as datas..
o teu sql é só exemplo né??
por que vc tá pesquisando do dia 19/07/06
Adriano Santos (Yahoo) escreveu:
Galera,
Tô com uma dúvida básica aqui: preciso fazer um case when numa data no
Firebird 1.5 ou superior, não sei nem se funciona.
Na verdade não dá
Olá, pessoal...
Baixei o RAD Studio 2007 de 4.2 gb do site da DevMedia. Instalei sem
problemas...
Alguém passou pelo mesmo problema de, ao abrir um projeto de um delphi
qualquer, dar erro em todos os componentes que estão neste?
E alguém de vcs saberia me dizer se nesta versão do delphi, o
), utilizando pacotes,
foi corrigido?
Pois precisamos desta informação, para ver se vale ou não a pena
adquirir este produto, nesta versão, original.
Agradeço desde já...
Muito obrigado!
__ NOD32 2691 (20071128) Information __
This message was checked by NOD32 antivirus system
Testado.
Em 28/11/07, Marcus Vinícius Moreira [EMAIL PROTECTED] escreveu:
Olá, esta é uma mensagem de teste. Não estou
sendo respondido nas mensagens enviadas.
Agradeço.
--
Marcus Vinícius Moreira
[As partes desta mensagem que não continham texto foram removidas]
--
Visite:
Baixou do site da Devmedia?
--
Adriano Santos
-
Editor Técnico Revista ClubeDelphi
www.delphitodelphi.blogspot.com
www.devmedia.com.br
www.devmedia.com.br/clubedelphi/pagina.asp
lucas_spohr respondeu:
Olá, pessoal...
Baixei o
estou criando um programinha de login que se inicializa ao iniciar o
windows, é preciso senha e login para entrar na área de trabalho...
porém quando o usuário logar quero bloquear algum programas para que
ele naõ tenha acesso...quero que o menu iniciar só apareça os
programas permitidos e
Tenho um componente em que mudei a figura incluindo um arquivo .dcr com a
diretiva de compilação {$R *.dcr}. Funciona beleza, mas de vez em quando o
delphi muda a diretiva para {$R '*.dcr'}(coloca aspas simples em *.dcr), e o
componente não compila.
[As partes desta mensagem que não continham
Respondendo...
[]s
Topolniak.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rafael Jorge
Enviada em: quarta-feira, 28 de novembro de 2007 11:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [OFF TOPIC] Por favor, respondam ao meu TESTE
presente..
presente..
=]
Em 28/11/07, Nilson Chagas [EMAIL PROTECTED] escreveu:
Testado.
Em 28/11/07, Marcus Vinícius Moreira [EMAIL
PROTECTED]marquinhus%40gmail.com
escreveu:
Olá, esta é uma mensagem de teste. Não estou
sendo respondido nas mensagens enviadas.
Agradeço.
--
Marcus
respondendo: TESTE
Kaputz, Robson
Skype: kaputz_gri
Keep the Dream Alive
- Mensagem original
De: Marcus Vinícius Moreira [EMAIL PROTECTED]
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 28 de Novembro de 2007 9:56:40
Assunto: [delphi-br] [OFF TOPIC] Por favor,
Teste, 123, teste...
[As partes desta mensagem que não continham texto foram removidas]
Olá a todos...
Desenvolvi um aplicativo onde o usuário pode definir um fluxo (flow-chart) e
as setas eu fiz usando canvas.
Porém a renderização é muito lenta. Muito mesmo...
Sendo assim, estou procurando componentes visuais que representem uma seta.
Uso Delphi 7.
Muito obrigado!
--
José
http://www.tmssoftware.com/diagram.htm
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de José
Mário Silva Guedes
Enviada em: quarta-feira, 28 de novembro de 2007 14:16
Para: Lista - Delphi
Assunto: [delphi-br] Componente em forma de seta (flecha)
Olá a todos...
Ah, esqueci de dizer, se esta tão lento assim deve ter algo errado com seu
algoritmo ou na forma de redesenho.
Fiz os relacionamentos de minha ferramenta CASE (www.cdstudio.nack.com.br )
usando somente o Canvas também, e ficou bem aceitável, e olha que tenho
diagramas com no mínimo uma
Agora vai !
Nilson Chagas escreveu:
Testado.
Em 28/11/07, Marcus Vinícius Moreira [EMAIL PROTECTED]
mailto:marquinhus%40gmail.com escreveu:
Olá, esta é uma mensagem de teste. Não estou
sendo respondido nas mensagens enviadas.
Agradeço.
--
Marcus Vinícius Moreira
[As
Obrigado a todos pela ajuda... Vou usar da maneira que eu ja tinha
dito entaum vlw...
- Original Message -
From: Joao Morais
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 28, 2007 10:56 AM
Subject: Re: [delphi-br] Array
Rubem Nascimento da
bem o que ja deu alguns errinhos aqui foi com o dbexpress q na nova versao eu
tive que recolocar alguns fields...
mas qual a mensagem de erro q da e em quais componentes da esse erro...
- Original Message -
From: lucas_spohr
To: delphi-br@yahoogrupos.com.br
Sent:
A culpa é sempre do outro programador... RS...
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe
Henrique
Enviada em: quarta-feira, 28 de novembro de 2007 16:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Perdendo informações em uma classe, porque?
Fellipe Henrique wrote:
Na procedure SetArea, eu passo os valores para as variáveis: FTabela,
FCampoIndice e FCampoLocalizar.
na procedure Teste, quando tento ver os valores das variáveis, eles retornam
NIL... mas eu não destrui a classe nem nada...
eu crio ela no create da aplicação, e
Mande o fonte completo, senão fica difícil adivinhar.
Em 28/11/07, Fellipe Henrique [EMAIL PROTECTED] escreveu:
Olá amigos, tenho a seguinte classe:
TDgLocalizar = class(TObject)
private
_AreaAtual: integer;
_cdsArea, _cdsField: TClientDataSet;
FTabela, FCampoIndice,
Cara, ao invés de usar o FOR usa o WHILE ... + ou - assim:
var bAchei : boolean;
x := 0;
bAchei := false;
while ((not bAchei) and (xLength(array)-1)) do begin
bAchei := (array[x]=valor);
inc(x);
end
neste caso se o array tem 1000 elementos e o valor que procuras está no quinto
elemento,
Leonardo Soares SobrinhoColegas, boa tarde.
Tenho uma aplicação que envia alguns arquivos para um servidor de ftp, só que
estou encontrando dificuldades com relação ao endereço do servidor, por
exemplo... se tenho o nome do servidor ftp.rinco.com.br consigo acessá-lo
normalmente e transferir
Cara, mil perdões, depois é que fui ver... outro programador da equipe,
colocou um Create no Form que é usado, ou seja, estava criando2 vezes a
mesma classe, então sempre pegava a ultima, com tudo em branco...
Obrigado a todos.
[]s
Em 28/11/07, Joao Morais [EMAIL PROTECTED] escreveu:
Obrigado, se vc passou o email eu ainda não recebi.
Gerson
Alexandre Rodrigues [EMAIL PROTECTED] escreveu:
Cara, eu tenho um exemplo de OCR. Não vou mandar em private se não
fica
todo mundo pedindo, depois eu posto na seção files. ai todo mundo baixa.
Gerson Machado
Pessoal,
Estamos fazendo testes com o pool do DBExpress 4 onde trabalho. Contudo,
percebemos que, claramente a framework está gerando um pequeno memory leak
(isso mesmo!!!). Contudo, vamos desenvolver um serviço que será consumido
centenas de vezes ao dia. Esse pequeno memory leak vai derrubar
Adriano Silveira wrote:
Cada requisição cai num código como o acima. De fato, o Connection é
liberado da memória, porém alguns elementos internos dele, não.
Utilizei o ReportMemoryLeaksOnShutdown := True; para perceber isso.
Alguém sabe como resolver/contornar esse problema?
Consulte o
Voce pode verificar de o endereço tem o FTP caso tenha vc usa a /
senão vc não usa...
tipo assim
if pos('ftp',endereco) 0 then
Changedir:= '/'
else
ChargeDir:= '';
Acho que resolve...
Wesley
-
Ei SOM, testando, testando, 12345, SOM SOM.. heheheeh
Em 28/11/07, Nilson Chagas [EMAIL PROTECTED] escreveu:
Testado.
Em 28/11/07, Marcus Vinícius Moreira [EMAIL
PROTECTED]marquinhus%40gmail.com
escreveu:
Olá, esta é uma mensagem de teste. Não estou
sendo respondido nas mensagens
ok.. Obrigado pela dica.
- Original Message -
From: Alessandro DUARTE de Moraes
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 28, 2007 4:45 PM
Subject: Re: [delphi-br] Array
Cara, ao invés de usar o FOR usa o WHILE ... + ou - assim:
var bAchei
Olá pessoal, boa noite,
Estou tentando exportar registros do meu aplicativo (feito em Delphi 7 com Sql
Server 2000 Personal Edition e usando ferramentas ADO para conexao com o banco
de dados) para uma planilha do Excel, daí gera a mensagem de erro: OLE error
800A03EC. e não gera a planilha com
E que tal for com break?
[]s
Topolniak.
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de BandaLemuel
Enviada em: quarta-feira, 28 de novembro de 2007 15:58
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Array
ok.. Obrigado pela dica.
- Original
Tb resolve.
Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 28 Nov 2007 17:43:22
-0400Subject: RES: [delphi-br] Array
E que tal for com break?[]sTopolniak.De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Emnome de BandaLemuelEnviada em: quarta-feira, 28 de
novembro de
Baixei do site da CodeGear, o delphi 2007... 4.2 gb...
vi também que quando abri o delphi 2007, não apareceu quase nenhum
componente... nem label, edit, etc, etc...
estou desinstalando e depois, vou instalar novamente...
em breve, comento se deu certo...
Obrigado!
Confesso que sou um pouco mané com banco de dados.
Pode ser que seja esse o problema msm, vou dar uma olhada.
Vlw.
--
Adriano Santos
-
Editor Técnico Revista ClubeDelphi
www.delphitodelphi.blogspot.com
www.devmedia.com.br
CodeGear, o delphi 2007... 4.2 gb...
vi também que quando abri o delphi 2007, não apareceu quase nenhum
componente... nem label, edit, etc, etc...
estou desinstalando e depois, vou instalar novamente...
em breve, comento se deu certo...
Obrigado!
__ NOD32 2692 (20071128) Information
instalar novamente...
em breve, comento se deu certo...
Obrigado!
__ NOD32 2692 (20071128) Information __
This message was checked by NOD32 antivirus system.
part000.txt - is OK
part001.htm - is OK
http://www.eset.com
[As partes desta mensagem que não continham
Existe um video do Nick Hodges explicando como funciona o novo Tool Pallete.
Bem legal e vocês irão conhecer as vantages -
http://bdntv.borland.com/pix/nickhodges/Camtasia/NewToolPalette/NewToolPalette.html
[]'s
Andreano Lanusse
CodeGear Product Line Manager Evangelist Leader Latin
tks positivo... to em qap
;)
Em 28/11/07, Marcus Vinícius Moreira [EMAIL PROTECTED] escreveu:
Olá, esta é uma mensagem de teste. Não estou
sendo respondido nas mensagens enviadas.
Agradeço.
--
Marcus Vinícius Moreira
[As partes desta mensagem que não continham texto foram removidas]
73 matches
Mail list logo