12
Solução em C#
Original: https://stackoverflow.com/a/12150289/916193
public static DateTime GetNetworkTime()
{
//Servidor nacional para melhor latência
const string ntpServer = "a.ntp.br";
// Tamanho da mensagem NTP - 16 bytes (RFC 2030)
var ntpData = new byte[48];
//Indicador de Leap (ver RFC), Versão e Modo
ntpData[0] = 0x1B; //...
respondida 17/04/14 às 20:28
11
Existe a view INFORMATION_SCHEMA que possibilita você fazer a verificação, e uma das vantagens dela é que ela é definida por padrão em diferentes bases de dados e versões do SGBD.
Veja como implementar:
IF (EXISTS (SELECT *
FROM INFORMATION_SCHEMA.TABLES
WHERE TABLE_SCHEMA = 'TheSchema'
AND TABLE_NAME =...
respondida 5/05/16 às 22:00
gato
21,7mil1717 medalhas de ouro8181 medalhas de prata205205 medalhas de bronze
10
A diferença é quem é o "dono" da janela. Ou seja, se o "dono" for desalocado, todos os forms que possuem este form como dono também são desalocados.
No primeiro exemplo, o form só é desalocado se a aplicação inteira também for. Este não é muito recomendado por problemas de desempenho, porque as notificações passadas para Application demoram um tempo maior ...
respondida 3/04/14 às 20:25
Leonel Sanches da Silva
87,8mil88 medalhas de ouro116116 medalhas de prata222222 medalhas de bronze
10
Algoritmo Serial vs Algoritmo Paralelo
Para conseguir resolver seu problema, vc vai precisar alterar seu algoritmo.
Hoje o que você tem é uma aplicação que executa toda sua lógica em uma única thread que será executada por um único processador. A isso chamados de algoritmo serial ou sequencial.
O que significa dizer que toda sua lógica é executada de ...
respondida 24/06/15 às 17:23
Filipe Miranda
3.05833 medalhas de ouro1212 medalhas de prata3131 medalhas de bronze
8
Resposta derivada de: Delphi 7 e gmail (conexão com autenticação)
O Gmail utiliza sistema de criptografia ssl, e para conectar nossa aplicação à ele, necessitamos de duas dll's especificas que seriam:
libeay32.dll e ssleay32.dll. (o download delas pode ser encontrado aqui)
Após ter as dll's em mãos, descompacte-as no diretório C:\WINDOWS\System32.
...
7
Bem, nos três casos você usou uma variável horaInicial e depois horaIncial. Vou assumir que o i faltando é um erro de digitação bobo apenas e não uma variável diferente.
Veja nesta página estes detalhes:
The date is set to 30 dec 1899, one day short of the 19th century.
Warning : the date value is set to 1 day short of the end of the 19th century. Exactly ...
respondida 6/03/15 às 20:51
Victor Stafusa
62,5mil88 medalhas de ouro106106 medalhas de prata173173 medalhas de bronze
7
Pelo que você explicou, você não tem vários componentes com o mesmo nome, e sim está utilizando a mesma variável para criar estes componentes. Uma forma de você não precisar se preocupar com isso, ao invés disso você pode apenas utilizar o Sender do procedimento da seguinte forma:
procedure TFCad_AnaliseDeTendencias.Validacao(Sender: TObject);
begin
if ...
respondida 16/02/17 às 11:06
Sorack
26,7mil22 medalhas de ouro3131 medalhas de prata9090 medalhas de bronze
6
Delphi
No Delphi caso você tenha instalado os componentes do Indy(em versões recentes do Delphi o Indy já vem embutido), você pode obter o horário utilizando o componente IdSntp.
Exemplo:
{
Na seção "Uses" coloque as units:
IdComponent, IdTCPConnection, IdTCPClient, IdSNTP,
IdBaseComponent, IdUDPClient, IdUDPBase
}
Function ReturnTimeInternet(...
respondida 18/04/14 às 15:01
stderr
30mil55 medalhas de ouro3939 medalhas de prata6969 medalhas de bronze
6
Se você utiliza versões recentes do Delphi(D2010.. XE), existe a função MatchStr que pode fazer esse trabalho por você. Porém, caso utilize versões mais antigas do Delphi(D6, D7) utiliza-se a função AnsiMatchStr, ambas as funções estão definidas na unit StrUtils.
Veja um exemplo de uso da função MatchStr:
Const
Tabela : Array[0..4] of String = ('Valor', '...
respondida 18/10/14 às 17:18
stderr
30mil55 medalhas de ouro3939 medalhas de prata6969 medalhas de bronze
6
A única coisa que pode estar errada é que a sua variável Cliente esta vazia ou nula. Mas aí tem que ver na regra de negócio onde deveria ser preenchida.
syntax error at the end of the input
É um erro retornado pelo banco, sua query está sendo enviada como:
select * from Empresa where Codigo =;
respondida 23/11/16 às 15:37
Sorack
26,7mil22 medalhas de ouro3131 medalhas de prata9090 medalhas de bronze
5
Eu uso uma "receitinha de bolo" que sempre funciona para mim.
Segue:
Crie uma interface:
namespace EscreveINI
{
using System.Runtime.InteropServices;
[InterfaceType(ComInterfaceType.InterfaceIsDual), Guid("80911B7A-608D-4A54-B51B-CF09E512CAD4")]
public interface IEscreveIniClass
{
void Escrever();
}
}
E uma classe:
namespace ...
5
Uma outra alternativa, nativa a partir do Delphi 2009 ou superior, é a função ByteLength da unit SysUtils.
Veja um exemplo (retirado da documentação):
var
LS1: WideString;
begin
LS1 := 'Hello World!';
Writeln('UnicodeString: ''', LS1, ''' contains ', Length(LS1), ' characters in ', ByteLength(LS1), ' bytes.');
Readln;
end.
A saída será:
Como bem ...
respondida 27/03/14 às 4:09
stderr
30mil55 medalhas de ouro3939 medalhas de prata6969 medalhas de bronze
5
O que está salvo é, aparentemente em base64.
Se for mesmo base64 então, você pode utilizar essas funções (créditos David Heffernan nesta pergunta no SOEn )
uses
System.SysUtils,
System.Classes,
Vcl.Graphics,
Soap.EncdDecd;
function Base64FromBitmap(Bitmap: TBitmap): string;
var
Input: TBytesStream;
Output: TStringStream;
begin
Input := ...
5
Onde você escreveu
DownThread := DownThread.Create(True);
o correto é
DownThread := TMeuDownloader.Create(True);
Observe a diferença: no seu código você chama o método Create a partir da variável em vez de chamá-lo a partir da classe.
Como a variável não contém instância de coisa alguma mas, ao invés, contém apenas uma referência inválida (a variável ...
respondida 12/01/15 às 15:32
Caffé
17,1mil11 medalhas de ouro3333 medalhas de prata7676 medalhas de bronze
5
Tente:
'UPDATE Tbl_aluno SET nome = '+QuotedStr(edit_nome.text)+'
WHERE PRONTUARIO ='+QuotedStr(.....)
O QuotedStr garante que o parâmetro fique entre aspas, por exemplo: nome='AUGUSTO'
5
Conheço essas opções:
procedure TForm1.Button1Click(Sender: TObject);
var
MyDate: TDateTime;
begin
MyDate := 0.0159722222222222;
//Com Cast
ShowMessage(TimeToStr(MyDate));
//Com Format
ShowMessage(FormatDateTime('hh:nn:ss', MyDate));
end;
A opção do Format é interessante, por você manipular oque será exibido:
Aqui estão as opções para o ...
5
ShortString é um tipo por valor, então o texto está nela. String é um tipo por referência, então a variável só terá um ponteiro para o texto que está em outro lugar.
Note que ShortString pode ter até 255 caracteres. Ela tem o tamanho total de 2 a 256 bytes, um byte é usado para indicar o tamanho dela. O tamanho não pode mudar nem pra mais, nem pra menos. ...
respondida 19/05/17 às 13:45
5
Sim vai, você tem que estar em uma transação para isso, é claro. Mesmo que não consiga executar o rollback, o commit também não será executado e é somente no commit que as informações são salvas. Como a conexão foi interrompida sem informar ao banco, ele provavelmente irá segurar a conexão e a transação, até estourar o timeout, então ele mesmo irá descartar ...
respondida 29/06/17 às 17:42
Rovann Linhalis
14,7mil22 medalhas de ouro1515 medalhas de prata4343 medalhas de bronze
5
Respondendo diretamente a pergunta: Não, Cannot initialize local variables.
O que você pode fazer é declarar a variável antes da seção implementation
var
FormX : TFormX;
lPriAber : Boolean = True;
Dessa forma podera usa-a no procedimento.
Se por acaso não for alterar seu valor, pode-se localmente declara-la como constante.
procedure ...
respondida 29/11/17 às 16:14
Junior Moreira
7.19944 medalhas de ouro1717 medalhas de prata4949 medalhas de bronze
5
Este erro fatal ocorre quando a declaração de símbolo declarada na parte de interface de uma unidade foi alterada e o compilador não consegue recompilar uma unidade que depende desta declaração porque a origem não está disponível para ele.
Existem várias soluções possíveis - recompilar Unit1 (supondo que você tenha o código-fonte disponível), use uma ...
respondida 27/04/18 às 17:34
Edu Mendonça
2.44022 medalhas de ouro1212 medalhas de prata4242 medalhas de bronze
5
Se você tem os tipos e os dados serão estruturados, o ideal é fugir do variant, como você não quer usar variável, indico "const array of record":
type
TCampos = record
CampoA: string;
CampoB: Integer;
CampoC: Double;
end;
const
cCampos: array[0..2] of TCampos = (
(CampoA: 'campoa'; CampoB: 1; CampoC: 1.2),
(CampoA: ...
4
Copie o executável CONVERT.EXE dentro do diretório Bin do Delphi para o diretório que estão seus DFM;
Execute o comando:
convert.exe -t -i -s *.dfm
respondida 28/03/14 às 17:05
Leonel Sanches da Silva
87,8mil88 medalhas de ouro116116 medalhas de prata222222 medalhas de bronze
4
Fazendo uso da classe TIdHTTP do Indy, podes fazer da seguinte forma:
http.ExecuteURL('http://pokestage.ddns.net/patch/patchlist.txt');
sRichEdit1.Lines.Add(http.sl.Text);
respondida 17/10/14 às 11:38
Zuul
34,8mil1818 medalhas de ouro8787 medalhas de prata180180 medalhas de bronze
4
Consegui fazer, achei uma forma nesse link: http://www.delphibr.com.br/artigos/atualizador.htm
Mais claramente, nessa parte:
program Atualizador;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
min: integer;
begin
DeleteFile('aplicativo.old'); // apaga um arquivo antigo, caso exista
repeat // o truque: cria-se um laço até encerrar o aplicativo
...
respondida 18/10/14 às 15:01
Gabriel Sales
1.21911 medalhas de ouro1111 medalhas de prata2828 medalhas de bronze
4
O comando para quebrar ou interromper um loop, em Delphi, é break.
Usando seu código como exemplo:
for x:=1 to 10 do
begin
if x = 5 then
Break;
end;
x = 5; // nesta linha, x de fato será 5.
Este comando pode ser usado para quebrar qualquer estrutura de loop, como while e repeat.
Um comando break quebra apenas o loop no qual está contido. Se ...
respondida 17/10/14 às 17:24
Caffé
17,1mil11 medalhas de ouro3333 medalhas de prata7676 medalhas de bronze
4
for x:=1 to 10 do
if x = 5 then break;
end
4
Essencialmente não tem muito o que fazer, você tem que verificar item por item. Dependendo do que você quer existem outras estruturas de dados que podem minimizar o tempo de busca.
Por outro lado, talvez o que você queira é só montar um loop para varrer todo o array com um for in:
var
Tabela : Array of String;
Str : String;
begin
Tabela[0] := '...
respondida 18/10/14 às 16:35
4
Você tem de solicitar a operação HEAD com o endereço do arquivo
var
HttpClient: TIdHttp;
FileSize: Int64;
begin
HttpClient := TIdHttp.Create(nil);
try
HttpClient.Head('http://somewhere.com/somefile.exe');
FileSize := HttpClient.Response.ContentLength;
finally
HttpClient.Free;
end;
end;
Apenas as respostas wiki não pertencentes à comunidade mais votadas e de um tamanho mínimo se qualificam
Tags relacionadas
delphi-7 × 185delphi × 127
postgresql × 11
delphi-10 × 9
sql × 8
firebird × 7
dll × 6
c# × 5
delphi-xe3 × 5
lazarus × 5
banco-de-dados × 4
object-pascal × 4
tclientdataset × 4
zeos × 4
mysql × 3
windows × 3
envio-de-email × 3
relatório × 3
delphi-xe5 × 3
dbgrid × 3
indy-10 × 3
javascript × 2
java × 2
html × 2
sql-server × 2