date:20041025

Re: [delphi-br] Função para fechar programas no Tray

2004-10-25 Por tôpico Gercil Junio

Muito obrigado Adilson
era bem o que eu precisava!
[]s

- Original Message - 
From: Adilson Nunes [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Sunday, October 24, 2004 9:47 PM
Subject: Re: [delphi-br] Função para fechar programas no Tray

Gercil Junio escreveu:

 Olá!
 existe alguma função e/ou comando para fechar um certo programa que
 está no Tray ?
 Como por exemplo:
 Msn, NAV, Winamp e etc

 Obrigado pela atenção!
 []s

*

Eu fecho qualquer programa com este abaixo eu o utilizava para fechar o
Netscape que estava dando problemas. Mas coloquei um Edit e passo o nome
do executável (winword, excel, delphi32, msimn, msnmsgr, etc.) e ele
fecha. Se não tiver nada no Edit ele mata o Netscape e fecha. Pode até
ser programa travado, mata na hora. Veja se te serve e faça sua adaptações.

Delphi 6

http://tetraetila.coolfreepage.com/kill.html

unit UnitDieNs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Tlhelp32, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
  Button1: TButton;
Edit1: TEdit;
Timer1: TTimer;
  function KillTask(ExeFileName: string): Integer;  // É esta a função.
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.KillTask(ExeFileName: string): Integer;
const
 PROCESS_TERMINATE = $0001;
var
 ContinueLoop: BOOL;
 FSnapshotHandle: THandle;
 FProcessEntry32: TProcessEntry32;
begin
 Result := 0;
 FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
 ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

 while Integer(ContinueLoop)  0 do
 begin
   if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
 UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
 UpperCase(ExeFileName))) then
 Result := Integer(TerminateProcess(
   OpenProcess(PROCESS_TERMINATE,
   BOOL(0),
   FProcessEntry32.th32ProcessID),
   0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
 end;
 CloseHandle(FSnapshotHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask(Edit1.Text+'.exe');
Button1.Caption:=('Dead ...');
sleep(2000);
Button1.Caption:=('tetraetila®');
Edit1.Text:=('');
Edit1.SetFocus;
Application.Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
KillTask('Netscp.exe');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Edit1.Text='' then
Application.Terminate;
end;
end.

-- 
--
Adilson Nunes   -  tetraetila®

?
   õ¿õ¬
   (¬)

Linux Registered User # 272492
--

[As partes desta mensagem que não continham texto foram removidas]

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Delphi 8.Net: Que versao do Framework devo usar

2004-10-25 Por tôpico datorre - ig


Olá, 

 

 

Para baixar o framewok, vc pode entrar em http://www.msdn.com.br
http://www.msdn.com.br/  , lá tem o link pra baixar.  A única versão quem
está disponível é a 1.x, a 2.0 está pra sair comercialmente até o fim do
ano.

 

 

 



Fernando Datorre

Gerente de STI -  mailto:[EMAIL PROTECTED] [EMAIL PROTECTED]

 http://br.thespoke.net/MyBlog/datorre/MyBlog.aspx
http://br.thespoke.net/MyBlog/datorre/MyBlog.aspx

 

 

  _  

De: Paulo Sérgio Dias [mailto:[EMAIL PROTECTED] 
Enviada em: Friday, 22 October 2004 18:01 PM
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Delphi 8.Net: Que versao do Framework devo usar

 

Pessoal:

a) Estou aprendendo Delphi 8.Net
b) De uns tempos para ca', ao tentar rodar
algum programa (ASP.NET), comecou
a aparecer a seguinte mensagem:

Unable to atach to ASP.NET worker process (typically aspnet_wp.exe or
w3wp.exe).

c) Suponho que isso tenha algo a ver com as versoes do Framework que
tenho no meu computador, que são as seguintes:

v1.0.3705
v1.1.4322
v2.0.40607


Perguntas:

1) O Delphi 8 funciona com que versão do Framework ?
2) Certa vez, quando aparecia a mensagem de erro acima,
falaram-me que eu deveria entrar na pasta
\winnt\microsoft.Net\framework\versao do framework
e digitar:   aspnet_regiis -i

Mas já tentei com as três versões acima e a mensagem de erro continua.

Alguma dica ?

Grato pela atencao de todos

Paulo



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]







Yahoo! Grupos, um serviço oferecido por:



 
http://br.rd.yahoo.com/SIG=12atv5533/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1098565354/A=2191897/R=0/SIG=10vqa2grn/*http:/br.di
versao.yahoo.com/ 



 
http://br.rd.yahoo.com/SIG=12atv5533/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1098565354/A=2191897/R=1/SIG=10vqa2grn/*http:/br.di
versao.yahoo.com/ 

 São PauloRio de JaneiroCuritibaPorto AlegreBelo Horizonte
Brasília

 

  _  

Links do Yahoo! Grupos

*   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED] 
  
*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos
http://br.yahoo.com/info/utos.html  do Serviço do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] XML e ClientDataSet

2004-10-25 Por tôpico Felipe Pasqualotto


Blz, funcionou

Obrigado


-Mensagem original-
De: NDB [mailto:[EMAIL PROTECTED] 
Enviada em: domingo, 24 de outubro de 2004 14:01
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] XML e ClientDataSet



vc tera que instalar essa dll no C - windows - system.

Felipe Pasqualotto [EMAIL PROTECTED] wrote:Boa tarde,
estava lendo um artigo seu na net sobre Tabelas Temporárias no Delphi
através do ClientDataSet, segui rigorosamente o seu exemplo e me dá um erra
de Error loading MIDAS.DLL ao executar o create dataset, alguém tem alguma
idéia do que possa estar acontecendo?

Abraço

Felipe

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.778 / Virus Database: 525 - Release Date: 15/10/2004




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:

















   function SearchComboBox() { if
(document.form_combo.keyword.value.length==0){  alert(Por favor, digite
algo.);  return false; }else {  document.form_combo.action
=http://br.rd.yahoo.com/SIG=12a447qui/M=264105.3931087.6562589.1588051/D=br
clubs/S=2137111264:HM/EXP=1098213234/A=2361264/R=0/SIG=11uaou2jn/*http://www
.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11; } return true;} [input]
[input]   [input]  

-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!. 




-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED]
ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos




 



---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004
 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Achei isso no Delphi3000

2004-10-25 Por tôpico Walter Alves Chagas Junior



delphi3000 é um portal de dicas e nao uma unit ou pacote de componentes.

www.delphi3000.com
 
 
 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia 
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200
 
 

 -Mensagem original-
 De: Gercil Junio [mailto:[EMAIL PROTECTED]
 Enviada em: sexta-feira, 22 de outubro de 2004 20:52
 Para: Delphi BR
 Assunto: Fw: [delphi-br] Achei isso no Delphi3000
 
 
 
 onde vc pego o delphi 3000 ?
 e essa unit funciona ?
 
 
 - Original Message - 
 From: Walter Alves Chagas Junior [EMAIL PROTECTED]
 To: [EMAIL PROTECTED]
 Sent: Friday, October 22, 2004 6:53 PM
 Subject: RES: [delphi-br] Achei isso no Delphi3000
 
 
 
 Pelo que li, esta unit permite um aplicativo feito no Delphi usar os
 protocolosdo Messenger
 
 
 
  []s
 
  Walter Alves Chagas Junior
  Projeto e desenvolvimento
  Telemont Engenharia
  [EMAIL PROTECTED]
  Fone: (31) 3389-8215 Fax: (31) 3389-8200
 
 
 
  -Mensagem original-
  De: David Leão [mailto:[EMAIL PROTECTED]
  Enviada em: sexta-feira, 22 de outubro de 2004 17:51
  Para: [EMAIL PROTECTED]
  Assunto: Res: [delphi-br] Achei isso no Delphi3000
 
 
 
  Do que se trata??
 
 
 
  uma aplicação parecida com o messenger da microsoft??
 
  []'s
 
 
 
  __
 
  David Leão Alves
 
  Administrador de Banco de Dados
 
  Governo do Estado do Amapá
 
  Secretaria de Estado do Meio Ambiente - SEMA
 
   Av. Mendonça Furtado, 53 - Centro / Macapá-AP
 
   212-5318 - 212-5378
 
   212-5303
 
   [EMAIL PROTECTED]
 
   www.sema.ap.gov.br
 
  ---Mensagem original---
 
 
 
  De: [EMAIL PROTECTED]
 
  Data: 10/22/04 17:15:03
 
  Para: '[EMAIL PROTECTED]'
 
  Assunto: [delphi-br] Achei isso no Delphi3000
 
 
 
  This is an implementation of the msn messenger protocol in
  delphi it isnt
 
  complete and in order to build it you will need the WSocket
  package, most of
 
  what is
 
  presented here is a part of the specification (still not
  enough to even make
 
  a stripped down MSN Messenger clone).
 
 
 
  The work you see here has its todos (most due to the fact
  that I am simply
 
  new to sockets programming), this article is based on works
  of venkydude MSN
 
  article and
 
  a old version of KMerlin (an opensource msn messenger clone
  for linux).
 
 
 
  This is the second article I write on Instant Messaging (The
  first one about
 
  the yahoo protocol, something wich I have not been able to
  complete due to
 
  time
 
  constraints (lot of work))
 
 
 
  I am planning in updating this article As Soon As Posible and
  I would like
 
  some help, if you are interested (in helping me) contact me
  at my email
 
  address
 
  ([EMAIL PROTECTED]) with the subject YahooLib.pas
  (Without quotes, this
 
  way I know it is about the msn/yahoo protocols)
 
 
 
  So enough chat in here is the code:
 
 
 
  -CODE
  --
 
  --
 
 
 
 
 
  {GLOBAL TODO: IMPLEMENT LOCAL TODO's, cleanup, extend}
 
  unit MSNMessenger;
 
 
 
  interface
 
 
 
  uses
 
WSocket, MD5, Classes, SysUtils;
 
 
 
  type
 
TUserState = (
 
  usOnline,  // you are online
 
  usBusy,// Actually busy
 
  usBRB, // Be Right Back
 
  usAway,// Away
 
  usOnPhone, //On Phone
 
  usLunch,   //Lunch
 
  usHidden,   //Hidden
 
  usOffline  //Offline
 
  );
 
 
 
TMSNMessenger = class(TComponent)
 
private
 
  FConnected: Boolean;
 
  FUserName: String;
 
  FPassword: String;
 
  FFriendlyUserName: String;
 
  FLog: TStrings;
 
  FFriendlyNameChange: TNotifyEvent;
 
  FState: TUserState;
 
  function GetHost: String;
 
  procedure SetHost(const Value: String);
 
  function GetPort: String;
 
  procedure SetPort(const Value: String);
 
  procedure SetUserName(const Value: String);
 
  procedure SetPassWord(const Value: String);
 
  function GetFriendlyUserName: String;
 
  procedure SetFriendlyUserName(const Value: String);
 
  procedure SetState(const Value: TUserState);
 
protected
 
  FSocket: TWSocket;
 
  FTrialID: Integer;
 
 
 
  procedure SendVER;
 
  procedure ReceiveSYN;
 
 
 
  procedure SocketWrite(const AString: String);
 
  procedure LogWrite(const Data: String);
 
  procedure ProcessCommand(const ACommand: String);
 
  procedure SocketDisconnect(Sender: TObject; Error: Word);
 
  procedure SocketDataAvailable(Sender: TObject; Error: Word);
 
  procedure SocketConnect(Sender: TObject; Error: Word);
 
 
 
  procedure TriggerFriendlyNameChange; dynamic;
 
public
 
  constructor Create(AOwner: TComponent); override;
 
  destructor Destroy; override;
 
 
 
  procedure Login;
 
  procedure Logoff;
 
published
 
  property Host: String read GetHost write SetHost;
 
  property Port: String read GetPort write SetPort;

RES: [delphi-br] Acentuação em Pesquisa!!!

2004-10-25 Por tôpico Marcello


onde acho essa função para interbase?
 
Marcelo.

  _  

De: Felipe Pasqualotto [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 17:06
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Acentuação em Pesquisa!!!


Existe uma UDF que faz isso:
udf_CollateBr da tbudf;

Abraços

Felipe


-Mensagem original-
De: Dimas Fernando [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 22 de outubro de 2004 17:34
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Acentuação em Pesquisa!!!



Utilizo FireBird 1.0.3.queria poder pesquisar da mesma forma, ou
seja, trazer todos os nomes JOSE...José...JOSÉ..

Mas nao funciona..

Alguem consegiu ??

Ate mais



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED]
ou [EMAIL PROTECTED]

Links do Yahoo! Grupos








---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:


  http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif


 
 
http://br.rd.yahoo.com/SIG=12a8kllb4/M=264105.3931087.6562589.1588051/D=brc
lubs/S=2137111264:HM/EXP=1098565639/A=2361264/R=6/SIG=10v4acpp0/*http://br.s
hopping.yahoo.com/ 

  _  

Links do Yahoo! Grupos


*   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED] 
  

*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html . 




[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Off-Topic - Preciso de Empresas de Representao

2004-10-25 Por tôpico Antonio Carlos


Olá pessoal,

Desculpem de off,

Tenho uma empresa de desenvolvimento de Sistemas Contábeis, estou precisando de 
empresa em todo o brasil que possam fazer a representação de nossos sistemas, os 
sistemas estão em Delphi e FireBird, tenho sistemas em DOS tambem

Sistemas: Fiscal, Contabil, Gerenciamento de Escritórios, Financeiro

O sistema de Folha estará pronto em janeiro, e já estará pronto para uso pois 
tenho parceria com uma contabilidade e me dão total assessoria,

Os interessado me contacte em off-topic

Obrigado,

Antonio Carlos
[EMAIL PROTECTED]
www.unik-info.com.br
Fone: +55 11 5585-2624

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Graficos com urgencia

2004-10-25 Por tôpico Hélton Ribeiro Nunes


na clubedelphi 54 tem um artigo sobre isso.

[]´s

At 16:21 23/10/2004, you wrote:

Ola!
Estou precissando de saber como funciona o grafico do D6 parecido com 
execel..

quero gerar um grafico comercial

Grato!!!

[As partes desta mensagem que não continham texto foram removidas]



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Controle de Acesso

2004-10-25 Por tôpico Cesar Montezuma


Bom dia a todos,
 
Alguem conhece algum software de controle de acesso para lanhouse, de preferência free


-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Autocompletar - URGENTE

2004-10-25 Por tôpico Felipe Pasqualotto


Bom dia pessoal!

Estou com um problema gravíssimo com o AutoCompletar, todas os inícios
funcionam, menos com o A, independente da quantidade de registros;

A =897 Registros
B =488
C =360
D =117
...
R = 10.360 Registros

Alguma luz por favor...

Abraços e sucessos a todos...

Felipe

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004
 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Autocompletar - URGENTE

2004-10-25 Por tôpico Felipe Pasqualotto


É uma função, utilizo dos componentes TDBEdit:


procedure TFrmCliente.ConsEditAsBairroChange(Sender: TObject);

  function Procura(Txt: string): String;
  var
iA: Integer;
  begin

   with Bai_temp do
 if TXT  '' then
FOR iA:=0 to PRED(COUNT) do
  IF (LSTRCMP(PCHAR(COPY(STRINGS[iA],1,LENGTH(TXT))),PCHAR(TXT))=0)
OR
 (LSTRCMPI(PCHAR(COPY(STRINGS[iA],1,LENGTH(TXT))),PCHAR(TXT))=0)
THEN
BEGIN
  RESULT:=STRINGS[iA];
  BREAK;
END;

  end;


var
  iA, iB: Integer;
begin
  if (Bai_Temp = nil) or (dsTabela.Dataset.State = dsBrowse)  then Exit;
  if not bpausa and active then
  begin
if procura(ConsEditAsBairro.text)  '' then
begin
  ib:=length(ConsEditAsBairro.text);
  ConsEditAsBairro.text:=procura(ConsEditAsBairro.text);
  ConsEditAsBairro.selstart:=ib;
  ConsEditAsBairro.sellength:=length(procura(ConsEditAsBairro.text))-ib;
end;
  end;
  bpausa:=false;
  for ia := 0 to Bai_Temp.Count - 1 do
 if Bai_Temp.strings[ia] = ConsEditAsBairro.text then
 begin
Bai_Temp.Strings[ia];
break;
 end else
Bai_Temp.Strings[0];
end;


//aqui carrego a lista


  with Dados.IBSQL do
  begin
Close;
SQL.Clear;
SQL.Add('select distinct CLENDER from CLIENTES order by CLENDER');
ExecQuery;
  end;
  End_Temp := TStringList.Create;
  End_temp.Clear;
  while not Dados.IBSQL.Eof do
  begin
End_temp.Add(Dados.IBSQL.FieldByName('CLENDER').AsString);
Dados.IBSQL.Next;
  end;

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004
 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] migrando para o Delphi7

2004-10-25 Por tôpico Rubem Rocha


Eu acho mais fácil procurar a revista, pq eu num sei se alguém da lista tem tempo pra 
digitar o artigo inteiro e disponilizar pra moçada. Até pq num tem download de artigos 
na revista ClubeDelphi, e sím de códigos fonte que estejam relacionados ao artigo (e 
isso quando tem). Em todo caso, alguém se habilita?
[]s

-Mensagem original-
De: info.suporte [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 25 de outubro de 2004 08:03
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] migrando para o Delphi7



Alguem pode disponibilizar o artigo que saiu na edição 36 da revista Clube do Delphi. 
Me interessei pelo assunto.

PAULO FERNANDES


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:  
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED] ou [EMAIL 
PROTECTED]
 
Links do Yahoo! Grupos




 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] migrando para o Delphi7

2004-10-25 Por tôpico Rubem Rocha


Sem falar, é claro, nas figuras que estão no artigo. Como é que o cara vai 
reproduzí-las, caso ele queira digitar todo o conteúdo do artigo?
[]s

-Mensagem original-
De: Rubem Rocha [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 25 de outubro de 2004 09:01
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] migrando para o Delphi7
Prioridade: Alta



Eu acho mais fácil procurar a revista, pq eu num sei se alguém da lista tem tempo pra 
digitar o artigo inteiro e disponilizar pra moçada. Até pq num tem download de artigos 
na revista ClubeDelphi, e sím de códigos fonte que estejam relacionados ao artigo (e 
isso quando tem). Em todo caso, alguém se habilita? []s

-Mensagem original-
De: info.suporte [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 25 de outubro de 2004 08:03
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] migrando para o Delphi7



Alguem pode disponibilizar o artigo que saiu na edição 36 da revista Clube do Delphi. 
Me interessei pelo assunto.

PAULO FERNANDES


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:  
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED] ou [EMAIL 
PROTECTED]
 
Links do Yahoo! Grupos




 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:  
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED] ou [EMAIL 
PROTECTED]
 
Links do Yahoo! Grupos




 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Aplicação CLX

2004-10-25 Por tôpico Edney Barros


eu desenvolvi meu sistema no Delphi7/Kylix3/ZeosLib/FireBird 1.5, e ele roda tanto em 
Win9x/Win2k quanto no Linux (suse 9), sem problemas,
obs: (levando em consideração as particularidades de cada sistema operacional).
você olhou se a fbclient.dll está na pasta SYSTEM ou SYSTEM32. pois a ultima versão 
do ZeosLib utiliza a fbclient.dll como padrão pra acessar o firebird e não + a 
gds.dll
   ^__^
 ( @ @ )
o0Oo-(_)-oO0o--
Edney Barros Batista
Skype : edney.barros
msn : [EMAIL PROTECTED]
ICQ : 157339180
Araguaína - Tocantins - BraSil
-  ---

- Original Message -
From: Álvaro Vieira [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Saturday, October 23, 2004 8:08 AM
Subject: [delphi-br] Aplicação CLX



 Amigos,

 Delphi 7 / Windows 2000 (English) / ZeosLib / Firebird 1.5

 Desenvolvi uma aplicação CLX e, na máquina de desenvolvimento, tudo está
 funcionando perfeitamente, mas, quando copio o programa e a qtintf70.dll
 para a máquina de produção (Windows 2000 (English)), aparece o erro
 abaixo...

 pegasus.exe has generated erros and will be closed by Windows.
 You will need to restart the program.

 Alguém têm alguma idéia do que pode estar ocasionando este erro?

 --
 Álvaro Vieira


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Copia de arquivos com atributo read-only( somente-leitura )

2004-10-25 Por tôpico Douglas - CPD


Preciso de uma função que copie sobre arquivos com atributo read-only,
alguém teria ??


Obrigado.


Att.
Douglas - CPD.
---
Email enviado sem vírus - ¿?
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Re: Aplicação CLX

2004-10-25 Por tôpico arcoverdeneto



--- Edney Barros [EMAIL PROTECTED] escreveu
 ...
 você olhou se a fbclient.dll está na pasta SYSTEM ou SYSTEM32.  
 

Não estava... Valeu, resolveu o problema :D

-- 
Álvaro Vieira





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Autocompletar - URGENTE

2004-10-25 Por tôpico Felipe Pasqualotto


Olá, consegui solucionar o problema, estava no CharCase:
Caso usar CharCase como Upper deverá carregar a lista tb com o Upper e assim
consecutivamente...

Mas obrigado 

Abraços e sucesso 
Felipe



-Mensagem original-
De: Felipe Pasqualotto [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 25 de outubro de 2004 10:00
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Autocompletar - URGENTE



É uma função, utilizo dos componentes TDBEdit:


procedure TFrmCliente.ConsEditAsBairroChange(Sender: TObject);

  function Procura(Txt: string): String;
  var
iA: Integer;
  begin

   with Bai_temp do
 if TXT  '' then
FOR iA:=0 to PRED(COUNT) do
  IF (LSTRCMP(PCHAR(COPY(STRINGS[iA],1,LENGTH(TXT))),PCHAR(TXT))=0)
OR
 (LSTRCMPI(PCHAR(COPY(STRINGS[iA],1,LENGTH(TXT))),PCHAR(TXT))=0)
THEN
BEGIN
  RESULT:=STRINGS[iA];
  BREAK;
END;

  end;


var
  iA, iB: Integer;
begin
  if (Bai_Temp = nil) or (dsTabela.Dataset.State = dsBrowse)  then Exit;
  if not bpausa and active then
  begin
if procura(ConsEditAsBairro.text)  '' then
begin
  ib:=length(ConsEditAsBairro.text);
  ConsEditAsBairro.text:=procura(ConsEditAsBairro.text);
  ConsEditAsBairro.selstart:=ib;
  ConsEditAsBairro.sellength:=length(procura(ConsEditAsBairro.text))-ib;
end;
  end;
  bpausa:=false;
  for ia := 0 to Bai_Temp.Count - 1 do
 if Bai_Temp.strings[ia] = ConsEditAsBairro.text then
 begin
Bai_Temp.Strings[ia];
break;
 end else
Bai_Temp.Strings[0];
end;


//aqui carrego a lista


  with Dados.IBSQL do
  begin
Close;
SQL.Clear;
SQL.Add('select distinct CLENDER from CLIENTES order by CLENDER');
ExecQuery;
  end;
  End_Temp := TStringList.Create;
  End_temp.Clear;
  while not Dados.IBSQL.Eof do
  begin
End_temp.Add(Dados.IBSQL.FieldByName('CLENDER').AsString);
Dados.IBSQL.Next;
  end;

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004
 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED]
ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos




 



---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004
 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] instalação do delphi 8 e multiplas máquinas

2004-10-25 Por tôpico GreG


Tenho um delphi 8 professional que ganhei em um
sorteio da borland, gostaria de saber se posso
instalá-lo em meu destop e em meu notebook ou tenho de
adquirir uma nova cópia do delphi 8 ?

__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] propriedade listfieldindex sempre com valor zero (Dblookuplistbox )

2004-10-25 Por tôpico wanderson_raimundo



Pessoal ,

Sou iniciante , preciso saber se foi ou não selecionado algum item 
no meu dblookuplistbox, estou checando a propriedade listfieldindex 
só que ela tá sempre com o valor zero , independente da seleção do 
item . 
Alguem poderia me ajudar ?





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Componente free para acessar a dupla DBF/NTX.

2004-10-25 Por tôpico Alessandro Fernandes


Alguém conhece algum componente free para acessar arquivos DBF com índices
NTX?

 

Procurei na NET, mas só encontrei componentes pagos como o Apollo e o
Halcyon. Para o que quero não justifica pagar nada. 

 

Muito obrigado.

___

Alessandro Cunha Fernandes  

SoftTI - Software e Consultoria em TI

 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Unsubscribe

2004-10-25 Por tôpico Claudio Henn


por favor ja e a terceira vez que solicito ser
excluido deste grupo





___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! 
http://br.acesso.yahoo.com/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Componente free para acessar a dupla DBF/NTX.

2004-10-25 Por tôpico Rubem Rocha


http://tdbf.sourceforge.net
OBS.: Não é aconselhável com DBFs e CDXs (visual foxpro)!
[]s

-Mensagem original-
De: Alessandro Fernandes  [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 25 de outubro de 2004 10:06
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Componente free para acessar a dupla DBF/NTX.



Alguém conhece algum componente free para acessar arquivos DBF com índices NTX?

 

Procurei na NET, mas só encontrei componentes pagos como o Apollo e o Halcyon. Para o 
que quero não justifica pagar nada. 

 

Muito obrigado.

___

Alessandro Cunha Fernandes  

SoftTI - Software e Consultoria em TI

 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:  
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED] ou [EMAIL 
PROTECTED]
 
Links do Yahoo! Grupos




 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Problema com TIdSMTP e Anexo - Complemento

2004-10-25 Por tôpico Daniel / Tecnobyte


Apenas para complementar...

O problema só ocorre se o usuário for ler a mensagem pelo Webmail (do
BRTurbo e alguns outros). Se ele baixar a mensagem pelo Outlook Express o
problema não ocorre.

Atenciosamente.

Daniel P. Guimarães
Tecnobyte Informática
www.tecnobyte.com.br

- Original Message -
Subject: [delphi-br] Problema com TIdSMTP e Anexo



 Toda vez que envio uma mensagem usando TIdSMTP com anexo para e-mails do
 BRTurbo (e alguns outros provedores também) o destinatário não recebe a
 mensagem original, mas somente o aviso abaixo:

 -
 Não foi possível decodificar este e-mail seguindo o padrão de e-mail
 (rfc822).
 Ele foi guardado como anexo e pode ser baixado sem perda de dados.
 -

 Este problema só ocorre quando a mensagem contem anexos.

 Segue o código-fonte:

 --
 procedure TForm1.Button1Click(Sender: TObject);
 var
   SMTP: TIdSMTP;
   Msg: TIdMessage;
 begin
   SMTP := TIdSMTP.Create(nil);
   Msg := TIdMessage.Create(nil);
   try
 SMTP.Host := 'mail.nomedoservidor.com.br';
 SMTP.Port := 25;
 SMTP.AuthenticationType := atNone;
 SMTP.Connect;
 try
   Msg.From.Address := '[EMAIL PROTECTED]';
   Msg.From.Name := 'Nome do remetente';
   Msg.Subject := 'Assunto da mensagem';
   Msg.Body.Text := 'Texto da mensagem';
   Msg.Recipients.EMailAddresses := '[EMAIL PROTECTED]';
   TIdAttachment.Create(Msg.MessageParts, 'c:\teste.txt'); { Anexo }
   SMTP.Send(Msg);
 finally
   SMTP.Disconnect;
 end;
   finally
 SMTP.Free;
 Msg.Free;
   end;
   ShowMessage('Mensagem enviada');
 end;
 ---

 No help do Delphi diz que o componente TIdMessage é compatível com o
padrão
 rfc822. Será que tenho que alterar alguma propriedade para não dar este
 problema? Mas qual?

 Alguém já passou por este problema?

 Notas:

 1. Os endereços mostrados no código-fonte acima foi trocados nesta
mensagem
 para evitar spam.

 2. Enviando a mesma mensagem e com o mesmo anexo por outro programa de
 e-mail (Outlook ou Yahoo) não ocorre o referido erro.

 3. Uso Delphi6 e está atualizado com Update Pack 2.

 Atenciosamente.

 Daniel P. Guimarães
 Tecnobyte Informática
 www.tecnobyte.com.br




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Componente free para acessar a dupla DBF/NTX.

2004-10-25 Por tôpico Alessandro Fernandes


Rubem , muito obrigado. Mas esse componente não lê índices NTX. Eu preciso
de um componente capaz de reconhecer esse tipo de índice.

 

Alguém ai conhece um?

 

___

Alessandro Cunha Fernandes  

 

  _  

De: Rubem Rocha [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 25 de outubro de 2004 13:07
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Componente free para acessar a dupla DBF/NTX.
Prioridade: Alta

 

http://tdbf.sourceforge.net
OBS.: Não é aconselhável com DBFs e CDXs (visual foxpro)!
[]s

-Mensagem original-
De: Alessandro Fernandes  [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 25 de outubro de 2004 10:06
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Componente free para acessar a dupla DBF/NTX.



Alguém conhece algum componente free para acessar arquivos DBF com índices
NTX?



Procurei na NET, mas só encontrei componentes pagos como o Apollo e o
Halcyon. Para o que quero não justifica pagar nada. 



Muito obrigado.

___

Alessandro Cunha Fernandes  

SoftTI - Software e Consultoria em TI





[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED]
ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]







Yahoo! Grupos, um serviço oferecido por:



 
http://br.rd.yahoo.com/SIG=12aj0nslo/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1098803345/A=2191897/R=0/SIG=10vqa2grn/*http:/br.di
versao.yahoo.com/ 



 
http://br.rd.yahoo.com/SIG=12aj0nslo/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1098803345/A=2191897/R=1/SIG=10vqa2grn/*http:/br.di
versao.yahoo.com/ 

 São PauloRio de JaneiroCuritibaPorto AlegreBelo Horizonte
Brasília

 

  _  

Links do Yahoo! Grupos

*   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED] 
  
*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos
http://br.yahoo.com/info/utos.html  do Serviço do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse e não saio !

2004-10-25 Por tôpico Rogério


Puts, nunca ouví falar... nem sabia que era possível !
Achei que o TClientDataSet era exclusivamente para se trabalhar com Tabelas
de BD.
Vou dar uma olhada mas,,,
Alguém conhece ou tem alguma informação a respeito 
[]'s

- Original Message - 
From: Rubem Rocha [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, October 22, 2004 3:12 PM
Subject: RES: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !



Pq ñ usa tabelas em memória com TClientDataSet?
[]s

-Mensagem original-
De: Ricardo [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 22 de outubro de 2004 11:30
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !



Array dinamico eh maior comedor de memoria use declaracoes estaticas que
mesmo grande os arrays usa pouca memoria. .
- Original Message - 
From: Rogério [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, October 22, 2004 12:09 PM
Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste impasse
e não saio !



 É que preciso fazer alguns algorítimos de estatística e com alta
performance
 que utilizam Matrizes Gigantes 500x500, 1000x1000.. Etc... Fazer isto
 utilizando Tabelas em BD é a Morte, pois eu preciso dos resultados
 calculados em um curto espaço de tempo. Por isto utilizo Arrays que é
 bem mais rápido !!! Mas o ponto negativo é que consome Mem. Ram à
 Beça. Tenho que achar uma maneira de trabalhar com um Range Maior.
 [ ]'s

 - Original Message -
 From: Felippe Nagato [EMAIL PROTECTED]
 To: [EMAIL PROTECTED]
 Sent: Friday, October 22, 2004 2:51 AM
 Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
impasse
 e não saio !


 
  O que o amigo quis dizer eh que funciona, porém quando passa de
  200x200,
 dá
  pau.
  Nao sei dizer tb o motivo.
  Mas o que acontece quando vc cria arrays dinamicos no Delphi 5? Não
  me recordo de qualquer problema na criação dos mesmos no Delphi 5.
  Mas nunca cheguei a criar um array tão grande quanto ao seu.
 
  - Original Message -
  From: Julio Cesar [EMAIL PROTECTED]
  To: [EMAIL PROTECTED]
  Sent: Thursday, October 21, 2004 6:19 PM
  Subject: Re: [delphi-br] Help em Arrays... à 4 anos que estou neste
 impasse
  e não saio !
 
 
 
  nao me lembro se funciona no delphi 5, mas acredito q sim, certa vez
  eu
 fiz
  um tridimensional, mas foi no 6 tenta ai... mas eu tenho quase
certeza
 q
  funcione, pq vi algo parecido no delphi 3
 
 
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
  Links do Yahoo! Grupos
 
 
 
 
 
 
 
 



 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos













-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED]
ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] migrando para o Delphi7

2004-10-25 Por tôpico Neto


O artigo foi escrito pelo Guinter e está presente somente na revista. Não
existe arquivo para download.

Neto
Masterserv Ltda.
Brasília/DF
- Original Message -
From: info.suporte [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 9:02 AM
Subject: [delphi-br] migrando para o Delphi7



Alguem pode disponibilizar o artigo que saiu na edição 36 da revista Clube
do Delphi.
Me interessei pelo assunto.

PAULO FERNANDES


[As partes desta mensagem que não continham texto foram removidas]



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.779 / Virus Database: 526 - Release Date: 19/10/2004



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] off topic - xp sp2

2004-10-25 Por tôpico Ricardo



Tenho um cliente que comprou pc novo sem sistema operacional (a loja instalou xp 
pirata).

pergunta ele pode instalar o service pack 2 ou vai pedir senha ou checar a licenca 
dele?


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Fomatar valor em relatório

2004-10-25 Por tôpico Felipe Guerço Oliveira


Tente assim:

Valor.Caption := FormatFloat('#,##0.00', qry1FieldByName( 
VL_LOCAL' ).Value);

ou pode também colocar na propriedade DisplayFormat do TField esta máscara 
#,##0.00
e linkar direto em um TQRDBText


Atenciosamente,
Felipe Guerço Oliveira
- Original Message - 
From: er83pet04
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 11:22 AM
Subject: [delphi-br] Fomatar valor em relatório




Tenho um qrlabel e quero formatar o mode de exibição dele como
moeda, mas não está dando certo.
Coloquei assim:

Valor.Caption := qry1FieldByName( VL_LOCAL' ).Value;

Valor.Caption := Format('R$ %8.2d', [qry1FieldByName(
VL_LOCAL' ).Value]);

O campo VL_LOCAL é do tipo number (8,2) e está dando o seguinte erro:
Format('%8.2d' invalid or incompatible with argument


Exemplo: Se o valor do campo é 35,5. Quero que seja exibido R$ 35,50.

Alguém tem idéia de como resolver isso?

Obrigada 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Pirataria

2004-10-25 Por tôpico William Thiago


O serial do HD não é uma idéia totalmente feliz...
No caso de máquinas clonadas (usando um clonador de hd qualquer), muito
utilizada em cpds com padrão de configurações, o serial de todas as máquinas
são iguais. :)


William


-Mensagem original-
De: Fabiano [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 15 de outubro de 1998 02:51
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] Pirataria


Veja bem eu uso o número do bios asociado com o numero do hd para gerar um
código de criptografia, isso me permite que o sistema só funcione no micro
que eu estalo. principalmente pois vendo um sistema muito usado em
bibliotecas se não colocar trava em uma semana terei que fazer uma varedura
no pais todo atrás de peiratas. essa forma a criptografia é diferente para
cada micro, inclusive a base de dados tbm é criptografada :-).
Agora o único sistema que posso dizer que é mais difício de quebrar é o plug
na paralela para fazer outro plug normalente é mais barato pagar pelo
sistema.
Agora posso te garantir que meu sistema funciona :-).
Abraços
Fabiano
  -Mensagem original-
  De: Williams Diaz [mailto:[EMAIL PROTECTED]
  Enviada em: quarta-feira, 13 de outubro de 2004 22:16
  Para: [EMAIL PROTECTED]
  Assunto: Re: [delphi-br] Pirataria


  Eu uso a mesma coisa que o Mauricio, só que o meu arquivo não é tão
  escondido assim, é um .ini, com uma certa criptografia é claro. Mas só
travo
  se for aluguel, se for venda não.

  williams

  *---
  Williams Díaz
  [EMAIL PROTECTED]
  http://www.interban.com.br

  - Original Message -
  From: Mauricio Almeida Filho [EMAIL PROTECTED]
  To: [EMAIL PROTECTED]
  Sent: Tuesday, October 12, 2004 11:29 PM
  Subject: Re: [delphi-br] Pirataria




   Acho q este negócio de número de HD, BIOS, registro do windows,
  etc. Não funciona. Eu há muito tempo (Desde o DOS em dBase III/Clipper)
uso
  uma solução que para mim fuciona d+.

   Eu crio um arquivo txt renomeado para SYS (o windows o esconde
  naturalmente) e gravo informações como data de validade, qtd de
utilização,
  nome do cliente criptografado, etc.

   Desta forma se o sistema for pirateado, o novo usuário até usa,
  mas com o nome registrado para o primeiro cliente. Não vejo nada demais
  quando encontro meu sistema sendo usado em algum cliente q pirateou. É
  prova q o sistema é bom, foi bem construído e é funcional, mas (é claro),
  uso os dispositivos legais para tentar (sempre muito amigavelmente)
  transformar este pirata num contrato.

   Esta forma de trabalho com datas de validade, qtd de utilização
  tem um determinado código (ao gerar o arquivo .SYS) que posso fazer para
  criar um arquivo definitivo, para q o cliente não fique amarrado a mim tb
  eternamente. Desta forma se o cliente ainda me deve alguma coisa, eu
coloco
  o sistema para quebrar e isso funciona como uma lembrança da dependencia
  dele, caso ele haja de maneira intransigente e diga q não vai pagar eu
  simplesmente não libero o sistema.

   Já reconquistei vários clientes assim. Tb já dei várias lições em
  clientes espertos. Até hj muito poucos clientes descobriram qual o
arquivo,
  mas não conseguem fazer nada pois o único q sabe gera-lo sou eu mesmo.



  At 00:12 11/10/2004, you wrote:

  Esse eu discordo, peguei um sistema na net com trava o cara usa um
arquivo
  dll na realidade txt com extensão dll e guardava uma informação nele e
  no registro. descobri como quebrar a proteção em 15 minutos (obs. não uso
  o sistema peguei-o apenas para testar a proteção). Faça o seguinte use o
  número do hd e o número do registro para gerar um código. Você cria um
  sistema para gerar um contracódigo assim:
  * o algorítimo com os dois números gera o nº 1234
  * o contra código gera um número que seu sistema vai reconhecer Assim vc
  impede que o sistema seja transportado.
  Para isso é preciso que o usuário ligue ou durante o processo de
  instalação o instalador que deve ser da empresa resolva a questão.
  Não é 100% mas para quebra-lo, precisa ser pelo menos programador,
  entender o algoritmo que dificulta se a pessoa não tem acesso ao código e
  o contra código. eu usei quatro dígitos mas é recomendável usar 8 ou mais
  com letra números e símbolos.
  eu ainda criei outra forma de proteção usando conversão dentro do sistema
  de hexadecimal para decimal para  caractere só pra confundir o código se
  lido em caso de tecnologia reversa. Ainda não é 100% mas :-).
  Abraços,
  Fabiano
 - Original Message -
 From: UUJMMIM
 To: [EMAIL PROTECTED]
 Sent: Sunday, October 10, 2004 9:38 PM
 Subject: RE: [delphi-br] Pirataria
  
  
 William,
  
   Procure gravar informações do hardware de forma codificada, no
   registro do
 windows e em arquivos. Assim, se o sistema ao ser executado não
  encontrar
 essas informações ou não forem iguais ao hardware que o sistema está
 executando, trave o sistema.

Re: [delphi-br] GRANDE PROBLEMA

2004-10-25 Por tôpico MC Sistemas


tbém não achei  nenhum explicação.

como experiência depois de muitas tentativas



deves ter o SERVIDOR COM O XP.

Paradox,   servidor 98 e terminal XP,  NAO  funciona.

apenas troca o SO de servidor de 98 para XP , q o resto vai voltar a
funcionar.

[ ]' s
Marcelo Carvalho

- Original Message -
From: info.suporte [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 11:53 AM
Subject: [delphi-br] GRANDE PROBLEMA



 Estoucom um GRANDE PROBLEMA!!

 Bom vamos cameçar. Desenvolvo um sistema em Delphi 5 com paradox.
 Uma das tabelas é pricnipal para todas, como cód principal ha um
relacionamento entre 9 tabelas.
 EXEPLO:
 Tab.Cliente: CDCLI
 Tab.Dependente: CDCLI + CDDEP(São cheves secundárias, estão relacinadas
pelo cdcli)
 Tab.Pagto: CDCLI + DTVENC(São cheves secundárias, , estão relacinadas pelo
cdcli)
 etc..então o CDCLI se relaciona com várias tabelas.
 Bom até aí tranquilo.
 Mas quando coloquei ele em rede, aí veio o problema, dependendo da
situação.
 Quando as duas maquinas forem Wim98, não tem problema nenhum.
 Já quando uma das máquinas Client for Win XP aí a coisa fica intranquila.
 Coloquei duas máquins lado a lado e abri o DBE ADMIN então fui ver as
configurações.
 Na maquina Win 98 (Server)
 - DRIVERS: Native: Paradox
 - NET DIR: C:\tabelas;
 - INIT: Local Share: True;

 Na maquina Win XP (Client)
 - DRIVERS: Native: Paradox
 - NET DIR: X:\tabelas (X: Mapeamento na rede);
 - INIT: Local Share: False;
 Obs: Colocai Local Share para True.

 Aí é que veio o problema. Abri pelo DataBase Desktop a mesma tabela do
mesmo local e os índices criados no Windows 98 (servidor) estão lá, só que
quando eu abro pelo Windows XP(Cliente) esses índices secundários não estão,
então volto ao Windoes 98 estão, retorno ao XP não estão, causando problema
ao abrir o sistema na estação Client já na estação Server é trinquilo pois é
local.

 Alguém pode me explicar esse fenomeno?

 Aguardo resposta

 PAULO FERNANDES
 PORTO ALEGRE  RS




 [As partes desta mensagem que não continham texto foram removidas]



 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos











-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: RES: [delphi-br] Componente free para acessar a dupla DBF/NTX.

2004-10-25 Por tôpico Alfeu Marcatto


ADS

Procure maiores informações nos arquivos da lista


Alessandro Fernandes  wrote:

 Rubem , muito obrigado. Mas esse componente não lê índices NTX. Eu preciso
 de um componente capaz de reconhecer esse tipo de índice.



 Alguém ai conhece um?



 ___

 Alessandro Cunha Fernandes  



   _ 

 De: Rubem Rocha [mailto:[EMAIL PROTECTED]
 Enviada em: segunda-feira, 25 de outubro de 2004 13:07
 Para: [EMAIL PROTECTED]
 Assunto: RES: [delphi-br] Componente free para acessar a dupla DBF/NTX.
 Prioridade: Alta



 http://tdbf.sourceforge.net
 OBS.: Não é aconselhável com DBFs e CDXs (visual foxpro)!
 []s

 -Mensagem original-
 De: Alessandro Fernandes  [mailto:[EMAIL PROTECTED]
 Enviada em: segunda-feira, 25 de outubro de 2004 10:06
 Para: [EMAIL PROTECTED]
 Assunto: [delphi-br] Componente free para acessar a dupla DBF/NTX.



 Alguém conhece algum componente free para acessar arquivos DBF com índices
 NTX?



 Procurei na NET, mas só encontrei componentes pagos como o Apollo e o
 Halcyon. Para o que quero não justifica pagar nada.



 Muito obrigado.

 ___

 Alessandro Cunha Fernandes  

 SoftTI - Software e Consultoria em TI





 [As partes desta mensagem que não continham texto foram removidas]



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED]
 ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos










 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]







 Yahoo! Grupos, um serviço oferecido por:




 http://br.rd.yahoo.com/SIG=12aj0nslo/M=264379.5078783.6203979.1588051/D=brc
 lubs/S=2137111264:HM/EXP=1098803345/A=2191897/R=0/SIG=10vqa2grn/*http:/br.di
 versao.yahoo.com/




 http://br.rd.yahoo.com/SIG=12aj0nslo/M=264379.5078783.6203979.1588051/D=brc
 lubs/S=2137111264:HM/EXP=1098803345/A=2191897/R=1/SIG=10vqa2grn/*http:/br.di
 versao.yahoo.com/

 São PauloRio de JaneiroCuritibaPorto AlegreBelo Horizonte
 Brasília   



   _ 

 Links do Yahoo! Grupos

 *  Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
  
 *  Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 mailto:[EMAIL PROTECTED]
  
 *  O uso que você faz do Yahoo! Grupos está sujeito aos Termos
 http://br.yahoo.com/info/utos.html  do Serviço do Yahoo!.



 [As partes desta mensagem que não continham texto foram removidas]



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]



 *Yahoo! Grupos, um serviço oferecido por:*

 * 
 http://br.rd.yahoo.com/SIG=12ap60rfi/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1098805387/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/*
   


 
 *Links do Yahoo! Grupos*

 * Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/

 * Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
   mailto:[EMAIL PROTECTED]

 * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
   Serviço do Yahoo! http://br.yahoo.com/info/utos.html.





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] PARADOX NO WINDOWS XP EM REDE

2004-10-25 Por tôpico Campus

Se for XP Professional, roda, se for o Home, é encrenca na certa.

- Original Message - 
From: info.suporte [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, October 22, 2004 3:38 PM
Subject: [delphi-br] PARADOX NO WINDOWS XP EM REDE

Boa tarde a todos

Gostaria de saber se alguem já conseguiu fazer rodar uma aplicação com a
base de dados paradox em REDE.
A máquina servidora é WINDOWS 98 e a Clint é WINDOWS XP. Aplicação em Delphi
5 com a base dados PARADOX 7.

Paulo Fernandes
Porto Alegre  RS

[As partes desta mensagem que não continham texto foram removidas]

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] PageControl

2004-10-25 Por tôpico Charlles Ferdinand


Pessoal como fazer para que o sistema abra, com a 1ª aba (TabSheet) de uma
PageControl, ativada, porque esta pagecontrol tem 2 abas, e como o cadastro
termina na segunda aba, quando o sistema abre, esta sempre com a 2 aba
ativa.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] PageControl

2004-10-25 Por tôpico Luciano R. Machado


Olá Charlles,

Uma das maneiras seria colocar o código abaixo no onShow do formulário:

PageControl1.ActivePageIndex = 0;

-- 
Luciano Rodrigues Machado
Programador - Ribeirão Preto-SP

Charlles Ferdinand wrote:

 Pessoal como fazer para que o sistema abra, com a 1ª aba (TabSheet) de uma
 PageControl, ativada, porque esta pagecontrol tem 2 abas, e como o cadastro
 termina na segunda aba, quando o sistema abre, esta sempre com a 2 aba
 ativa.
 Charlles Ferdinand
 Analista Contábil
 Tel.: (22) 2622-9739
 




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] PageControl

2004-10-25 Por tôpico Fernando - ASPIN Tecnologia

PageControl.ActivePage:=TabSheet;

Fernando.

  - Original Message - 
  From: Charlles Ferdinand 
  To: Delphi-Br 
  Sent: Monday, October 25, 2004 1:05 PM
  Subject: [delphi-br] PageControl

  Pessoal como fazer para que o sistema abra, com a 1ª aba (TabSheet) de uma
  PageControl, ativada, porque esta pagecontrol tem 2 abas, e como o cadastro
  termina na segunda aba, quando o sistema abre, esta sempre com a 2 aba
  ativa.
  Charlles Ferdinand
  Analista Contábil
  Tel.: (22) 2622-9739

  [As partes desta mensagem que não continham texto foram removidas]

  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 

[As partes desta mensagem que não continham texto foram removidas]

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Delphi + BIBLIOTECAS C

2004-10-25 Por tôpico Rogério


Alguém sabe como faço para utilizar uma Biblioteca de funções feitas em C++ em Delphi 
???

EXEMPLOS:
Tenho a Biblioteca Math.h e Matrix.h, e quero utiliza-las no Delphi 

Alguém sabe como fazer ou já fez isto ???

[ ]'s

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Delphi + BIBLIOTECAS C

2004-10-25 Por tôpico Eduardo Jedliczka


bom, se forem apenas Includes (arquivos .H) terá que reescrevê-los...

Se forem funções (Arquivos .C e .Cpp) poderá compilá-los num Obj e transformá-los em 
dcu.

=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
  - Original Message - 
  From: Rogério 
  To: [EMAIL PROTECTED] 
  Sent: Monday, October 18, 2004 2:38 PM
  Subject: [delphi-br] Delphi + BIBLIOTECAS C


  Alguém sabe como faço para utilizar uma Biblioteca de funções feitas em C++ em 
Delphi ???

  EXEMPLOS:
  Tenho a Biblioteca Math.h e Matrix.h, e quero utiliza-las no Delphi 

  Alguém sabe como fazer ou já fez isto ???

  [ ]'s

  [As partes desta mensagem que não continham texto foram removidas]



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte 
Brasília  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Delphi + BIBLIOTECAS C

2004-10-25 Por tôpico Rogério


Caramba !!! Caí de costas agora...
Então, em resumo... tô Ferrado !!!

São todas includes do C++ !  É isto mesmo !!!

Não tem nem como fazer uma DLL disto ???

[ ]'s

- Original Message - 
From: Eduardo Jedliczka [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 2:53 PM
Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C



bom, se forem apenas Includes (arquivos .H) terá que reescrevê-los...

Se forem funções (Arquivos .C e .Cpp) poderá compilá-los num Obj e
transformá-los em dcu.

=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
  - Original Message - 
  From: Rogério
  To: [EMAIL PROTECTED]
  Sent: Monday, October 18, 2004 2:38 PM
  Subject: [delphi-br] Delphi + BIBLIOTECAS C


  Alguém sabe como faço para utilizar uma Biblioteca de funções feitas em
C++ em Delphi ???

  EXEMPLOS:
  Tenho a Biblioteca Math.h e Matrix.h, e quero utiliza-las no Delphi 

  Alguém sabe como fazer ou já fez isto ???

  [ ]'s

  [As partes desta mensagem que não continham texto foram removidas]



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:

São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília





--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Duplicação de valores ao imprimir relatório

2004-10-25 Por tôpico er83pet04



Alguém já viu isso?

Criei um relatório utilizando o quickreport e no final coloquei uma 
band do tipo sumary que possue 4 qrlabels onde passo o somatório dos 
valores que quero no before print. Ao dar um preview no relatório 
ele exibe tudo certinho com os valores corretos, tudo perfeito. Mas 
ao imprimir na impressora, os valores que estão nesses qrLabels 
estão saindo duplicados. Como pode? 
Na tela está aparecendo um valor e quando mando imprimir está 
imprimindo o dobro dos mesmos.

Se alguém puder me dar um help, agradeço desde já.





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Delphi + BIBLIOTECAS C

2004-10-25 Por tôpico Rogério


Procurei agora e, ví que possuo além dos arquivos Math.h  e Matrix.h,
possuo tb. os arquivos Math.lib e Matrix.lib. em C++

Será que dá pra utilizar no Delphi ???
Se tiverem alguma dica...
[ ]'s


- Original Message - 
From: Rogério [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 18, 2004 3:09 PM
Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C



 Caramba !!! Caí de costas agora...
 Então, em resumo... tô Ferrado !!!

 São todas includes do C++ !  É isto mesmo !!!

 Não tem nem como fazer uma DLL disto ???

 [ ]'s

 - Original Message - 
 From: Eduardo Jedliczka [EMAIL PROTECTED]
 To: [EMAIL PROTECTED]
 Sent: Monday, October 25, 2004 2:53 PM
 Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C



 bom, se forem apenas Includes (arquivos .H) terá que reescrevê-los...

 Se forem funções (Arquivos .C e .Cpp) poderá compilá-los num Obj e
 transformá-los em dcu.

 =
 Eduardo Jedliczka
 GeraSoft Informática
 Apucarana - PR
 =
   - Original Message - 
   From: Rogério
   To: [EMAIL PROTECTED]
   Sent: Monday, October 18, 2004 2:38 PM
   Subject: [delphi-br] Delphi + BIBLIOTECAS C


   Alguém sabe como faço para utilizar uma Biblioteca de funções feitas em
 C++ em Delphi ???

   EXEMPLOS:
   Tenho a Biblioteca Math.h e Matrix.h, e quero utiliza-las no Delphi 

   Alguém sabe como fazer ou já fez isto ???

   [ ]'s

   [As partes desta mensagem que não continham texto foram removidas]



   -- 
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

   Para ver as mensagens antigas, acesse:
   http://br.groups.yahoo.com/group/delphi-br/messages

   Para falar com o moderador, envie um e-mail para:
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]



 Yahoo! Grupos, um serviço oferecido por:

 São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
 Horizonte Brasília




 --
--
 --
   Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/

 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]

 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
 Serviço do Yahoo!.



 [As partes desta mensagem que não continham texto foram removidas]



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos










 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos











-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Delphi + BIBLIOTECAS C

2004-10-25 Por tôpico Rubem Rocha


Só tem como se converer essas libs em DLLs, usando o utilitário IMPLIB. Ele vem com o 
compilador free do Borland C++Builder, que tá disponível no site da Borland.
[]s

-Mensagem original-
De: Rogério [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 18 de outubro de 2004 13:16
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Delphi + BIBLIOTECAS C



Procurei agora e, ví que possuo além dos arquivos Math.h  e Matrix.h, possuo tb. os 
arquivos Math.lib e Matrix.lib. em C++

Será que dá pra utilizar no Delphi ???
Se tiverem alguma dica...
[ ]'s


- Original Message - 
From: Rogério [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 18, 2004 3:09 PM
Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C



 Caramba !!! Caí de costas agora...
 Então, em resumo... tô Ferrado !!!

 São todas includes do C++ !  É isto mesmo !!!

 Não tem nem como fazer uma DLL disto ???

 [ ]'s

 - Original Message -
 From: Eduardo Jedliczka [EMAIL PROTECTED]
 To: [EMAIL PROTECTED]
 Sent: Monday, October 25, 2004 2:53 PM
 Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C



 bom, se forem apenas Includes (arquivos .H) terá que 
 reescrevê-los...

 Se forem funções (Arquivos .C e .Cpp) poderá compilá-los num Obj e 
 transformá-los em dcu.

 =
 Eduardo Jedliczka
 GeraSoft Informática
 Apucarana - PR
 =
   - Original Message - 
   From: Rogério
   To: [EMAIL PROTECTED]
   Sent: Monday, October 18, 2004 2:38 PM
   Subject: [delphi-br] Delphi + BIBLIOTECAS C


   Alguém sabe como faço para utilizar uma Biblioteca de funções feitas 
 em
 C++ em Delphi ???

   EXEMPLOS:
   Tenho a Biblioteca Math.h e Matrix.h, e quero utiliza-las no Delphi 
 

   Alguém sabe como fazer ou já fez isto ???

   [ ]'s

   [As partes desta mensagem que não continham texto foram removidas]



   -- 
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

   Para ver as mensagens antigas, acesse:
   http://br.groups.yahoo.com/group/delphi-br/messages

   Para falar com o moderador, envie um e-mail para:
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]



 Yahoo! Grupos, um serviço oferecido por:

 São Paulo Rio de Janeiro Curitiba Porto Alegre 
 Belo Horizonte Brasília




 --
 
--
 --
   Links do Yahoo! Grupos

 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/

 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]

 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 
 Serviço do Yahoo!.



 [As partes desta mensagem que não continham texto foram removidas]



 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:  
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:  
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos










 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:  
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:  
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos











-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:  
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED] ou [EMAIL 
PROTECTED]
 
Links do Yahoo! Grupos




 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Importação Planilha Excel

2004-10-25 Por tôpico Rogério


Tenho o inverso...
De Tabela/Query para Excel, mas você pode adaptar para atender a sua
necessidade.
Segue abaixo:
Obs: o objeto Pb, é apenas uma progress bar.

Procedure TFormVertices.BitBtn1Click(Sender: TObject);
Var
   RangeE : Excel2000.Range;
   //RangeE : Excel97.Range; // quando for o Office97 que vc. estiver
utilizando !
   I, Row : Integer;
   cOcorrencia : String;
   //wIni, wFin : OleVariant;
   //wIni, wFin : Integer;
begin
 try
   QBaseVert.Open; // Abre Caso Não Esteja Aberta
   QBaseVert.First;

//##
#
   Screen.Cursor := crHourGlass;
   Pb.Visible := True;
   Pb.Position:=0;
   Pb.Min:=0;
   Pb.Max:=QBaseVert.RecordCount;

//##
#

   // Abre o Excel
   ExcelApplication1.Visible[ 0 ] := True;
   // Cria a planilha
   ExcelApplication1.Workbooks.Add( NULL, 0 );

   // Set no Range da Célula Ativa
   RangeE := ExcelApplication1.ActiveCell;

   // Cabeçalho (Opcional)
   RangeE.Value := 'Transações Analíticas - Data: ' + DateToStr( Now ) ;

   // Muda o formato da data no Aplicativo para os Campos Tipo Data
   // Se não mudar, o Excel pode ficar maluco caso sejam Campos Data
(Testar)
   ShortDateFormat := 'mm/dd/';

   Row := 3;
   RangeE := ExcelApplication1.Range[ 'A' + IntToStr( Row ),
  'A' + IntToStr( Row ) ];

   // coloca os nomes de campos na linha 3
   // -1 porque Fields.Count começa no Index = 0
   for i := 0 to QBaseVert.Fields.Count - 1 do
   begin
  RangeE.Value := QBaseVert.Fields[ i ].DisplayLabel;
  RangeE := RangeE.Next;
   end;

   // Adiciona os dados da QBaseVert
   QBaseVert.DisableControls;
   Try
  QBaseVert.First;

  //cOcorrencia := QBaseVertNOME_OCORR.AsString;
  //cOcorrencia := TblSource.Fields[ 1 ].AsString ;

  // Os Dados Começam na linha 4
  Row := 4;
  while not QBaseVert.EOF do
  begin
 RangeE := ExcelApplication1.Range[ 'A' + IntToStr ( Row ), 'A' +
IntToStr( Row ) ];
 for I := 0 to QBaseVert.Fields.Count - 1 do
 begin
//if ( QBaseVert.Fields[ i ].AsString = 'True' ) Then // Para
Campos Tipo Boolean
//   RangeE.Value := 'X'
//else

   if QBaseVert.Fields[ i ].DataType in [ftFloat] then
   begin
 RangeE.Value := QBaseVert.Fields[ i ].AsFloat ;
   end
   else
   if QBaseVert.Fields[ i ].DataType in [ftSmallint, ftInteger,
ftWord, ftCurrency, ftBCD, ftBytes, ftVarBytes, ftAutoInc, ftLargeint ] then
   begin
 RangeE.Value := FormatFloat('#,##0.00', QBaseVert.Fields[
i ].AsFloat) ;
   end
   else
   begin
 RangeE.Value := QBaseVert.Fields[ i ].AsString;
   end;

RangeE := RangeE.Next;
 end;
 QBaseVert.Next;

 // Quando mudar de Ocorrência ...
 //if (QBaseVertNOME_OCORR.AsString  cOcorrencia) then
 //if (TblSource.Fields[ 1 ].AsString cOcorrencia) then
 //begin
//inc( Row ); // Faz Pular a Linha
 //   RangeE.Value := '';
//cOcorrencia := QBaseVertNOME_OCORR.AsString;
 //   cOcorrencia := TblSource.Fields[ 1 ].AsString;
 //end;
 Inc( Row );

 Pb.Position := Pb.Position + 1;
 //FormConciliacaoTransacoes.Refresh;

  end;
   Finally
  QBaseVert.EnableControls;
   end;

   // formata as células ( AutoFormat do Excel )
   RangeE := ExcelApplication1.Range[ 'A1', 'AA' + IntToStr( Row - 1 ) ];
   //RangeE := ExcelApplication1.Range[ IntToStr(wIni), IntToStr(wFin) ];
   RangeE.AutoFormat( 3, NULL, NULL, NULL, NULL, NULL, NULL );
   // Volta o formato da data para o correto
   ShortDateFormat := 'dd/mm/';
 finally
   Pb.Visible := False;
   Pb.Position:=0;
   Screen.Cursor := crDefault;
   ExcelApplication1.Disconnect;
 end;
end;


Espero que sirva !
[ ]'s
Rogério




- Original Message - 
From: Vicente Lima [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 4:09 PM
Subject: [delphi-br] Importação Planilha Excel



Pessoal.

Alguém teria um exemplo ou apostila que mostre como importar uma
planilha do Excel via Delphi.

Vicente Lima

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para

[delphi-br] DUvida

2004-10-25 Por tôpico Tasquim


Boa Tarde a todos!

Tenho um programa de agenda de telefones, gostaria de implementar nela uma agenda de 
Compromissos,  pois ja tenho o calendario e gostaria de clicar no dia e ja abrir a 
agenda de compromissos, com os horarios e tudo mais.
Como posso realizar este tipo de comando, qual comando 
usar?

Tasquim

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Re: Copia de arquivos com atributo read-only( somente-leitura )

2004-10-25 Por tôpico dom_rr2004



Caro Douglas,

 Não sei se o código que estou lhe enviando ajuda mas dê uma olhada:

143 - Definindo Atributo de um arquivo
function FileSetAttr(const FileName: string; Attr: Integer): Integer;
Exemplo: 
FileSetAttr ('C:\logo.sys',0);
Onde Attr:Interger:

0=Sem Atributos;

1=Somente Leitura;

2=Oculto;

3=Somente Leitura e Oculto;

4=Sistema;

5=Somente Leitura e Sistema;

6=Sistema e Oculto;

7=Somente Leitura,Sistema e Oculto;

198 - Copiar arquivos usando curingas (*.*)
{ - Coloque um Button no Form;

  - Altere o evento OnClick deste Button conforme abaixo: }

 

procedure TForm1.Button2Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
  Origem, Destino: string;
begin
  I := FindFirst('c:\Origem\*.*', faAnyFile, SR);
  while I = 0 do begin
  if (SR.Attr and faDirectory)  faDirectory then begin
  Origem := 'c:\Origem\' + SR.Name;
  Destino := 'c:\Destino\' + SR.Name;
  if not CopyFile(PChar(Origem), PChar(Destino), true) then
  ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
  end;
  I := FindNext(SR);
  end;
end;
Observações

No exemplo acima, se o arquivo já existir no destino, a função falha 
(não copia). Para que a função possa sobreescrever o arquivo destino 
(caso exista), altere o último parâmetro de CopyFile para false. 
CUIDADO! Se um arquivo for sobreescrito, estará perdido para sempre!

366 - Copiando arquivos usando o Shell do Windows
Coloque no uses: ShellApi 

{ - Coloque um botão no form e altere o evento OnClick deste botão 
conforme abaixo:} 
procedure TForm1.Button1Click(Sender: TObject); 
var 
Dados: TSHFileOpStruct; 
begin 
FillChar(Dados,SizeOf(Dados), 0); 
with Dados do 
begin 
wFunc := FO_COPY; 
pFrom := PChar('c:\teste\*.txt'); 
pTo := PChar('a:\'); 
fFlags:= FOF_ALLOWUNDO; 
end; 
SHFileOperation(Dados); 
end;

Espero que algo seja aproveitado

--- Em [EMAIL PROTECTED], Douglas - CPD [EMAIL PROTECTED] 
escreveu
 Preciso de uma função que copie sobre arquivos com atributo read-
only,
 alguém teria ??
 
 
 Obrigado.
 
 
 Att.
 Douglas - CPD.
 ---
 Email enviado sem vírus - ¿?
 Checked by AVG anti-virus system (http://www.grisoft.com).
 Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004
 
 
 [As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] DUvida - Agenda de Telefone

2004-10-25 Por tôpico Eduardo Silva ®


Complementando a dúvida do nosso amigo, gostaria de saber como fazer para
colocar nessa agenda de compromissos uma folha como se fosse uma agenda de
papel, igual existem em programas por ai, como o outlook, por exemplo.

  -Mensagem original-
  De: Tasquim [mailto:[EMAIL PROTECTED]
  Enviada em: segunda-feira, 25 de outubro de 2004 14:32
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] DUvida


  Boa Tarde a todos!

  Tenho um programa de agenda de telefones, gostaria de implementar nela uma
agenda de Compromissos,  pois ja tenho o calendario e gostaria de clicar no
dia e ja abrir a agenda de compromissos, com os horarios e tudo mais.
  Como posso realizar este tipo de comando, qual comando
  usar?

  Tasquim

  [As partes desta mensagem que não continham texto foram removidas]



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:








--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] DUvida

2004-10-25 Por tôpico Tasquim

Alias, Qual a melhor maneira de se executar isto???

  - Original Message - 
  From: Tasquim 
  To: [EMAIL PROTECTED] 
  Sent: Monday, October 25, 2004 2:31 PM
  Subject: [delphi-br] DUvida

  Boa Tarde a todos!

  Tenho um programa de agenda de telefones, gostaria de implementar nela uma agenda de 
Compromissos,  pois ja tenho o calendario e gostaria de clicar no dia e ja abrir a 
agenda de compromissos, com os horarios e tudo mais.
  Como posso realizar este tipo de comando, qual comando 
  usar?

  Tasquim

  [As partes desta mensagem que não continham texto foram removidas]

[As partes desta mensagem que não continham texto foram removidas]

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Delphi + BIBLIOTECAS C

2004-10-25 Por tôpico Eduardo Jedliczka


bom, se não quiser converter em dll, poderá criar um unit (através dos experts do 
delphi) para acessar a LIB, mas deste modo você não levaria nenhuma dll mas teria que 
reescrever somente o include, pois o delphi não teria a prototipação das funções...

[s]

PS: Só mais uma coisa, no JediProject havia um programa para traduzir includes de C 
para Delphi com mais de 90% de sucesso, não sei se o mesmo continua disponível, mas 
acho que não custa procurar...

=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
  - Original Message - 
  From: Rubem Rocha 
  To: [EMAIL PROTECTED] 
  Sent: Monday, October 25, 2004 4:18 PM
  Subject: RES: [delphi-br] Delphi + BIBLIOTECAS C


  Só tem como se converer essas libs em DLLs, usando o utilitário IMPLIB. Ele vem com 
o compilador free do Borland C++Builder, que tá disponível no site da Borland.
  []s

  -Mensagem original-
  De: Rogério [mailto:[EMAIL PROTECTED] 
  Enviada em: segunda-feira, 18 de outubro de 2004 13:16
  Para: [EMAIL PROTECTED]
  Assunto: Re: [delphi-br] Delphi + BIBLIOTECAS C



  Procurei agora e, ví que possuo além dos arquivos Math.h  e Matrix.h, possuo tb. os 
arquivos Math.lib e Matrix.lib. em C++

  Será que dá pra utilizar no Delphi ???
  Se tiverem alguma dica...
  [ ]'s


  - Original Message - 
  From: Rogério [EMAIL PROTECTED]
  To: [EMAIL PROTECTED]
  Sent: Monday, October 18, 2004 3:09 PM
  Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C


  
   Caramba !!! Caí de costas agora...
   Então, em resumo... tô Ferrado !!!
  
   São todas includes do C++ !  É isto mesmo !!!
  
   Não tem nem como fazer uma DLL disto ???
  
   [ ]'s
  
   - Original Message -
   From: Eduardo Jedliczka [EMAIL PROTECTED]
   To: [EMAIL PROTECTED]
   Sent: Monday, October 25, 2004 2:53 PM
   Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C
  
  
  
   bom, se forem apenas Includes (arquivos .H) terá que 
   reescrevê-los...
  
   Se forem funções (Arquivos .C e .Cpp) poderá compilá-los num Obj e 
   transformá-los em dcu.
  
   =
   Eduardo Jedliczka
   GeraSoft Informática
   Apucarana - PR
   =
 - Original Message - 
 From: Rogério
 To: [EMAIL PROTECTED]
 Sent: Monday, October 18, 2004 2:38 PM
 Subject: [delphi-br] Delphi + BIBLIOTECAS C
  
  
 Alguém sabe como faço para utilizar uma Biblioteca de funções feitas 
   em
   C++ em Delphi ???
  
 EXEMPLOS:
 Tenho a Biblioteca Math.h e Matrix.h, e quero utiliza-las no Delphi 
   
  
 Alguém sabe como fazer ou já fez isto ???
  
 [ ]'s
  
 [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages
  
 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
  
  
  
   Yahoo! Grupos, um serviço oferecido por:
  
   São Paulo Rio de Janeiro Curitiba Porto Alegre 
   Belo Horizonte Brasília
  
  
  
  
   --
   
  --
   --
 Links do Yahoo! Grupos
  
   a.. Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/
  
   b.. Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
  
   c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do 
   Serviço do Yahoo!.
  
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
   Para ver as mensagens antigas, acesse:  
   http://br.groups.yahoo.com/group/delphi-br/messages
  
   Para falar com o moderador, envie um e-mail para:  
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
  
   Links do Yahoo! Grupos
  
  
  
  
  
  
  
  
  
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
   Para ver as mensagens antigas, acesse:  
   http://br.groups.yahoo.com/group/delphi-br/messages
  
   Para falar com o moderador, envie um e-mail para:  
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
  
   Links do Yahoo! Grupos
  
  
  
  
  
  
  
  



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:  
http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED] ou [EMAIL 
PROTECTED]

  Links do Yahoo! Grupos










  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
São Paulo Rio de Janeiro Curitiba Porto

[delphi-br] Envio de email pelo OutLook

2004-10-25 Por tôpico Mariana



Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro 
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia 
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem 
enviados, e eu gostaria de saber se existe uma maneira de fazer isso 
no código que já existe ou se tenho que refazer este código.
Segue o código:

AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE 
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');

writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0 
Transitional//EN');
writeLn(Arq_mail,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type 
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170 
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
writeLn(Arq_mail,'');
For nQtLines := 0 to  memoHtml.Lines.Count - 1  do
writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);

CloseFile(Arq_mail);
{$I+}
if lAbrir Then
  ShellExecute(Handle,'open', PChar( sFileN ), nil, nil, 
SW_SHOWNORMAL);

Desde já agradeço

Mariana





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Re: Duplicação de valores ao imprimir relatório

2004-10-25 Por tôpico dom_rr2004



Eu já. Me parece que ao criar o arquivo que irá imprimir o relatório, 
o QuickRep passa novamente pelos registros. Sendo assim o somatório é 
duplicado. Para resolver isso, no BeforePrint do relatório, eu igualo 
os resultados a zero.
Ex.:
procedure TRelatorio.RelatorioBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
 TotalLitros := 0;
end;

procedure TRelatorios.BndDetaBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
 TotalLitros := TotalLitros + dm.qrAbastecimentos.FieldByName
('NRLITRABAS').Value;
end;

Espero ter ajudado

--- Em [EMAIL PROTECTED], er83pet04 [EMAIL PROTECTED] escreveu
 
 Alguém já viu isso?
 
 Criei um relatório utilizando o quickreport e no final coloquei uma 
 band do tipo sumary que possue 4 qrlabels onde passo o somatório 
dos 
 valores que quero no before print. Ao dar um preview no relatório 
 ele exibe tudo certinho com os valores corretos, tudo perfeito. Mas 
 ao imprimir na impressora, os valores que estão nesses qrLabels 
 estão saindo duplicados. Como pode? 
 Na tela está aparecendo um valor e quando mando imprimir está 
 imprimindo o dobro dos mesmos.
 
 Se alguém puder me dar um help, agradeço desde já.





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Delphi + BIBLIOTECAS C

2004-10-25 Por tôpico Rogério


Legal... Mas...
Num entendí lhufas da primeira parte... Kkk !
Nunca mexí com estes Brothers...

(Experts do Delphi) ???
Seria: No Menu a Opção- File- New-Unit ???
Mas como acessar a Lib ??
Reescrever o include??? onde tá escrito... ???

Puts, desculpe mas, Viajei...
Valeu !
[ ]'s


- Original Message - 
From: Eduardo Jedliczka [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 4:08 PM
Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C



bom, se não quiser converter em dll, poderá criar um unit (através dos
experts do delphi) para acessar a LIB, mas deste modo você não levaria
nenhuma dll mas teria que reescrever somente o include, pois o delphi não
teria a prototipação das funções...

[s]

PS: Só mais uma coisa, no JediProject havia um programa para traduzir
includes de C para Delphi com mais de 90% de sucesso, não sei se o mesmo
continua disponível, mas acho que não custa procurar...

=
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=
  - Original Message - 
  From: Rubem Rocha
  To: [EMAIL PROTECTED]
  Sent: Monday, October 25, 2004 4:18 PM
  Subject: RES: [delphi-br] Delphi + BIBLIOTECAS C


  Só tem como se converer essas libs em DLLs, usando o utilitário IMPLIB.
Ele vem com o compilador free do Borland C++Builder, que tá disponível no
site da Borland.
  []s

  -Mensagem original-
  De: Rogério [mailto:[EMAIL PROTECTED]
  Enviada em: segunda-feira, 18 de outubro de 2004 13:16
  Para: [EMAIL PROTECTED]
  Assunto: Re: [delphi-br] Delphi + BIBLIOTECAS C



  Procurei agora e, ví que possuo além dos arquivos Math.h  e Matrix.h,
possuo tb. os arquivos Math.lib e Matrix.lib. em C++

  Será que dá pra utilizar no Delphi ???
  Se tiverem alguma dica...
  [ ]'s


  - Original Message - 
  From: Rogério [EMAIL PROTECTED]
  To: [EMAIL PROTECTED]
  Sent: Monday, October 18, 2004 3:09 PM
  Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C


  
   Caramba !!! Caí de costas agora...
   Então, em resumo... tô Ferrado !!!
  
   São todas includes do C++ !  É isto mesmo !!!
  
   Não tem nem como fazer uma DLL disto ???
  
   [ ]'s
  
   - Original Message -
   From: Eduardo Jedliczka [EMAIL PROTECTED]
   To: [EMAIL PROTECTED]
   Sent: Monday, October 25, 2004 2:53 PM
   Subject: Re: [delphi-br] Delphi + BIBLIOTECAS C
  
  
  
   bom, se forem apenas Includes (arquivos .H) terá que
   reescrevê-los...
  
   Se forem funções (Arquivos .C e .Cpp) poderá compilá-los num Obj e
   transformá-los em dcu.
  
   =
   Eduardo Jedliczka
   GeraSoft Informática
   Apucarana - PR
   =
 - Original Message - 
 From: Rogério
 To: [EMAIL PROTECTED]
 Sent: Monday, October 18, 2004 2:38 PM
 Subject: [delphi-br] Delphi + BIBLIOTECAS C
  
  
 Alguém sabe como faço para utilizar uma Biblioteca de funções feitas
   em
   C++ em Delphi ???
  
 EXEMPLOS:
 Tenho a Biblioteca Math.h e Matrix.h, e quero utiliza-las no Delphi
   
  
 Alguém sabe como fazer ou já fez isto ???
  
 [ ]'s
  
 [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages
  
 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
  
  
  
   Yahoo! Grupos, um serviço oferecido por:
  
   São Paulo Rio de Janeiro Curitiba Porto Alegre
   Belo Horizonte Brasília
  
  
  
  
   --
   
  --
   --
 Links do Yahoo! Grupos
  
   a.. Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/
  
   b.. Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
  
   c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
   Serviço do Yahoo!.
  
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
   Para ver as mensagens antigas, acesse:
   http://br.groups.yahoo.com/group/delphi-br/messages
  
   Para falar com o moderador, envie um e-mail para:
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
  
   Links do Yahoo! Grupos
  
  
  
  
  
  
  
  
  
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
   Para ver as mensagens antigas, acesse:
   http://br.groups.yahoo.com/group/delphi-br/messages
  
   Para falar com o moderador, envie um e-mail para:
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
  
   Links do Yahoo! Grupos
  
  
  
  
  
  
  
  



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED]

Re: [delphi-br] Importação Planilha Excel

2004-10-25 Por tôpico Vicente Lima


Valeu a dica.

Vicente Lima

- Original Message - 
From: Rogério [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 18, 2004 2:26 PM
Subject: Re: [delphi-br] Importação Planilha Excel



 Tenho o inverso...
 De Tabela/Query para Excel, mas você pode adaptar para atender a sua
 necessidade.
 Segue abaixo:
 Obs: o objeto Pb, é apenas uma progress bar.

 Procedure TFormVertices.BitBtn1Click(Sender: TObject);
 Var
   RangeE : Excel2000.Range;
   //RangeE : Excel97.Range; // quando for o Office97 que vc. estiver
 utilizando !
   I, Row : Integer;
   cOcorrencia : String;
   //wIni, wFin : OleVariant;
   //wIni, wFin : Integer;
 begin
 try
   QBaseVert.Open; // Abre Caso Não Esteja Aberta
   QBaseVert.First;

 //##
 #
   Screen.Cursor := crHourGlass;
   Pb.Visible := True;
   Pb.Position:=0;
   Pb.Min:=0;
   Pb.Max:=QBaseVert.RecordCount;

 //##
 #

   // Abre o Excel
   ExcelApplication1.Visible[ 0 ] := True;
   // Cria a planilha
   ExcelApplication1.Workbooks.Add( NULL, 0 );

   // Set no Range da Célula Ativa
   RangeE := ExcelApplication1.ActiveCell;

   // Cabeçalho (Opcional)
   RangeE.Value := 'Transações Analíticas - Data: ' + DateToStr( Now ) ;

   // Muda o formato da data no Aplicativo para os Campos Tipo Data
   // Se não mudar, o Excel pode ficar maluco caso sejam Campos Data
 (Testar)
   ShortDateFormat := 'mm/dd/';

   Row := 3;
   RangeE := ExcelApplication1.Range[ 'A' + IntToStr( Row ),
  'A' + IntToStr( Row ) ];

   // coloca os nomes de campos na linha 3
   // -1 porque Fields.Count começa no Index = 0
   for i := 0 to QBaseVert.Fields.Count - 1 do
   begin
  RangeE.Value := QBaseVert.Fields[ i ].DisplayLabel;
  RangeE := RangeE.Next;
   end;

   // Adiciona os dados da QBaseVert
   QBaseVert.DisableControls;
   Try
  QBaseVert.First;

  //cOcorrencia := QBaseVertNOME_OCORR.AsString;
  //cOcorrencia := TblSource.Fields[ 1 ].AsString ;

  // Os Dados Começam na linha 4
  Row := 4;
  while not QBaseVert.EOF do
  begin
 RangeE := ExcelApplication1.Range[ 'A' + IntToStr ( Row ), 'A' +
 IntToStr( Row ) ];
 for I := 0 to QBaseVert.Fields.Count - 1 do
 begin
//if ( QBaseVert.Fields[ i ].AsString = 'True' ) Then // Para
 Campos Tipo Boolean
//   RangeE.Value := 'X'
//else

   if QBaseVert.Fields[ i ].DataType in [ftFloat] then
   begin
 RangeE.Value := QBaseVert.Fields[ i ].AsFloat ;
   end
   else
   if QBaseVert.Fields[ i ].DataType in [ftSmallint, ftInteger,
 ftWord, ftCurrency, ftBCD, ftBytes, ftVarBytes, ftAutoInc, ftLargeint ] 
 then
   begin
 RangeE.Value := FormatFloat('#,##0.00', QBaseVert.Fields[
 i ].AsFloat) ;
   end
   else
   begin
 RangeE.Value := QBaseVert.Fields[ i ].AsString;
   end;

RangeE := RangeE.Next;
 end;
 QBaseVert.Next;

 // Quando mudar de Ocorrência ...
 //if (QBaseVertNOME_OCORR.AsString  cOcorrencia) then
 //if (TblSource.Fields[ 1 ].AsString cOcorrencia) then
 //begin
//inc( Row ); // Faz Pular a Linha
 //   RangeE.Value := '';
//cOcorrencia := QBaseVertNOME_OCORR.AsString;
 //   cOcorrencia := TblSource.Fields[ 1 ].AsString;
 //end;
 Inc( Row );

 Pb.Position := Pb.Position + 1;
 //FormConciliacaoTransacoes.Refresh;

  end;
   Finally
  QBaseVert.EnableControls;
   end;

   // formata as células ( AutoFormat do Excel )
   RangeE := ExcelApplication1.Range[ 'A1', 'AA' + IntToStr( Row - 1 ) ];
   //RangeE := ExcelApplication1.Range[ IntToStr(wIni), IntToStr(wFin) ];
   RangeE.AutoFormat( 3, NULL, NULL, NULL, NULL, NULL, NULL );
   // Volta o formato da data para o correto
   ShortDateFormat := 'dd/mm/';
 finally
   Pb.Visible := False;
   Pb.Position:=0;
   Screen.Cursor := crDefault;
   ExcelApplication1.Disconnect;
 end;
 end;


 Espero que sirva !
 [ ]'s
 Rogério




 - Original Message - 
 From: Vicente Lima [EMAIL PROTECTED]
 To: [EMAIL PROTECTED]
 Sent: Monday, October 25, 2004 4:09 PM
 Subject: [delphi-br] Importação Planilha Excel



 Pessoal.

Alguém teria um exemplo ou apostila que mostre como importar uma
 planilha do Excel via Delphi.

 Vicente Lima

 [As partes desta mensagem que não continham texto foram removidas]



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos










 -- 
  FAVOR REMOVER ESTA PARTE

RES: RES: [delphi-br] Componente free para acessar a dupla DBF/NTX.

2004-10-25 Por tôpico Alessandro Fernandes


Ok. O VKDBF atendeu muito bem. 

 

Muito obrigado a todos.

 

___

Alessandro Cunha Fernandes  

 

  _  

De: Osmar Souza [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 25 de outubro de 2004 14:36
Para: [EMAIL PROTECTED]
Assunto: Re: RES: [delphi-br] Componente free para acessar a dupla DBF/NTX.

 

At 12:40 25/10/2004 -0200, you wrote:

Procurem no www.torry.net por vkdbf.

g[], Osmar.


Rubem , muito obrigado. Mas esse componente não lê índices NTX. Eu preciso
de um componente capaz de reconhecer esse tipo de índice.

 

Alguém ai conhece um?




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]







Yahoo! Grupos, um serviço oferecido por:



  


  http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif 



 
http://br.rd.yahoo.com/SIG=12arg5vfq/M=264105.3931087.6562589.1588051/D=brc
lubs/S=2137111264:HM/EXP=1098808585/A=2361264/R=6/SIG=10v4acpp0/*http:/br.sh
opping.yahoo.com/  

  

 

 

  _  

Links do Yahoo! Grupos

*   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED] 
  
*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos
http://br.yahoo.com/info/utos.html  do Serviço do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Envio de email pelo OutLook

2004-10-25 Por tôpico Alexandre Oliveira


Olá,

Olha que complicado hein??!!?? Porque você não monta um programinha (telinha
de cliente de email) tipo :

Para:
Assunto:

-
Memo1



Um botão ENVIAR;

No código do botao enviar tu escreves:

procedure .
var
  Opendialog1 : TOpenDialog;
begin
  Opendialog1 := TOpendialog.Create(application);
  try
  if OpenDialog1.Execute then
 begin
   EnviarEmail(edtPara.text,
edtAssunto.Text,Memo1.Text,opendialog1.FileName);
 end;
  finally
Opendialog1.Destroy;
  end;
end;

Claro, antes crie esta função: e não esqueça dos uses: ComObj, Dialogs

function TForm1.EnviarEmail(Email, Subject : string; Body : Widestring ;
Filename : string): boolean;
var
  outlook : variant;
  item: variant;
begin
try
   outlook  := CreateOLEObject('outlook.application');
   try
item := outlook.CreateItem(0);
item.Subject := Subject;
item.Body:= Body;
// Aqui é legal, você pode aperfeicoar para depois poder anexar vários
arquivos no email.
item.Attachments.Add(FileName,1,1,FileName);
item.To  := email;
item.Send;
   finally
outlook.quit;
   end;
  except
  result := false;
  exit;
  end;
result := true;
end;

Tenta aí, serve pra um arquivo mas você pode melhorar bastante.

Alexandre

- Original Message -
From: Mariana [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 5:05 PM
Subject: [delphi-br] Envio de email pelo OutLook




Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem
enviados, e eu gostaria de saber se existe uma maneira de fazer isso
no código que já existe ou se tenho que refazer este código.
Segue o código:

AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'boundary=
=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');

writeLn(Arq_mail,'--=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'charset=iso-8859-1');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0
Transitional//EN');
writeLn(Arq_mail,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
writeLn(Arq_mail,'');
For nQtLines := 0 to  memoHtml.Lines.Count - 1  do
writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);

CloseFile(Arq_mail);
{$I+}
if lAbrir Then
  ShellExecute(Handle,'open', PChar( sFileN ), nil, nil,
SW_SHOWNORMAL);

Desde já agradeço

Mariana





--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










--
Este e-mail está livre de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2 - Data de Lançamento:
22/10/2004




-- 
Mensagens enviadas estão livres de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.2  Data de Lançamento: 22/10/2004



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos

[delphi-br] configurando o apache for windows

2004-10-25 Por tôpico mestredigital



estou desenvolvendo uma web application isapi no delphi e gostaria de 
rodá-la no apache para windows. Não encontrei nenhuma documentação 
que conseguisse fazer esse troço funcionar. Alguém já configurou o 
apache dessa forma?





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Novo arquivo carregado em delphi-br

2004-10-25 Por tôpico delphi-br




Olá,

Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no 
grupo delphi-br.

  Arquivo : /Exemplos/envia email.zip 
  Carregado por   : arcanjo_gabriel_dimas [EMAIL PROTECTED] 
  Descrição   : Exemplo de um cliente de envio de emails (usando comp Indy) 

Você pode acessar o arquivo pela URL:

http://br.groups.yahoo.com/group/delphi-br/files/Exemplos/envia%20email.zip 

Para saber mais sobre compartilhamento de arquivos no grupo, leia:

http://help.yahoo.com/help/br/groups/files

Atenciosamente,

arcanjo_gabriel_dimas [EMAIL PROTECTED]
 








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Colorir apenas a linha selecionada do DBGrid, sem usar o RowSelect

2004-10-25 Por tôpico Christian Balz


Ola Pessoal,

 

Estou utilizando o código abaixo no evento OnDrawColumnCell, mas somente a
célula clicada fica colorida.

 

  If gdSelected in State then begin

With (Sender as TDbGrid).Canvas do begin

  Brush.Color := $0028C0B1;

  FillRect(Rect);

  (Sender as TDbGrid).DefaultDrawDataCell(Rect,Field,State);

end;

  end;

 

Como faço para colorir apenas a linha selecionada do DbGrid, sem usar o
RowSelect?

 

Se alguém souber me ajudar fico grato,

 

[]s

Christian Balz

 



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] mysql x dbexpress

2004-10-25 Por tôpico jimmy


Peça ao administrador pra reeniciar o MySQL.

Fabi Fabi escreveu:

 Olá pessoal da lista!   

  Estou usando o dbexpress para concetar com o mysql, 
 porém, algo não está funcionando(Desculpe pelo texto longo eu o 
 detalhei para mostrar o minha dúvida facilitando a resolução do mesmo, 
 q será tão bom para mim e quanto para outras pessoas que possam estar 
 tendo este tipo de problema).

A minha intenção é criar um projeto que atualize os dados 
 da internet via delphi, pois trabalho com interbase e preciso que os 
 dados sejam atualizados para consulta virtual. Para isso criei um 
 projeto, coloquei o objeto SQLConnection da paleta dbExpress, inseri 
 todos os parâmetros. No entanto, quando conecto ocorre o seguinte erro 
 dbexpress error : invalid username/password(já verifiquei que o 
 usuário e a senha estão corretas !).
   Tudo bem, foi procurar então um administrador de mysql, para 
 tentar resolver o problema. Executei o gerenciador coloquei senha, 
 usuario, ip e quando conecto dá o seguinte erro:  Can't connected to 
 mysql server --nº ip--(10060) .
   Help!! O que está acontencendo ?
   Ficaria muito grata por um retorno.
   Super obrigado,
   Fabiola.


 -
 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!

 [As partes desta mensagem que não continham texto foram removidas]




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]



 *Yahoo! Grupos, um serviço oferecido por:*


 
 *Links do Yahoo! Grupos*

 * Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/

 * Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
   mailto:[EMAIL PROTECTED]

 * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
   Serviço do Yahoo! http://br.yahoo.com/info/utos.html.






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] URGENTE - simpleDataset

2004-10-25 Por tôpico Rafael Jorge


estou fazendo o sequinte um simpledataset conectado a um
sqlconnection, no simpledataset eu tenho tudo configurado corretamente
posto dados navego pelos registro e tal so que ao dar um post seguido
de um applyupdates(0) ele sempre apresenta esse erro :raised exception
class edatabaseerror with message 'table unknown categoria
at line 1, column 8.
'. process stopped. use step or run to continue.

a tabela existe, tanto que eu navego e chego a tantar da um post nela!
 seu eu nao der o applyupdates ele da o post normalmente so que ao
fechar o dataset ele nao aplica as mudanças ou seja so ta em chache
local. como eu realizo o applyupdates neste componente?

obrigado. t+


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Off topic - teste - não abra

2004-10-25 Por tôpico Cândido Luís Dias Ferreira


teste|

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Problemas na Atualização do Estoque

2004-10-25 Por tôpico Sergio Toshio Kawahara


DELPHI 6, PARADOX

Pessoal estou com o seguinte problema na atualização do estoque quando mando rodar a 
rotina abaixo com mais de 100 itens da a seguinte mensagem:
Operation not Applicate too many open tables, alguem já passou por isso?

Rotina para atualizar o estoque:

procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
// Inicia uma Transacao
Database.StartTransaction;
try
tQry := tQuery.Create(Application);  // Cria Query temporaria
tQry.DatabaseName := 'dbTeste';//Alias

tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');

ParamByName('Qtde').AsFloat:= 
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString := 
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
Free;
end;
tbNotaItem.Next;
end;

tQry.Free;
Database.Commit;
except
tQry.Free;
Database.Rollback;
raise;
end;
end;

Agradeço qualquer ajuda.

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Somatorios em rave reports

2004-10-25 Por tôpico Cristiano Bonini



Caros,
 
Necessito de ajuda com o Rave Reports.  
Tenho um relatório em que preciso fazer um somatório valores de componentes calctexto. 
 Alguem sabe como posso fazer isso?
 



-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Duplicação de valores ao imprimir relatório

2004-10-25 Por tôpico Fabio Giro

Inicaliaze as variáveis na procedure QuickRep1BeforePrint

- Original Message -
From: er83pet04 [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 4:07 PM
Subject: [delphi-br] Duplicação de valores ao imprimir relatório

Alguém já viu isso?

Criei um relatório utilizando o quickreport e no final coloquei uma
band do tipo sumary que possue 4 qrlabels onde passo o somatório dos
valores que quero no before print. Ao dar um preview no relatório
ele exibe tudo certinho com os valores corretos, tudo perfeito. Mas
ao imprimir na impressora, os valores que estão nesses qrLabels
estão saindo duplicados. Como pode?
Na tela está aparecendo um valor e quando mando imprimir está
imprimindo o dobro dos mesmos.

Se alguém puder me dar um help, agradeço desde já.

--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] PageControl

2004-10-25 Por tôpico Camoloze



Charlles,
 
Tenta assim :  PageControl.ActivePage := NomeDaTabSheet;
 
[]´s camoloze
-Mensagem original-
De: Charlles Ferdinand [mailto:[EMAIL PROTECTED] 
Enviada em: segunda-feira, 25 de outubro de 2004 14:05
Para: Delphi-Br
Assunto: [delphi-br] PageControl



Pessoal como fazer para que o sistema abra, com a 1ª aba (TabSheet) de uma
PageControl, ativada, porque esta pagecontrol tem 2 abas, e como o cadastro
termina na segunda aba, quando o sistema abre, esta sempre com a 2 aba
ativa.
Charlles Ferdinand
Analista Contábil
Tel.: (22) 2622-9739


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

PUBLICIDADE
 
http://br.rd.yahoo.com/SIG=12a33l7pc/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1098810899/A=2332652/R=0/id=noscript/SIG=119058f8i/
*http://br.download.yahoo.com/messenger/   


  _  

Links do Yahoo! Grupos


*   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  

*   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED] 
  

*   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html . 




[As partes desta mensagem que não continham texto foram removidas]






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Problemas na Atualização do Estoque

2004-10-25 Por tôpico Sergio Toshio Kawahara


DELPHI 6, PARADOX

Pessoal estou com o seguinte problema na atualização do estoque quando mando rodar a 
rotina abaixo com mais de 100 itens da a seguinte mensagem:
Operation not Applicate too many open tables, alguem já passou por isso?

Rotina para atualizar o estoque:

procedure TForm1.bConfirmarClick(Sender: TObject);
var
tQry : TQuery;
begin
// Inicia uma Transacao
Database.StartTransaction;
try
tQry := tQuery.Create(Application);  // Cria Query temporaria
tQry.DatabaseName := 'dbTeste';//Alias

tbNotaItem.First;
while not tbNotaItem.Eof do
begin
// Atualiza Estoque
with tQry do
begin
SQL.Clear;
SQL.Add('Update Produtos ');
SQL.Add('Set Estoque = Estoque + :Qtde ');
SQL.Add('Where Codigo = :Codigo');

ParamByName('Qtde').AsFloat:= 
tbNotaItem.FieldByName('Qtde').AsInteger;
ParamByName('Codigo').AsString := 
tbNotaItem.FieldByName('Produto').AsString;
ExecSQL;
end;
tbNotaItem.Next;
end;

tQry.Free;
Database.Commit;
except
tQry.Free;
Database.Rollback;
raise;
end;
end;

Agradeço qualquer ajuda.


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Somatorios em rave reports

2004-10-25 Por tôpico Romario (Delphi)


Cristiano,

Existe uma lista só de usuários do Rave Reports que poderá te auxiliar 
muito mais nas suas dúvidas. Se achar conveniente, inscreva-se lá.

Link no Yahoo Grupos:

  http://br.groups.yahoo.com/group/rave-reports/

Para inscrever-se no grupo através de e-mail:

  [EMAIL PROTECTED]


Sds,

Romario



Cristiano Bonini escreveu:
 
 Caros,
  
 Necessito de ajuda com o Rave Reports.  
 Tenho um relatório em que preciso fazer um somatório valores de componentes 
 calctexto.  Alguem sabe como posso fazer isso?


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Dialogs

2004-10-25 Por tôpico MOITA


mudei algumas variaveis da unit dialogs para que no messagedlg os botoes aparecam em 
portugues, so que as alteracoes que fiz nao funcionam. Como posso fazer para que tenha 
efeito. Já diz Buil all e Compile all.

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: RES: [delphi-br] DUvida - Agenda de Telefone

2004-10-25 Por tôpico ms_goncalves



Oi Eduardo, 

   Uma ideia: colocar um componente Image no fundo da tela (aih vai 
da sua criatividade a imagem q vai colocar lah).

   Vc pode pegar a posicao do mouse atraves de:

procedure TForm1.Image1Click(Sender: TObject);
var
 pt: TPoint;
begin
  GetCursorPos(pt);
  showmessage (IntToStr(pt.x) + ',' + IntToStr(pt.y));
end;

   para realizar alguma acao.

[]s

MSG

--- Em [EMAIL PROTECTED], Eduardo Silva ® [EMAIL PROTECTED] 
escreveu
 Complementando a dúvida do nosso amigo, gostaria de saber como 
fazer para
 colocar nessa agenda de compromissos uma folha como se fosse uma 
agenda de
 papel, igual existem em programas por ai, como o outlook, por 
exemplo.
 
   -Mensagem original-
   De: Tasquim [mailto:[EMAIL PROTECTED]
   Enviada em: segunda-feira, 25 de outubro de 2004 14:32
   Para: [EMAIL PROTECTED]
   Assunto: [delphi-br] DUvida
 
 
   Boa Tarde a todos!
 
   Tenho um programa de agenda de telefones, gostaria de implementar 
nela uma
 agenda de Compromissos,  pois ja tenho o calendario e gostaria de 
clicar no
 dia e ja abrir a agenda de compromissos, com os horarios e tudo 
mais.
   Como posso realizar este tipo de comando, qual comando
   usar?
 
   Tasquim
 
   [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
   Para ver as mensagens antigas, acesse:
   http://br.groups.yahoo.com/group/delphi-br/messages
 
   Para falar com o moderador, envie um e-mail para:
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
 
 
 Yahoo! Grupos, um serviço oferecido por:
 
 
 
 
 
 
 
 

 --
   Links do Yahoo! Grupos
 
 a.. Para visitar o site do seu grupo na web, acesse:
 http://br.groups.yahoo.com/group/delphi-br/
 
 b.. Para sair deste grupo, envie um e-mail para:
 [EMAIL PROTECTED]
 
 c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos 
do
 Serviço do Yahoo!.
 
 
 
 ---
 Outgoing mail is certified Virus Free.
 Checked by AVG anti-virus system (http://www.grisoft.com).
 Version: 6.0.772 / Virus Database: 519 - Release Date: 01/10/2004
 
 
 [As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Re: Identificador de chamadas - BINA

2004-10-25 Por tôpico ms_goncalves



Oi Marcos,

   Essa parada de identificador de chamada no Brasil eh sempre meio 
complicada pq o BINA pelo q sei eh uma tecnologia nacional, portanto 
diferente do q tem lah fora.

   Pelo q vi na internet pra fazer esse componente funcionar vc vai 
precisar usar um modem antigo e mexer em alguma coisa na fiacao.

   Dah uma olhada em:
http://www.google.com.br/search?
q=cache:7SEDFIBE_UkJ:www.modemclub.com.br/forum/modem56k/arquivo.cgi%
3Faction%3Ddisplay%26num%3D4379+SPBina+delphihl=pt-BRlr=lang_pt

[]s

MSG

--- Em [EMAIL PROTECTED], Marcos Jordao 
[EMAIL PROTECTED] escreveu
 Alguém ae já conseguiu desenvolver uma aplicação que funcione como 
Bina?
 Encontrei um componente SPBina, mas não consegui fazê-lo funcionar
 Ele indica que a chava não está na posição Bina ou não há RESISTOR 
presente.
  
 O que seria isso?
  
 O que eu preciso fazer?
  
 Obrigado.
  
 Marcos Antonio Campos Jordão
 
   
 -
 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador 
agora!
 
 [As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

67 matches

Mail list logo