[delphi-br] Alterar Propriedades de Objeto antes da Compilação
Alguém sabe se existe alguma forma de alterar uma propriedade de um objeto automaticamente antes de compilar o projeto? O que preciso fazer é o seguinte: 1 - alterar as propriedades active das tabelas para false caso estejam true 2 - colocar a data de compilação em um label [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] 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] Usuário Diferente - Quase Lá
Camaradas,
Eu implementei o exemplo, e funcionou sem problemas, uma aplicação chama a outra que roda como um outro usuário.
Duas questões ainda permanecem:
Como rodar o próprio programa, e não chamar outro?
Se crio dois programas (um chamando o outro) o primeiro programa só fecha depois que fechar o segundo!
Será que não tem como fazer isso com threads?
Será que não dá para colocar isso na dpr?
Alguém consegue implementar isso?
Um Abração,
Benn
//
Abaixo o Exemplo:
unit UFrmStarter;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFrmStarter = class(TForm)
Button1: TButton;
EdUser: TEdit;
EdPassword: TEdit;
EdPath: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmStarter: TFrmStarter;
implementation
{$R *.dfm}
function CreateProcessWithLogonW(
lpUsername,
lpDomain,
lpPassword:PWideChar;
dwLogonFlags:dword;
lpApplicationName: PWideChar;
lpCommandLine: PWideChar;
dwCreationFlags: DWORD;
lpEnvironment: Pointer;
lpCurrentDirectory: PWideChar;
const lpStartupInfo: tSTARTUPINFO;
var lpProcessInformation: TProcessInformation
): BOOL; stdcall; external 'advapi32.dll';
function RunAsUser(const Filename, Domain, Username, Password: string):Boolean;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
wFilename, wDomain, wUsername, wPassword: PWideChar;
begin
FillChar (StartupInfo, SizeOf(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := SW_SHOWNORMAL;
GetMem(wFilename, Length(Filename) * SizeOf(WideChar) + SizeOf(WideChar));
GetMem(wDomain, Length(Domain) * SizeOf(WideChar) + SizeOf(WideChar));
GetMem(wUsername, length(Username) * SizeOf(WideChar) + SizeOf(WideChar));
GetMem(wPassword, length(Password) * SizeOf(WideChar) + SizeOf(WideChar));
StringToWideChar(Filename, wFilename, Length(Filename) * SizeOf(WideChar) + SizeOf(WideChar));
StringToWideChar(Domain, wDomain, Length(Domain) * SizeOf(WideChar) + SizeOf(WideChar));
StringToWideChar(Username, wUsername, Length(Username) * SizeOf(WideChar) + SizeOf(WideChar));
StringToWideChar(Password, wPassword, Length(Password) * SizeOf(WideChar) + SizeOf(WideChar));
Result := CreateProcessWithLogonW(wUsername,wDomain,wPassword,0,wFilename,nil,0,nil,nil,StartupInfo,ProcessInfo);
if Result then
begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end
else
RaiseLastOSError
{end if};
FreeMem(wFilename);
FreeMem(wDomain);
FreeMem(wUsername);
FreeMem(wPassword);
end;
procedure TFrmStarter.Button1Click(Sender: TObject);
begin
RunAsUser(EdPath.Text,'',EdUser.Text,EdPassword.Text);
end;
end.
- Original Message -
From: Benn Yahoo
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 01, 2006 1:58 PM
Subject: Fw: Usuário Diferente - Uma Luz no fim do túnel 3
http://coding.derkeiler.com/Archive/Delphi/borland.public.delphi.nativeapi/2003-12/0427.html
- Original Message -
Camaradas
A um tempo eu enviei uma questão pra lista, porém ninguém respondeu, pedi alguma dica, mas ninguém respondeu, agora achei uma pista. Será que alguém consegue implementar isso em delphi?
Acho que isso vai ser muito útil para o pessoal que desenvolve sistemas em rede, ou seja quase todos.
O link para dar uma olhada é:
http://msdn.microsoft.com/library/default.asp?url="">
Um Abração,
Benn
- Original Message -
No WinXP eu posso executar criar um atalho e executar o programa com uma credencial diferente (Como outro usuário), para poder ter acesso à pastas que o usuário logado não tem acesso. Até aqui, muito bom, funcionou!
Agora a naba
Não tem a opção para salvar o usuário e a senha da credencial, e também não sei se ao fazer isso o usuário tendo a credencial salva no computador poderia acessar a pasta diretamente do explorer, uma vez que ficaria disponível pelo sistema.
Alguém sabe se existe alguma forma de fazer isso pelo programa? Para que ele use um usuário e senha do windows diferente do que ele está logado, e que não faça com que ele possa acessar esta pasta diretamente pelo explorer
Valeu a força,
Benn
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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 PRO
[delphi-br] Fw: Usuário Diferente - Quase Lá 2
trocando-se WaitForSingleObject(ProcessInfo.hProcess, INFINITE); por WaitForSingleObject(ProcessInfo.hProcess, 1000); Ele fecha o programa sem esperar terminar o outro que foi executado a partir do primeiro. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Fw: Usuário Diferente - Uma Luz no fim do túnel 2
http://www.swissdelphicenter.ch/torry/showcode.php?id=1689 - Original Message - From: Benn Yahoo To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 01, 2006 1:53 PM Subject: Usuário Diferente - Uma Luz no fim do túnel Camaradas A um tempo eu enviei uma questão pra lista, porém ninguém respondeu, pedi alguma dica, mas ninguém respondeu, agora achei uma pista. Será que alguém consegue implementar isso em delphi? Acho que isso vai ser muito útil para o pessoal que desenvolve sistemas em rede, ou seja quase todos. O link para dar uma olhada é: http://msdn.microsoft.com/library/default.asp?url=""> Um Abração, Benn - Original Message - No WinXP eu posso executar criar um atalho e executar o programa com uma credencial diferente (Como outro usuário), para poder ter acesso à pastas que o usuário logado não tem acesso. Até aqui, muito bom, funcionou! Agora a naba Não tem a opção para salvar o usuário e a senha da credencial, e também não sei se ao fazer isso o usuário tendo a credencial salva no computador poderia acessar a pasta diretamente do explorer, uma vez que ficaria disponível pelo sistema. Alguém sabe se existe alguma forma de fazer isso pelo programa? Para que ele use um usuário e senha do windows diferente do que ele está logado, e que não faça com que ele possa acessar esta pasta diretamente pelo explorer Valeu a força, Benn [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Usuário Diferente
Camaradas A um tempo eu enviei uma questão pra lista, porém ninguém respondeu, será que aguém pode ajuadar e dar alguma dica de onde, ou o que procurar para fazer o seguinte. No WinXP eu posso executar criar um atalho e executar o programa com uma credencial diferente (Como outro usuário), para poder ter acesso à pastas que o usuário logado não tem acesso. Até aqui, muito bom, funcionou! Agora a naba Não tem a opção para salvar o usuário e a senha da credencial, e também não sei se ao fazer isso o usuário tendo a credencial salva no computador poderia acessar a pasta diretamente do explorer, uma vez que ficaria disponível pelo sistema. Alguém sabe se existe alguma forma de fazer isso pelo programa? Para que ele use um usuário e senha do windows diferente do que ele está logado, e que não faça com que ele possa acessar esta pasta diretamente pelo explorer Valeu a força, Benn [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Executar com Credencial Diferente
Cobras No WinXP eu posso executar criar um atalho e executar o programa com uma credencial diferente, para poder ter acesso à pastas que o usuário logado não tem acesso. Até aqui, muito bom, funcionou! Agora a naba Não tem a opção para salvar o usuário e a senha da credencial, e também não sei se ao fazer isso o usuário tendo a credencial salva no computador poderia acessar a pasta diretamente do explorer, uma vez que ficaria disponível pelo sistema. Alguém sabe se existe alguma forma de fazer isso pelo programa? Para que ele use um usuário e senha do windows diferente do que ele está logado, e que não faça com que ele possa acessar esta pasta diretamente pelo explorer Valeu a força, Benn [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Elieldo Martins
Camaradas Nosso camarada Elieldo Martins ainda está na lista ou alguém tem o e-mail dele? Preciso trocar umas idéias com ele sobre o NetTalk. Um Abração, BRA [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br] Como verificar acesso de usuário a u ma pasta na rede ?
Camarada,
Você já tentou fazer um workaround da seguinte forma:
if DirectoryExists('\\Servidor\pasta') then
begin
showmessage('tem acesso')
end
else
begin
ShowMessage('não tem acesso');
end
{end if};
Eu testei em casa e funcionou. Uso micros com WinXP, sem compartilhamento simples. Nego a permssão e ele diz que o diretório não existe.
Teste e dê um feedback!
Um Abração,
Benn
- Original Message -
From: rog-martins
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 25, 2006 9:04 AM
Subject: [delphi-br] Como verificar acesso de usuário a uma pasta na rede ?
Bom dia pessoal !
Por acaso alguém teria uma rotina para verificar se o usuário logado tem
acesso a uma determinada pasta na rede ?
Algo do tipo:
function TestaAcesso(Usuario, Pasta: string): boolean;
begin
// se Usuario tiver acesso a Pasta então result := true
// senão result := false;
end;
Obs. As estações onde rodam o aplicativo são windows e os servidores e
gerenciador da rede são respectivamente Linux e Samba.
Desde já, agradeço.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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!.
Re: [delphi-br] Zeos Database Objects
MySQL 4.0 Rodando em Windows XP - Original Message - From: Marcio Melli Silvestre To: delphi-br@yahoogrupos.com.br Sent: Saturday, May 20, 2006 10:14 AM Subject: Re: [delphi-br] Zeos Database Objects Você precisa dar um select nas tabelas do dicionário de dados do seu banco. Qual é o banco de dados que você quer retornar estas informações? Benn Yahoo [EMAIL PROTECTED] escreveu: Camaradas Estou usando Zeos Database Objects com Delphi 7! Como eu faço para saber se uma tabela existe? E se existe a tabela como eu faço para saber os campos dela? Valeu a Força, Benn [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE var lrec_target=_top;var lrec_URL=new Array(); lrec_URL[1]=http://br.ard.yahoo.com/SIG=12f19a2g4/M=396559.7942981.9411633.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147961170/A=3672775/R=0/id=flashurl/SIG=154s706bs/*http://lt.dell.com/lt/lt.aspx?CID=12696LID=338165DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs; var lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/120506_y300x250_maio02_dhs_dimension5150.swf?clickTAG=_javascript_:LRECopenWindow(1); var lrec_altURL=http://br.ard.yahoo.com/SIG=12f19a2g4/M=396559.7942981.9411633.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147961170/A=3672775/R=1/id=altimg/SIG=154s706bs/*http://lt.dell.com/lt/lt.aspx?CID=12696LID=338165DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs; var lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/120506_y300x250_maio02_dhs_dimension5150.gif; var lrec_width=300;var lrec_height=250; - 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! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Estouro de Memória - Quais os limites do Delphi A/C Rod rigo Farias
Ok, muito obrigado, vou tentar digerir isto e ver se consigo fazer funcionar. Depois eu retorno o resultado ou outras dúvida.
Valeu a força camarada!
- Original Message -
From: Rodrigo Othavio Farias
To: delphi-br@yahoogrupos.com.br
Sent: Friday, May 19, 2006 8:58 AM
Subject: Re: [delphi-br] Estouro de Memória - Quais os limites do Delphi A/C Rodrigo Farias
É, da pra usar teus records como base pras classes de maneira bem facil,
sugiro para as classses usar como classe base a TcollectionItem e em vez de
arrays usa Classes TOwnedCollection, tem exemplos no help do Delphi, com
isso vc programa OOP e garante um melhor uso de memoria, pq só aloca o que
realmente vai usar.
Segue abaixo um exemplo de criação dessas classes, adapte ele pra suas
necessidades:
/*
interface
uses
Classes;
type
TDireito = class(TCollectionItem)
private
public
constructor Create(ACollection: TCollection); override;
destructor Destroy; override;
end;
TDireitos = class(TOwnedCollection)
private
function GetItem(i: integer): TDireito;
procedure SetItem(i: integer; AValue: TDireito);
public
constructor Create(AOwner:TPersistent);
destructor Destroy; override;
function Add : TDireito;
property Items[i:integer]: TDireito read GetItem write SetItem; default;
end;
implementation
{TDireitos}
constructor TDireitos.Create(AOwner: TPersistent);
begin
inherited Create(AOwner, TDireito);
end;
destructor TDireitos.Destroy;
begin
inherited;
end;
function TDireitos.Add: TDireito;
begin
Result := TDireito( inherited Add );
end;
function TDireitos.GetItem(i: integer): TDireito;
begin
Result := TDireito( inherited Items[i] );
end;
procedure TDireitos.SetItem(i: integer; AValue: TDireito);
begin
Items[i].Assign( AValue );
end;
{TDireito}
constructor TDireito.Create(ACollection: TCollection);
begin
inherited Create(ACollection);
end;
destructor TDireito.Destroy;
begin
inherited;
end;
end.
/*
Rodrigo Othávio Farias
- Original Message -
From: Benn Yahoo [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 18, 2006 7:51 PM
Subject: [delphi-br] Estouro de Memória - Quais os limites do Delphi A/C
Rodrigo Farias
Camarada,
Como eu faço isso? Criar uma classe com as mesmas variaveis do record?
Olha o que eu estou fazendo assim:
type TPartialFitnessAssembly = record
Param1 :Real;
Param2 :Real;
Param3 :Real;
Param4 :Real;
Param5 :Real;
Loaded :boolean;
end;
type TAlleleAssembly = record
Id :integer;
NickName :String;
PartialFitness :TPartialFitnessAssembly;
Loaded :boolean;
EdNickName :TEdit;
LbId :TLabel;
end;
type TLocusAssembly = record
Name : String;
Value : Integer;
AllelesCount : Integer;
RecombinationRate : Integer;
MutationRate : Integer;
Alleles : array of TAlleleAssembly;
Loaded : boolean;
EdNickName : TEdit;
SpinAlleleCount : TSpinEdit;
SpinMutationRate : TSpinEdit;
SpinRecombinationRate : TSpinEdit;
LbName : Tlabel;
LbCaller : Tlabel;
ImgRecombination : TImage;
end;
type TChromosomeAssembly = record
Id : String;
LocusCount : Integer;
Locus : array of TLocusAssembly;
Loaded : boolean;
SELocusCount : TSpinEdit;
LbName : Tlabel;
LbCaller : Tlabel;
InfoHint : String;
end;
Assim por diante, depois eu crio as variáves a partir destes Tipos
- Original Message -
From: Rodrigo Othavio Farias
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, May 18, 2006 8:55 AM
Subject: Re: [delphi-br] Estouro de Memória - Quais os limites do Delphi
vc podeira trocar esse teu record por uma classe, melhor umas lista de
objetos, o Delphi trata muito bem essa alocação dinamica de ponteiros de
objetos. Pense OOP :)
Rodrigo Othávio Farias
- Original Message -
From: Benn Yahoo [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, May 17, 2006 2:23 PM
Subject: [delphi-br] Estouro de Memória - Quais os limites do Delphi
Estou criando um array grande (mais de 2) este array é montado
dinâmicamente a partir de um type record, que tem um de seus eixos um
array
dinâmico de outro type record e assim por diante.
Porém lá pelas tanta o programa acusa falta de memória e para, não vai nem
pra frente nem para trás.
Algumas questões:
Como posso calcular o tamanho que isso está ocupando na memória?
como saber o quanto de memória posso usar (uma vez que dando ctrl+alt+del
ele diz que está ocupando 250, Mb sendo que meu computador tem 1Gb e acusa
falta de memória)
Um array tem um limite de tamanho?
Por que quando eu crio uma variavel de um type record que eu criei e
atribuo
uma outra variavel do mesmo tipo ele vira apenas uma referência e não uma
variavel independente, sendo que ao alterar a que recebe o valor o valor é
alterado na variável que doou o valor.
Camaradas, obrigado pela força que vcs têm me dado!
Um Abração,
Benn
[As partes desta mensagem que não
[delphi-br] Zeos Database Objects - Encontrei
Encontrei!!! Crio um query com Show Tables; e dou um Locate nela. Para mostrar os campos eu usei um: SHOW COLUMNS FROM nome_da_tabela; e usei um locate para procurar pelo campo Field. Valeu pela força, Benn - Original Message - From: Benn Yahoo To: delphi-br@yahoogrupos.com.br Sent: Saturday, May 20, 2006 3:11 PM Subject: Re: [delphi-br] Zeos Database Objects MySQL 4.0 Rodando em Windows XP - Original Message - From: Marcio Melli Silvestre To: delphi-br@yahoogrupos.com.br Sent: Saturday, May 20, 2006 10:14 AM Subject: Re: [delphi-br] Zeos Database Objects Você precisa dar um select nas tabelas do dicionário de dados do seu banco. Qual é o banco de dados que você quer retornar estas informações? Benn Yahoo [EMAIL PROTECTED] escreveu: Camaradas Estou usando Zeos Database Objects com Delphi 7! Como eu faço para saber se uma tabela existe? E se existe a tabela como eu faço para saber os campos dela? Valeu a Força, Benn [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE var lrec_target=_top;var lrec_URL=new Array(); lrec_URL[1]=http://br.ard.yahoo.com/SIG=12f19a2g4/M=396559.7942981.9411633.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147961170/A=3672775/R=0/id=flashurl/SIG=154s706bs/*http://lt.dell.com/lt/lt.aspx?CID=12696LID=338165DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs; var lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/120506_y300x250_maio02_dhs_dimension5150.swf?clickTAG=_javascript_:LRECopenWindow(1); var lrec_altURL=http://br.ard.yahoo.com/SIG=12f19a2g4/M=396559.7942981.9411633.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1147961170/A=3672775/R=1/id=altimg/SIG=154s706bs/*http://lt.dell.com/lt/lt.aspx?CID=12696LID=338165DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs; var lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/120506_y300x250_maio02_dhs_dimension5150.gif; var lrec_width=300;var lrec_height=250; - 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! doce lar. Faça do Yahoo! sua homepage. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Zeos Database Objects
Camaradas Estou usando Zeos Database Objects com Delphi 7! Como eu faço para saber se uma tabela existe? E se existe a tabela como eu faço para saber os campos dela? Valeu a Força, Benn [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Estouro de Memória - Quais os limites do Delphi A/C Rodr igo Farias
Camarada, Como eu faço isso? Criar uma classe com as mesmas variaveis do record? Olha o que eu estou fazendo assim: type TPartialFitnessAssembly = record Param1 :Real; Param2 :Real; Param3 :Real; Param4 :Real; Param5 :Real; Loaded :boolean; end; type TAlleleAssembly = record Id :integer; NickName :String; PartialFitness :TPartialFitnessAssembly; Loaded :boolean; EdNickName :TEdit; LbId :TLabel; end; type TLocusAssembly = record Name : String; Value : Integer; AllelesCount : Integer; RecombinationRate : Integer; MutationRate : Integer; Alleles : array of TAlleleAssembly; Loaded : boolean; EdNickName : TEdit; SpinAlleleCount : TSpinEdit; SpinMutationRate : TSpinEdit; SpinRecombinationRate : TSpinEdit; LbName : Tlabel; LbCaller : Tlabel; ImgRecombination : TImage; end; type TChromosomeAssembly = record Id : String; LocusCount : Integer; Locus : array of TLocusAssembly; Loaded : boolean; SELocusCount : TSpinEdit; LbName : Tlabel; LbCaller : Tlabel; InfoHint : String; end; Assim por diante, depois eu crio as variáves a partir destes Tipos - Original Message - From: Rodrigo Othavio Farias To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 18, 2006 8:55 AM Subject: Re: [delphi-br] Estouro de Memória - Quais os limites do Delphi vc podeira trocar esse teu record por uma classe, melhor umas lista de objetos, o Delphi trata muito bem essa alocação dinamica de ponteiros de objetos. Pense OOP :) Rodrigo Othávio Farias - Original Message - From: Benn Yahoo [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 17, 2006 2:23 PM Subject: [delphi-br] Estouro de Memória - Quais os limites do Delphi Estou criando um array grande (mais de 2) este array é montado dinâmicamente a partir de um type record, que tem um de seus eixos um array dinâmico de outro type record e assim por diante. Porém lá pelas tanta o programa acusa falta de memória e para, não vai nem pra frente nem para trás. Algumas questões: Como posso calcular o tamanho que isso está ocupando na memória? como saber o quanto de memória posso usar (uma vez que dando ctrl+alt+del ele diz que está ocupando 250, Mb sendo que meu computador tem 1Gb e acusa falta de memória) Um array tem um limite de tamanho? Por que quando eu crio uma variavel de um type record que eu criei e atribuo uma outra variavel do mesmo tipo ele vira apenas uma referência e não uma variavel independente, sendo que ao alterar a que recebe o valor o valor é alterado na variável que doou o valor. Camaradas, obrigado pela força que vcs têm me dado! Um Abração, Benn [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Estouro de Memória - Quais os limites do Delphi A/C Jean Pierre
Agradecido pela idéia, porém não posso colocar em um arquivo por que preciso da variáveis para muito cálculos, e abriria, fecharia e gravaria o arquivo tantas vezes que se tornaria lento e provavelmente iria acabar corrompendo o arquivo e acabando com a HD. Um Abraço, Benn - Original Message - From: Jean Pierre To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 18, 2006 9:58 AM Subject: Re: [delphi-br] Estouro de Memória - Quais os limites do Delphi bom dia,. Realmente são grandes duvidas pra vc e pra mim tambem... Seguinte... porque vc não cria um arquivo temporario na sua base e grava as informações lá... pelo menos não teria problemas de estouro de memoria... inte+ Jean - Original Message - From: Benn Yahoo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, May 17, 2006 2:23 PM Subject: [delphi-br] Estouro de Memória - Quais os limites do Delphi Estou criando um array grande (mais de 2) este array é montado dinâmicamente a partir de um type record, que tem um de seus eixos um array dinâmico de outro type record e assim por diante. Porém lá pelas tanta o programa acusa falta de memória e para, não vai nem pra frente nem para trás. Algumas questões: Como posso calcular o tamanho que isso está ocupando na memória? como saber o quanto de memória posso usar (uma vez que dando ctrl+alt+del ele diz que está ocupando 250, Mb sendo que meu computador tem 1Gb e acusa falta de memória) Um array tem um limite de tamanho? Por que quando eu crio uma variavel de um type record que eu criei e atribuo uma outra variavel do mesmo tipo ele vira apenas uma referência e não uma variavel independente, sendo que ao alterar a que recebe o valor o valor é alterado na variável que doou o valor. Camaradas, obrigado pela força que vcs têm me dado! Um Abração, Benn [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 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 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
[delphi-br] Contrato
Camaradas Alguém tem um contrato de locação de software e dicas para não cair em nenuma esparrela legal? Agradecido, Benn [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
Re: [delphi-br] Largura e Altura de uma String em Determinada Fonte
Deu certo! Valeu a força, Benn - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Monday, April 24, 2006 2:42 AM Subject: RE: [delphi-br] Largura e Altura de uma String em Determinada Fonte Use a propriedade Canvas do objeto onde a string será exibida para determinar isso. Só com alguma instância TCanvas é possível fazer isso, pois a classe TCanvas possui uma propriedade Font e os métodos TextWidth() e TextHeight() para retornar, respectivamente, a largura e altura de uma string com base no canvas do objeto utilizado. Leia mais sobre isso no próprio help do Delphi. Sds. From: Benn Yahoo [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Largura e Altura de uma String em Determinada Fonte Date: Mon, 24 Apr 2006 00:11:46 -0300 Camaradas Como fazer para descobrir a Largura e Altura em pixels que uma string ocupará em determinada fonte? Agradecido, Benn [As partes desta mensagem que não continham texto foram removidas] _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- 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] 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!.
Re: [delphi-br] Aplicação em tela cheia
Nas propriedades do form altere: BorderStyle para bsNone WindowsState para wsMaximized pronto, tranquilo! Um Abraço, Benn - Original Message - From: -=SchiavoR=- To: delphi-br@yahoogrupos.com.br Sent: Thursday, April 20, 2006 1:40 PM Subject: [delphi-br] Aplicação em tela cheia Salve amigos, Alguém sabe como fazer para o programa ocupar toda a tela do micro quando aberto, igual os jogos fazem? Att. Rodrigo Schiavo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- 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] 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!.
[delphi-br] TPrinter
Como eu faço para setar uma impressora específica para o TPrinter? Ele pega sempre a impressora padrão, gostaria de chamar o Printer Dialog e salvar estas configurações. Eu achei uma rotina que com o PrinterDialog configura a impressora como padão, mas isso não me resolvel. Preciso colocar uma padrão apenas para o TPrinter. [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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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!.
