Graymalkin

Para escrever você pode utilizar o método Print (sim, ele não aparece na lista, mas está lá): picture1.print "teste" E, para salvar é só utilizar a função SavePicture(): savepicture picture1.image, "c:\teste.bmp" Lembre-se de ativar a propriedade AutoRedraw da mesma. Abraços, Graymalkin

Sim, Tecnólogo em Informática na UniverCidade. Abraços, Graymalkin

Dê um olhada no tópico abaixo. Os códigos são em VB, mas a idéia é a mesma para qualquer linguagem: http://scriptbrasil.com.br/forum/index.php...hl=criptografia Abraços, Graymalkin

Exato. Só que o ideal seria fazer s.Append(b.PadLeft(3, "0")), já que os valores vão de 0 até 255 (três algarismos). Estou terminando a faculdade de Tecnólogo e fiz o Ensino Médio técnico em informática. Abraços, Graymalkin

Ah tá, beleza então. Pensei que a dúvida fosse em relação ao acesso. Fechando, Graymalkin

Tenho quase certeza de que já existe um tópico aqui sobre isso. Já experimentou dar uma procurada? Abraços, Graymalkin

Acho que é só habilitar a propriedade AutoSize (Auto = automático, Size = tamanho) da mesma. É só fazer os cálculos e mudar as propriedades Top e Left, não? Imagine, na mão mesmo, que você tenha uma folha de papel A4 ou ofício e queira fazer um quadrado exatamente no meio dela. O que você faria para isso? Acredito que tenha faltado definir a propriedade DefaultExt também. Ah, acho que escrever corretamente (utilizando "q", "ç", "z", por exemplo), ajudaria muito a leitura daqueles que podem vir a lhe ajudar. Abraços, Graymalkin

Marque-o na opção Components do menu Project. Depois é só colocá-lo no form e explorar suas propriedades e métodos. Abraços, Graymalkin

Obrigado. Mas, eu bem que queria "manjar" mais... Os bytes já são os valores decimais. Basta não convertê-los para hexa. Abraços, Graymalkin

Existem outros tópicos sobre isso, porém creio que nenhum em Delphi. Todavia, as diferenças são mínimas. Experimente procurar por ADO.NET. Abraços, Graymalkin

Claro. Length (do Inglês, "comprimento") não é um método e sim uma propriedade e o retorno dela é a quantidade de bytes existentes no FileStream. Ela também aparece representando a quantidade de elementos em um vetor e a quantidade de caracteres existentes em uma string. Dê uma olhada neste tópico para uma explicação sobre o For Each: http://scriptbrasil.com.br/forum/index.php?showtopic=50443 O método Append de um objeto StringBuilder serve para montarmos uma string de tamanho variável em memória. Ela permite ir adicionando as partes da string desejada. É uma constante que representa o ENTER (Cr = Carriage Return, Retorno de Carro; e Lf = Line Feed, Avanço de Linha). Abraços, Graymalkin

Quantos registros tem no Recordset? Experimentou colocar uma MsgBox() ali no loop para ver se ele está realmente passando por todos? Abraços, Graymalkin

O "erro" é não estar gravando todos os registros? Graymalkin

Você pode fazer um programa para isso. Python serviria para o caso e tem um módulo para cálculo de tempo. Abraços, Graymalkin

Claro que precisa. A condição do loop é "faça até que seja o final de rs2", porém rs2 nunca vai chegar ao final se a posição do cursor não for sendo incrementada. Abraços, Graymalkin

A função sprintf() também pode fazer isso. Você tentou ela? De qualquer forma, escrevi duas funções que podem ser utilizadas para isso (na verdade você só utilizará uma delas, a outra é complementar desta): #include <stdlib.h> #include <stdio.h> char itoc(int i) { switch (i) { case 0: return '0'; case 1: return '1'; case 2: return '2'; case 3: return '3'; case 4: return '4'; case 5: return '5'; case 6: return '6'; case 7: return '7'; case 8: return '8'; case 9: return '9'; } } void itoa(int i, char s[]) { int m10 = 1; int qt = 0; int n; while (((int)(i/m10))>0) m10 *= 10; m10 /= 10; while (m10>0) { n = (int)(i/m10) - ((int)(i/(m10*10))*10); s[qt] = itoc(n); m10 /= 10; qt++; } s[qt] = '\0'; } int main() { int i = 32768; char s[10]; itoa(i, s); printf("%s\n", s); system("pause"); } Todavia, só vai funcionar para os inteiros positivos. Mas, acredito que seja fácil ajustar se você necessitar de negativos também. Abraços, Graymalkin

Beleza então! Fechando. Graymalkin

Se você estiver utilizando DAO, dê uma olhada no método FindFirst do recordset. Se for ADO, o método Find. Abraços, Graymalkin

Certos caracteres (bytes) não têm representação gráfica (como o chr(0), por exemplo). Ou seja, você não vai ter como mostrar "algo" na forma de caracter, se o mesmo não tem uma representação gráfica. A visualização mais usual que vejo para mostrar arquivos binários é mostrar os valores hexadecimais de cada um dos bytes. O exemplo a seguir faz isso: Dim abrir As New OpenFileDialog Dim resultado As DialogResult = abrir.ShowDialog() Dim nomearq As String = abrir.FileName If resultado = DialogResult.Cancel Then Exit Sub End If arquivoentrada = New FileStream(nomearq, FileMode.Open, FileAccess.Read) binarioentrada = New BinaryReader(arquivoentrada) Dim bytes() As Byte = binarioentrada.ReadBytes(arquivoentrada.Length) Dim b As Byte Dim qt As Integer = 1 Dim s As New System.Text.StringBuilder For Each b In bytes s.Append(Hex(b).PadLeft(2, "0")) If qt = 10 Then s.Append(vbCrLf) qt = 0 Else s.Append(" ") End If qt += 1 Next RichTextBox1.Font = New Font("Courier New", 11, FontStyle.Regular, GraphicsUnit.Pixel) RichTextBox1.Text = s.ToString() binarioentrada.Close() arquivoentrada.Close() Mudei a fonte para Courier New para que a exibição fique uniforme. Abraços, Graymalkin

Arquivos são sequências de bytes. Portanto, arquivos binários são sequências de bytes. E arquivos texto *também*. A diferença é que arquivos textos não admitem todos os tipos de bytes, e alguns possuem características especiais. Enquanto em um arquivo binário puro um chr(13) seguido por um chr(10) são apenas dois caracteres, em um arquivo texto isso constituí um avanço de linha mais um retorno de carro. A RichTextBox e a TextBox foram criadas para mostrar texto, portanto elas interpretarão os caracteres como sendo texto, daí a não-exibição correta dos bytes. O exemplo abaixo lê os bytes, transforma em um vetor de chars e converter para String: Dim abrir As New OpenFileDialog Dim resultado As DialogResult = abrir.ShowDialog() Dim nomearq As String = abrir.FileName If resultado = DialogResult.Cancel Then Exit Sub End If arquivoentrada = New FileStream(nomearq, FileMode.Open, FileAccess.Read) binarioentrada = New BinaryReader(arquivoentrada) Dim bytes() As Byte = binarioentrada.ReadBytes(arquivoentrada.Length) Dim chars(bytes.Length - 1) As Char Dim d As System.Text.Decoder = System.Text.Encoding.Default.GetDecoder() d.GetChars(bytes, 0, bytes.Length, chars, 0) Dim s As String = New String(chars) RichTextBox1.Text = s binarioentrada.Close() arquivoentrada.Close() Desse jeito você vai mostrar os bytes na RichTextBox, mas como eu disse, a exibição não vai ser correta (o primeiro byte com valor 0 que ele encontrar vai ser considerado o final do texto, por exemplo). Abraços, Graymalkin

Eu utilizo JavaScript para isso. Crie um arquivo chamado divvanish.js e coloque o seguinte nele: function hideDiv(nome) { document.getElementById(nome).style.visibility = "hidden"; } function showDiv(nome) { document.getElementById(nome).style.visibility = "visible"; } Inclua-o na sua página HTML com: <script language="javascript" type="text/javascript" src="divvanish.js"></script> Depois, basta chamar uma das funções passando nome da div: hideDiv("nome_da_div"); Certo? Graymalkin

O que você quer ler exatamente? Arquivos texto ou arquivos binários? Se for esse último, acredito que a RichTextBox não seja o local ideal para exibí-los. Abraços, Graymalkin

Deve estar faltando declarar o tipo (Type) PRINTER_DEFAULTS. De qualquer forma, não seria mais simples utilizar o componente Common Dialogs? Abraços, Graymalkin

Se você tiver alguma dúvida sobre algum desses assuntos e precisar de esclarecimentos, ficaremos felizes em ajudar. Só não venha pedir tudo pronto, por favor. Abraços, Graymalkin

Como Delphi é da Borland, provavelmente deve ter sido feito em C++ e/ou (Object) Pascal. Abraços, Graymalkin