HowToDoThings.com Delphi

Como Capturar Ecrã com Delphi

Zamrony P535 — Mon, 22 Dec 2008 09:40:31 -0600

Como ligar um aplicativo Delphi para acessar

m_s — Fri, 19 Dec 2008 11:41:03 -0600

Linhas de encomenda

Peter5 — Sun, 30 Nov 2008 03:40:40 -0600

Ao criar uma associação na ECO não estiver garantida a ordem em que os objetos no final da associação, será apresentado. Por esta razão ECO fornece um Boolean "ordenada" propriedade em associação termina.

Quando você define Pedida = True no seu modelo e, em seguida, gerar o seu banco de dados, ECO irá criar mais uma coluna no seu banco de dados para identificar a seqüência dos objetos.

Acabei de criar SalesInvoice / SalesInvoiceLine classes e optaram por uma associação ordenada, basicamente porque é prática padrão da indústria para identificar cada linha de uma fatura / Despacho com um número seqüencial, tornando-o facilmente ela identifyable quando se discutem.

Teria sido legal se eu pudesse ter usado um atributo com uma resultantes OCL expressão semelhante a esta:

this.SalesInvoice.lines-> indexOf (auto)

read more

Application.ProcessMessages substituição

Sun, 30 Nov 2008 03:26:08 -0600

Não só é muito longa para Application.ProcessMessages tipo, muitas vezes a funcionalidade extra tem de ser chamado quando a sua utilização. Para este efeito criada Tenho dois invólucros básico, que pode ser usado em seu lugar:

...

procedimento ProcessMsg (); sobrecarga;
procedimento ProcessMsg (const SleepFor: Word); sobrecarga;

execução

procedimento ProcessMsg ();
começo
ProcessMsg (0);
final;

procedimento ProcessMsg (const SleepFor: Word); sobrecarga;
começo
Application.ProcessMessages ();
Sono (SleepFor);
final;

...

Agora, em vez de escrever Application.ProcessMessages (); no seu código, você pode escrever ProcessMsg (); vez. E, no futuro, pode prorrogar o que acontece ao redor Application.ProcessMessages chamadas sem visitar os lotes de diferentes áreas do seu código.

Como recuperar AutoInc Valores com BDP no Delphi 2005

Sun, 30 Nov 2008 03:25:55 -0600

Neste artigo, vou usar o termo "Identidade" indiferentemente a nota gerada automaticamente (a partir de RDMS) valores geralmente de uma coluna que representam a chave primária de uma tabela. Estes são chamados de "sequências", em Oracle e "geradores" no Interbase.
Na verdade, existem 3 opções para obter o valor de volta identidade usando ADO. NET em geral:

Use um lote consulta (o banco de dados tem, obviamente, de apoio a este)
Use um procedimento armazenado (como o comando Insert) tendo como parâmetro a saída de uma "identidade" valor (esse é o método mais rápido e, portanto, recomendável)
Manipular Adapter's RowUpdated / RowUpdating evento e emitir um "SELECT @ @ IDENTIDADE" (no caso do SQL Server) consulta no código neste evento manipulador (mais lento)

Parâmetro existe

Sun, 30 Nov 2008 03:25:35 -0600

Você vai precisar da função neste artigo (http://www.howtodothings.com/ViewArticle.aspx?Article=760) para obter esta funcionando corretamente

função ParamExists (const ParamName: string): Boolean;
var
S: string;
começo
Resultado: = GetParameterValue (ParamName, ['/','-'], ':', S);
final;

Obter parâmetros de linha de comando

Sun, 30 Nov 2008 03:25:24 -0600

(* GetParameterValue

GetParameterValue irá retornar o valor associado a um parâmetro nome na forma de

/ paramname: paramvalue
-paramname: paramvalue

/ paramname
-paramname

ParamName - Nome do parâmetro (paramname)
SwitchChars - Parâmetro alternar identificadores (/ ou -)
SEPERATOR - O char que se sente entre paramname e paramvalue (:)
Valor - O valor do parâmetro (paramvalue), se existir

Retorna - Booleano, verdade se o parâmetro foi encontrado, falso se não existe parâmetro

típicos de utilização

Parâmetro
-P = c: \ temp \
-S

GetParameterValue ( 'p', ['/','-'], '=', sValue);

sValue irá conter c: \ temp \

*)
função GetParameterValue (const ParamName: string; SwitchChars: TSysCharSet;
SEPERATOR: Char; var Valor: string): Boolean;
var
Eu, Set: Longint;

Obter o tamanho de um arquivo

Sun, 30 Nov 2008 03:25:11 -0600

função GetFileSize (const FileName: string): Integer;
var
sr: TSearchRec;
começo
Resultado: = 0;

se FindFirst (FileName, faAnyFile, sr) = 0 então
começo
Resultado: = sr.Size;
FindClose (sr);
final;
final;

BaseForm classe

Sun, 30 Nov 2008 03:10:59 -0600

Você já enfrentou acrescentando o mesmo código para diferentes formas? E agora você pode usar o seguinte como uma classe base para todas as formas.

=============== BEGIN CODE ======================
BaseForm unidade;

interface

usa SysUtils, Classes, Forms, o Windows;

tipo
TBaseForm = class (TForm)
protegida
IsModal função (): Boolean;
procedimento KeyDown (var Key: Word; Shift: TShiftState); override;
procedimento showError (E: Exception);
função MsgBox (Msg: string;
uType: Integer = MB_OK ou MB_ICONSTOP): Integer; sobrecarga;
função MsgBox (Msg, MsgCaption: string;
uType: Integer = MB_OK ou MB_ICONSTOP): Integer; sobrecarga;
final;

execução

usa controles;

MsgBox função

Sun, 30 Nov 2008 03:10:46 -0600

Pessoalmente acho ambos os WinAPI MessageBox e Application.MessageBox e MessageDlg funções cludgy semper e adicionar a seguinte função para cada aplicativo.

função MsgBox (const Msg: string;
MsgType: Integer = MB_OK ou MB_ICONSTOP): Integer;
começo
Resultado: = MessageBox (Application.Handle, PChar (MSG),
PChar (Application.Title), MsgType);
final;

Forms.pas exige que se utiliza na cláusula.

Remover ReadOnly bandeira de arquivo

Sun, 30 Nov 2008 03:10:36 -0600

A seguinte função tentará remover o sinalizador só de ler um arquivo, você terá a função neste artigo (http://www.howtodothings.com/ViewArticle.aspx?Article=755).

função RemoveReadOnly (const FileName: string): Boolean;
começo
(* Assumir Sucesso *)
Resultado: = True;

(* Verifique se o arquivo é somente leitura antes
e vamos tentar mudar os atributos *)
if (IsReadOnly (FileName)) então
começo
SetFileAttributes (PChar (FileName), FILE_ATTRIBUTE_NORMAL);

Resultado: não IsReadOnly = (FileName);
final;
final;

Detectar se o arquivo estiver ReadOnly

Sun, 30 Nov 2008 03:10:25 -0600

A seguinte função retornará True se um arquivo é somente leitura.

função IsReadOnly (const FileName: string): Boolean;
var
sr: TSearchRec;
começo
(* Considere-se não somente leitura *)
Resultado: = False;

se FindFirst (FileName, faAnyFile, sr) = 0 então
começo
Resultado: = (sr.Attr e faReadOnly) <> 0;
FindClose (sr);
final;
final;

Como funciona BoldTreeView

Peter5 — Sun, 30 Nov 2008 03:10:15 -0600

Este é apenas um conjunto de instruções rápidas em vez de uma abrangente artigo. Trata-se de uma cópia de um destacamento, em Fiz um Borland notícias ...

Vou te dar um exemplo do que fiz recentemente um ....

01) Defina a propriedade BoldHandle ao seu BoldSystemHandle
02) Dê um duplo clique no treeview para abrir o editor
03) Clique no botão "raiz" elemento
04) Se não o tiver já tenho um filho, clique em "Adicionar Lista Fragment"
05) Em ElementExpression entra o principal OCL, por exemplo
"Customer.allInstances"
06) Definir InterpretAsList para True
07) Definir ControllerExpression a 'Cliente' (incluindo as aspas)

O que você tem agora é uma raiz que agarra uma lista de clientes. A BTV sabe que precisa de um "nó controlador" chamado "Cliente" para representar cada item da lista (que é por isso que InterpretAsList = True).

Armazenar e recuperar um bitmap no ECO

Sun, 30 Nov 2008 02:25:55 -0600

Este artigo mostra as noções básicas sobre como armazenar e recuperar um bitmap em uma variável ECO.

ECO primeiro criar uma variável na classe que pretende segurar o bitmap, como por exemplo:

FCanvas: Byte

Note que nós realmente queremos um byte array, então clique em FCanvas direito e selecione "Ir para a Definição".
Agora você pode alterar a definição de byte [] como segue:

privado byte [] FCanvas

Para escrever o bitmap para FCanvas utilizar os seguintes:

ImageConverter ic = new ImageConverter ();

System.Byte [] ba = (System.Byte []) ic.ConvertTo (bmp, typeof (System.Byte []));

FCanvas = ba;

Para recuperar o bitmap de FCanvas utilizar os seguintes:

System.IO.Stream str = new System.IO.MemoryStream (FCanvas);

Duas funções para avaliar OCL

Sun, 30 Nov 2008 02:25:32 -0600

Com a ajuda de Jonas Hogstrom e Jan Norden eu ter escrito 2 funções para avaliar OCL.

Em primeiro lugar está a avaliar em EcoSpace OCL:

público objeto EvaluateOclInEcoSpace (IElement rootValue, string OCL)
(
objeto resultado = null;
IElement e = ((IOclService)
this.GetEcoService (typeof (IOclService))). EvaluateAndSubscribe (rootValue, OCL,
null, null);
if (e! = null)
resultado = e.AsObject;
return resultado;
)

Segunda-se a avaliar no PS OCL:

público objeto EvaluateOclInDB (IElement rootValue, string OCL)
(
objeto resultado = null;
IElement InternalElement = null;

IOclService oclService = (IOclService)
this.GetEcoService (typeof (IOclService));

read more

TableStyles dinâmica baseada no tipo de objecto

Sun, 30 Nov 2008 01:56:00 -0600

Aqui está um exemplo de como usar TableStyles diferentes dependendo do tipo do objeto selecionado atualmente em um DataGrid. Tenho 2 grandes redes, cada um agarrado ao ExpressionHandles. Quero mostrar um conjunto diferente de colunas, dependendo do tipo de objeto no topo da grelha.

Em primeiro lugar, a aplicação precisa de saber quando um novo objeto foi selecionado. Aqui um CurrencyManager está sendo ligado. DgStock é uma DataGrid, ehRoot é um ExpressionHandle contendo os objetos Stock.

privado

cmStock: CurrencyManager;

....

procedimento TfrmStock.TfrmStock_Load (remetente: System.Object; e: System.EventArgs);
começo
cmStock: = CurrencyManager (dgStock.BindingContext [Self.ehRoot]);
Include (cmStock.PositionChanged, Self.StockGridRowChanged);
final;

Lendo uma tagged valor

Peter5 — Sun, 30 Nov 2008 01:55:45 -0600

ECO permite que você adicione TaggedValues (par nome / valor) para o seu modelo em desenho momento. Aqui é como recuperar o valor de uma TaggedValue no momento da execução.

obj.AsIObject () dá IObject
IObject.UmlType dá uma IClassifier
IClassifier é um IModelElement, por isso ....
IClassifier.TaggedValues [ 'Olá'] dá ITaggedValue
ITaggedValue.Value dá a corda

ClassDisplayName: =
obj.AsIObject (). UmlType.TaggedValues [ 'EcoExtensions.DisplayName'];

IProperty é também um IElement, assim você pode obter valores de propriedades marcou exatamente da mesma maneira.

obj.AsIObject (). Properties [ 'nome']. UmlType .......

Ou reavaliar novamente?

Peter5 — Sun, 30 Nov 2008 01:41:23 -0600

Este artigo irá explicar, em ECO derivados membros. É a principal finalidade é descrever a diferença entre o ReEvaluateSubscriber e ReSubscribeSubscriber parâmetros quando você derivar membros no código.

Um dos excelentes recursos do Negrito que fizeram durante a transição em ECO é derivado membros. Derivadas Um membro é um pouco como um campo calculado sobre um conjunto de dados, exceto, é calculada apenas a primeira vez que você solicitar o seu valor e, em seguida, esse valor é cache para processamento tempo.

Tome FullName da pessoa como um exemplo. Nome completo seria calculada como

Resultado: = Título + '' + FirstName + '' + LastName;

O primeiro passo importante no sentido de criar esse tipo de ECO é um atributo para marcar o atributo derivado. É realmente possível indicar alguns "Derivation OCL" e têm o sistema ECO derivar tudo para você

title + '' firstname + + '' + LastName

read more

A Multi-Client-ECO aplicação exemplo.

Sun, 30 Nov 2008 01:40:55 -0600

A aplicação que vamos construir pode ser usado para capturar worktime e pausas durante o worktime. O worktime pode ser capturada com vários clientes do servidor de aplicação e fornece uma visão de todos os dados capturados.

[O cliente parte]

Você começa com a criação de um eco winform pedido. Este pedido deverá ser o cliente. Eu dei um nome que WorkTimeClient.

Você precisa ter as classes UML em um pacote para que você possa adicioná-los mais tarde, a pedido do servidor.

Crie o seguinte modelo:

Passando on / off ECO logging

Peter5 — Sun, 30 Nov 2008 01:40:29 -0600

ECO II possui um novo recurso no Update 2 o que torna mais fácil ver o que ele está fazendo nos bastidores.

Quando você executar o aplicativo, pode-se ver as mensagens na janela do IDE do Delphi e ver o que está acontecendo. Você pode ativar / desativar opções para diferentes áreas da ECO incluindo OCL, PMapper, etc, fixando as seguintes opções.

Borland.Eco. Logging. EcoLogSwitches.LogOcl: = falso / verdadeiro;
Borland.Eco. Logging. EcoLogSwitches.LogPMapper: = falso / verdadeiro;
Borland.Eco. Logging. EcoLogSwitches.LogRegions: = falso / verdadeiro;
Borland.Eco. Logging. EcoLogSwitches.LogSql: = falso / verdadeiro;
Borland.Eco. Logging. EcoLogSwitches.LogSqlMeta: = falso / verdadeiro;
Borland.Eco. Logging. EcoLogSwitches.LogValidation: = falso / verdadeiro;