Jhonas

Se eu entendi bem, no delphi 7 o erro não ocorre e no delphi 2010 sim primeiro que a migração do delphi 7 para o delphi 2010, não é tão simples assim... a versão do Indy para o delphi 2010 é a versão 10.1.5 e os componentes do indy da versão do delphi 7 não podem ser usados na versão do delphi 2010. segundo... o erro reporta que não há versão sobrecarregada ( ou seja... em cima de outra ) e que não pode ser chamada com esses argumentos. OBS: para um maior entendimento do seu código, não poste somente parte dele, pois fica dificil analisar abraço

Como fazer um goto no delphi Tem exemplo no help do delphi Exemplo: label StartHere; ... ... ... StartHere: Beep; ... ... ... goto StartHere; creates an infinite loop that calls the Beep procedure repeatedly. Aditionally, it is not possible to jump into or out of a try/finally or try/except statement. The goto statement is generally discouraged in structured programming. It is, however, sometimes used as a way of exiting from nested loops, as in the following example. procedure FindFirstAnswer; var X, Y, Z, Count: Integer; label FoundAnAnswer; begin Count := SomeConstant; for X := 1 to Count do for Y := 1 to Count do for Z := 1 to Count do if ... { some condition holds on X, Y, and Z } then goto FoundAnAnswer; ... {code to execute if no answer is found } Exit; FoundAnAnswer: ... { code to execute when an answer is found } end; abraço

se voce não usou um instalador para o programa, o arquivo não foi junto, por isso voce deve copia-lo para o outro micro coloque o arquivo na pasta system32 do windows, ou na propria pasta do programa abraço

s=0; i=0; while teta~=2, s=100+s; veja que o valor de s nunca altera ... será sempre 100 abraço

voce perdeu o arquivo, ou o caminho para ele não existe mais primeiro verifique se o arquivo esta na pasta Projects > Bpl se estiver, verifique em Menu > Tools > Environment Options > Library se não estiver, então baixe o arquivo e copie para a pasta do Delphi > Projects > Bpl Download do arquivo http://www.down-dll.com/index.php?file-dow...mponent-Package abraço

Pelo que vi, voce não recebeu resposta nos outros foruns .... no entanto voce postou comandos diferentes anexo.ContentType := 'application/pdf; name=' + ExtractFileName(anexoCaminho); anexo.ContentType := getTipoMIME(ExtractFileExt(anexoCaminho))+ ';name='+ ExtractFileName(anexoCaminho); o porque de aparecer no Gmail ou Hotmail com name="x.pdf" anexo.ContentType := 'application/pdf; name=' + 'x.pdf'; ============================================= percebeu onde está o problema ? abraço

seu link mostra isso

veja http://www.mathworks.com/help/techdoc/visu...e/f4-48862.html abraço

exemplo: function out=ABC(Xx) [Y TXx]=immoment(Xx); TXx A=imread('D:\matlab\work\image\A.bmp'); %figure,imshow(A); [Y,TA]=immatrix(A); %TA B=imread('D:\matlab\work\image\B.bmp'); %figure,imshow(B); [Y,TB]=immatrix(B); %TB C=imread('D:\matlab\work\image\C.bmp'); %figure,imshow(C); [Y,TC]=immatrix(C); %TC D=imread('D:\matlab\work\image\D.bmp'); %figure,imshow(D); [Y,TD]=immatrix(D); %TD E=imread('D:\matlab\work\image\E.bmp'); %figure,imshow(E); [Y,TE]=immatrix(E); %TE F=imread('D:\matlab\work\image\F.bmp'); %figure,imshow(F); [Y,TF]=immatrix(F); %TF G=imread('D:\matlab\work\image\G.bmp'); %figure,imshow(G); [Y,TG]=immatrix(G); %TG H=imread('D:\matlab\work\image\H.bmp'); %figure,imshow(H); [Y,TH]=immatrix(H); %TH I=imread('D:\matlab\work\image\I.bmp'); %figure,imshow(I); [Y,TI]=immatrix(I); %TI J=imread('D:\matlab\work\image\J.bmp'); %figure,imshow(J); [Y,TJ]=immatrix(J); %TJ K=imread('D:\matlab\work\image\K.bmp'); %figure,imshow(K); [Y,TK]=immatrix(K); %TK L=imread('D:\matlab\work\image\L.bmp'); %figure,imshow(L); [Y,TL]=immatrix(L); %TL M=imread('D:\matlab\work\image\M.bmp'); %figure,imshow(M); [Y,TM]=immatrix(M); %TM N=imread('D:\matlab\work\image\N.bmp'); %figure,imshow(N); [Y,TN]=immatrix(N); %TN O=imread('D:\matlab\work\image\O.bmp'); [Y,TO]=immatrix(O); P=imread('D:\matlab\work\image\P.bmp'); [Y,TP]=immatrix(P); Q=imread('D:\matlab\work\image\Q.bmp'); [Y,TQ]=immatrix(Q); R=imread('D:\matlab\work\image\R.bmp'); [Y,TR]=immatrix(R); S=imread('D:\matlab\work\image\S.bmp'); [Y,TS]=immatrix(S); T=imread('D:\matlab\work\image\T.bmp'); [Y,TT]=immatrix(T); U=imread('D:\matlab\work\image\U.bmp'); [Y,TU]=immatrix(U); V=imread('D:\matlab\work\image\V.bmp'); [Y,TV]=immatrix(V); W=imread('D:\matlab\work\image\W.bmp'); [Y,TW]=immatrix(W); X=imread('D:\matlab\work\image\X.bmp'); [Y,TX]=immatrix(X); Y=imread('D:\matlab\work\image\Y.bmp'); [Y,TY]=immatrix(Y); Z=imread('D:\matlab\work\image\Z.bmp'); %figure,imshow(N); [Y,TZ]=immatrix(Z); %TZ TT=[TA;TB;TC;TD;TE;TF;TG;TH;TI;TJ;TK;TL;TM;TN;TO;TP;TQ;TR;TS;TT;TU;TV;TW;TX;TY;TZ]; %TT tt=['A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'I' 'J' 'K' 'L' 'M' 'N' 'O' 'P' 'Q' 'R' 'S' 'T' 'U' 'V' 'W' 'X' 'Y' 'Z']; for i=1:26 if (abs(TXx(3)-TT(i, 3))<0.05) %figure,imshow(Xx); fprintf('This is');%tt(i)); tt(i) break end end abraço

O mercado esta pedindo muito por AJAX, C++, Visual C++, JAVA, VB, Delphi entretanto isso depende muito para qual área é o seu interesse ... exemplos : Automação Comercial, Logística, RH, Advocacia, Clinicas e Hospitais, WebDesign ... etc Cada área, requer uma linguagem especifica e que essa linguagem de programação ofereça todo o suporte para o desenvolvimento. abraço

exemplo: <html> <head> <script type="text/javascript"> function updateFrameCheck(childName, status) { var x = document.getElementById("frameThing"); var y = x.contentDocument.getElementById("formIdFromIframe"); y.elements[childName].checked = status; } </script> </head> <body> <iframe src="otherpage.htm" id="frameThing"></iframe> <input type="checkbox" onclick="updateFrameCheck(this.name, this.checked)" name="childName" /> </body> </html> veja tambem http://pt.w3support.net/index.php?db=so&id=580941 abraço

voce não mencionou qual Base de Dados, então veja esse para MYSQL http://www.kitebird.com/articles/pydbapi.html abraço

Para quem trabalha como WebDesign muito bom, entretanto não é gratuito .... e na net voce encontra outras opções tão boas quanto essa e de graça abraço

Da uma lida no Manual http://www.macoratti.net/crys_rpt.htm abraço

veja http://www.veloso.adm.br/artigoCMC7.asp http://www.linhadecodigo.com.br/Dica.aspx?id=1119 http://www.planetadelphi.com.br/dica/6949/...dores-do-cheque http://www.activedelphi.com.br/forum/viewt...2a04c470804b6d3 abraço

se eu entendi bem, voce tem um procedimento para salvar apenas a compra, e outro para salvar os itens ? se for assim, voce tem que usar o rollback para os 2 procedimentos OBS: eu normalmente uso um botão OK ( para gravar ) e um botão Cancel no qual eu executo esse procedimento quando não quero que os dados sejam gravados. abraço

o link está correto, mas voce pode tentar nesse http://scriptbrasil.com.br/forum/index.php...mp;#entry586844 abraço

OBS: Sempre faça uma pesquisa no Forum, antes de postar a sua dúvida http://scriptbrasil.com.br/forum/index.php?showtopic=145896 http://www.macoratti.net/crys_rpt.htm abraço

veja http://www.delphibr.com.br/artigos/transacoes.php http://www.artigonal.com/programacao-artig...db-4920432.html abraço

exemplo: procedure TForm1.Button1Click(Sender: TObject); var arquivo : TStringList; begin arquivo := TStringList.Create; try //Carregar o arquivo arquivo.LoadFromFile('c:\backup.txt'); //Adicionar dados no arquivo arquivo.insert(0,'##LANÇADO'); //Salvar o arquivo arquivo.SaveToFile('c:\backup.txt'); finally arquivo.Free; end; end; abraço

veja esse exemplo... é só substituir o arquivo INI pelo DAT http://scriptbrasil.com.br/forum/index.php...st&p=586844 abraço

Para restaurar o Backup do MYSQL via código winexec('cmd /c mysql -u root -pSenhadoBanco -h localhost NomedoBanco < c:\Teste\Bakup01.sql', SW_HIDE); abraço

Eu não reparei, mas veja se é necessario instalar tambem o SourceConneXion (Source Control integration for RAD Studio, Delphi and C++Builder): abraço

Um exemplo bem simples {$IFDEF SYN_COMPILER_6} uses ComObj, Outlook2000; {$ELSE} uses ComObj, Outlook8; {$ENDIF} procedure NewContactItem; var OutlApp: OutlookApplication; OutlNamespace: Namespace; ContactFolder: MAPIFolder; Contact: ContactItem; begin OutlApp := CoOutlookApplication.Create; OutlNamespace := OutlApp.GetNameSpace('MAPI'); ContactFolder := OutlNamespace.GetDefaultFolder(olFolderContacts); Contact := OutlApp.createitem(olContactItem) as ContactItem; Contact.LastName := 'User'; Contact.FirstName := 'Jack'; Contact.HomeAddressStreet := 'Street'; Contact.HomeAddressCountry := 'Germany'; Contact.HomeAddressPostalCode := '12345'; Contact.HomeAddressCity := 'City'; Contact.HomeTelephoneNumber := '+49(0)1239/23903'; Contact.HomeFaxNumber := '+49(0)1239/23904'; Contact.Email1Address := 'info@user.com'; Contact.Save; OutlApp := nil; end; procedure TForm1.Button1Click(Sender: TObject); begin NewContactItem; end; abraço

Amigo, tem varios exemplos na internet veja http://www.google.com.br/search?hl=pt-BR&a...3265l2-5.6l11l0 abraço