Jhonas

sim... voce deve usar o arquivo de recurso do delphi ( .RES ) voce vai guardar nele as suas imagens e depois voce vai poder extrai-las desse arquivo e usar no seu programa OBS: se forem muitas imagens, não aconselho a usar esse recurso, pois deixaria o seu executavel muito grande de qualquer forma, vou te passar varios links onde poderá pesquisar e decidir qual a melhor forma para isso. ( Talvez seja melhor usar DLLs para guardar as imagens ) exemplos: https://www.devmedia.com.br/forum/armazenar-imagens-em-dll/173725 https://forum.baboo.com.br/index.php?/topic/685291-gravar-imagens-num-dll-e-exibi-las-projeto-delphi/ https://www.google.com.br/search?source=hp&ei=LUmPWvvLEIiHwgS374WAAw&q=guardar+imagens+no+arquivo+de+recursos+delphi&o que=guardar+imagens+no+arquivo+de+recursos+delphi&gs_l=psy-ab.3...2447.15020.0.15403.45.45.0.0.0.0.243.5008.2j35j3.40.0....0...1.1.64.psy-ab..5.35.4296...0j0i131k1j0i10k1j0i22i30k1j0i22i10i30k1j33i22i29i30k1j33i160k1.0.Vfq_C2KgRi8 abraço

Tem como limpar a Imagem com mesmo button também ? sim... procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Clear; //(IMAGEM LIMPAR) Image1.Picture.Bitmap.FreeImage; end; abraço

É possivel carregar a imagem de forma aleatória junto com o seu texto correspondente no MEMO ao mesmo tempo. isso é uma pergunta ou uma afirmação ? se é uma pergunta ... sim é possivel. basta voce colocar no case o texto correspondente a imagem i := RandomRange(1,5); Case i of 2: begin Image1.Picture.LoadFromFile('flores\02.jpg'); Memo1.Lines.Text := /// Texto que voce atribuir a essa imagem end; 3: begin Image1.Picture.LoadFromFile('flores\03.jpg') ; Memo1.Lines.Text := /// Texto que voce atribuir a essa imagem end; 4: begin Image1.Picture.LoadFromFile('flores\04.jpg') ; Memo1.Lines.Text := /// Texto que voce atribuir a essa imagem end; end; abraço

79-34-00-212-001-A01 <br> 25-60-01-212-001-A00 <br>27-11-01-720-001-A00 <br>27-21-01-720-001-A00 <br>27-31-01-720-001-A00 <br>28-11-00-280-001-A01 <br> voce esta fazendo um For para procurar caracteres e não palavras if letra not in '<' or 'b' or 'r' or '>' coloque a forma correta no python para esse if ... não me lembro se é assim mesmo outros exemplos nos links https://www.google.com.br/search?source=hp&ei=642NWr33CsiUwgSbmom4Ag&q=pegar+uma+string+em+texto+python&o que=pegar+uma+string+em+texto+python&gs_l=psy-ab.3...2006.11134.0.11845.32.32.0.0.0.0.148.3454.0j29.29.0....0...1.1.64.psy-ab..3.25.2974...0j0i131k1j0i10k1j0i22i30k1j33i160k1.0.WtVm5sqVrII abraço

exemplos: http://www.devfuria.com.br/python/receitas-para-manipular-arquivos-de-texto/ abraço

O Windows tem arquivos de Icones que voce pode usar em seus programas ou outras aplicações o código abaixo, extrai esses icones dos arquivos ( .DLL ) e salva esses icones em uma pasta no Diretório " C:\Icones " o Tamanho desses icones é 32 X 32 ... No XP o resultado foi de 984 Icones OBS: Se alguém souber de outros arquivos que contenham icones, favor informar. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; // Arquivos de Icones do Windows Arquivo: array[0..22] of STRING = ('shell32.dll', 'wmploc.dll', 'imageres.dll', 'ieframe.dll', 'vscript.dll', 'compstui.dll', 'ddores.dll', 'mmcndmgr.dll', 'moricons.dll', 'netshell.dll', 'pnidui.dll', 'pifmgr.dll', 'wpdshext.dll', 'comres.dll', 'dmdskres.dll', 'dsuiext.dll', 'mstscax.dll', 'setupapi.dll', 'vrlmon.dll', 'wiashext.dll', 'mmres.dll', 'inetpic.dll', 'inetpic.cpl'); implementation {$R *.dfm} uses ShellAPI; procedure ExtractIconsFromWindows(SavetoFolder : string); var Icon: TIcon; ExtrFileName, Arq : string; NumberOfIcons, i, n: Integer; begin for n := 0 to 22 do begin showmessage('Extraindo Icones de : ' + Arquivo[n]); Arq := copy(Arquivo[n],1,pos('.',Arquivo[n])-1); ExtrFileName := IncludeTrailingBackSlash(Arquivo[n]); Icon := TIcon.Create; try NumberOfIcons := ExtractIcon(0, PChar(Arquivo[n]), UINT(-1)); for i := 0 to NumberOfIcons - 1 do begin Icon.Handle := ExtractIcon(0, PChar(Arquivo[n]), i); Icon.Transparent := true; Icon.SaveToFile(IncludeTrailingBackSlash(SavetoFolder) + Arq + ' - '+ IntToStr(i)+'.ico'); end; finally icon.Free; end; end; showmessage('Extração de Icones Finalizada.'); end; procedure TForm1.Button1Click(Sender: TObject); begin ExtractIconsFromWindows('C:\Icones'); end; end. Abraço

veja qual versão do LibXml2 voce precisa https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://xmlsoft.org/downloads.html&prev=search abraço

Já te passei exemplos para fazer isso... http://www.hardware.com.br/comunidade/ler-arquivos/1061210/ mas vai um exemplo pronto using System; namespace LerTexto { public class LerTexto { public static TextFile Arq; public static String Arqorigem; public static String Linha; public static int inicio; public static int fim; public static int n; void run() { Arqorigem = Trim("c:\\TextoC.txt"); AssignFile(Arq, Arqorigem); Reset(Arq); ReadLn(Arq, Linha); inicio = 0; fim = 0; n = 0; while (! eof(Arq)) { Readln(Arq, Linha); if (pos("MWTTanDeltaValues=", linha) > 0) { inicio = 1; } if (pos("MWTTanDeltaTimeValues=", linha) > 0) { fim = 1; } if ((inicio == 1) && (fim != 1)) { n = n + 1; if (n >= 2) { Edit1.Text = Edit1.Text + linha; } } } CloseFile(Arq); } public static void Main(string[] args) { LerTexto myApp = new LerTexto(); myApp.run(); } } } Não testei, mas a lógica está correta resultado no Edit1 ( uma unica linha com os valores ) 27.5766;27.5707;27.3737;26.6112;26.0126;26.2416;26.1120;26.1621;25.7420;25.9710;25.6238;25.7683;25.8689;26.1269;26.1321;26.2643;25.7848;25.1501;25.3091;25.0000;25.3175;25.5920;24.8733;24.6167;24.6299;24.7430;25.4183;25.9896;25.4958;25.4259;26.4650;25.7657;30.0259;30.5261;30.2207;30.7683;30.5524;31.4316;30.5092;31.2188;31.3513;31.4804;31.1870;31.5287;31.2671;30.7482;29.5514;28.6546;29.6851;29.2009;29.2151;29.1309;29.1466;33.0232;31.8877;30.4890;26.8053;27.0559;26.8480;25.6997;25.8613;26.7863;26.0611;26.7878;27.2462;25.6071;25.9075;25.9302;25.8017;26.8502;26.7850;26.3517;25.5865;26.1033;25.8408;26.2310;25.0309;23.9557;24.0468;24.0217;23.7751;24.5628;24.3670;24.3429;25.5378;27.6765;24.4876;24.7278;23.9403; veja esse comando: http://www.cplusplus.com/reference/string/string/find/ abraço

Se voce colocar a solução, ajuda outros membros com o mesmo problema. abraço

exemplos: fileName = "C:\text.txt" fileNo = FreeFile 'Get first free file number Open fileName For Input As # fileNo Do While Not EOF ( fileNo ) Line Input # fileNo , textRow textData = textData & textRow Loop Close # fileNo http://www.excel-easy.com/vba/examples/read-data-from-text-file.html https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://codevba.com/office/read_text_file_line_by_line.htm&prev=search https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://www.homeandlearn.org/open_a_text_file_in_vba.html&prev=search abraço

essa mensagem de erro, ocorre quando o programa ( PhotoShop ) requer mais memória para trabalhar e não tem. voce pode verificar isso no Gerenciador de Tarefas do Windows ( Ctrl + Alt + Del ) uma solução é voce aumentar a memoria RAM do pc outra solução é excluir o arquivo de configurações do PhotoShop http://www.techtudo.com.br/dicas-e-tutoriais/noticia/2014/09/como-resetar-o-photoshop-para-eliminar-bugs-e-erros-persistentes.html ou ainda tentar usar outra versão https://helpx.adobe.com/br/photoshop/kb/legacy-version-updates.html abraço

me passa o link de onde voce baixou os componentes do indy 10

SSL IOHandler is required for this setting O SSL IOHandler é necessário para esta configuração veja se esse link te ajuda na configuração https://stackoverflow.com/questions/11844630/delphi-ssl-tcp-communication-with-indy-components abraço

esse erro diz que voce não conseguiu efetuar a conexão com o servidor ou banco de dados mude para a versão do Indy 10 http://www.indyproject.org/kb/index.html?howdoiuseftpwithssl.htm outras possibilidades para o erro https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://support.moonpoint.com/os/windows/win7/FTP_Server/&prev=search https://docs.microsoft.com/en-us/iis/configuration/system.applicationhost/sites/sitedefaults/ftpserver/security/ssl https://support.managed.com/kb/a1985/ftp-error-could-not-connect-to-server-534-policy-requires-ssl.aspx abraço

TStringReader faz parte do pacote da rtl250.bpl disponivel no Delphi For.NET e do Delphi XE7 em diante ou voce tenta baixar o arquivo da Net ou faz uma mudança no código para não usar o TSringReader exemplo: uses StrUtils; procedure TForm1.Button1Click(Sender: TObject); var total:integer; lReader: String; linha,procura:string; begin IdHTTP1 := TIdHTTP.Create(nil); IdHTTP1.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0'; lReader := (IdHTTP1.Get(zquery1.FieldByName('http://ondequeroir.com').AsString)); procura:='#CC0000;">'; repeat linha := lReader; if AnsiContainsStr(linha,procura) then begin //faz a as tarefas break; end; until lReader = Null; showmessage('terminei'); end; abraço

link corrigido: http://forums.devshed.com/delphi-programming-90/ abraço

ok... as vezes voce tem que esfriar a cuca para poder raciocinar com mais clareza abraço

ok... vamos tentar esclarecer um pouco mais pelo que eu entendi voce quer usar a sua constante array ( 16, 64,112 ... etc ) para procurar esse valor dentro de um arquivo binario e extrair dele a string entre esses pontos ... seria isso ? seu arquivo binário é muito grande ?

preciso de um exemplo, para entender o que voce precisa

se voce quer trabalhar com programação, escolha linguagens que estão em alta no mercado entretanto, voce deve definir o ramo de atividade nessa área, pois existem varias opções como exemplo meu, passei por varias linguagens com o passar do tempo ... e muitas delas hoje já não são mais utilizadas olhe no Forum e observe quais são os Foruns que mais tem posts .. são estes que o pessoal tem mais interesse de aprendizado e comercial. abraço

Com relaçao ao erro: "Project Project1.exe elevou a classe de exceção EInvalidOperation com a mensagem '' '' 'Não é possível fazer uma janela visível modal' '' '. Processo parado. Use o passo ou Executar para continuar." form1.hide; aqui voce não esta fechando o Form, está apenas escondendo ele ( continua ativo mas escondido ) form 2.showModal; o showmodal não permite que voce abra outro Form até que ele seja fechado OBS: ou voce deixa o Form apenas como Show ou fecha o que voce esta usando quando for abrir outro abraço

não existe diferença em termos de processamento .. é somente outra maneira de se programar para obter o mesmo resultado mas só para tirar a sua duvida Items.IndexOf Retorna a posição da string na lista pelo valor do indice ou seja, voce esta apenas suprimindo o uso de outro indice para pegar a posição da string na lista abraço

veja a função Hash em python http://www.bogotobogo.com/python/python_hash_tables_hashing_dictionary_associated_arrays.php abraço

exemplo: http://www.cplusplus.com/reference/istream/istream/read/ abraço

exemplo: procedure TForm1.BitBtn1Click(Sender: TObject); var i, j : integer; begin for I := 0 to ListBox1.Items.Count -1 do for j := 0 to CheckListBox1.Items.Count -1 do if CheckListBox1.Items.Strings[j] = ListBox1.Items.Strings[i] then CheckListBox1.Checked[j] := true; end; CheckListBox ---- ListBox X AAA AAA BBB CCC X CCC EEE DDD X EEE OBS: O código está em um botão, mas não coloque no evento OnCreate e sim no OnActive Para voce entender: voce faz a leitura do conteudo de um indice do ListBox e com depois varre todos os indices do CheckListBox achando o mesmo valor, voce marca o CheckListBox pelo seu proprio indice abraço