Jhonas

com esse exemplo voce vai saber como proceder #include <stdio.h> #include <stdlib.h> #include <string.h> char* retira_ocorrencias(char* str, char* substr) { int i = 0; int j = 0; int f = 0; int tam = strlen(str); int tamsub = strlen(substr); char *ret = (char*) malloc(tam); while(i < tam) { while(str == substr[j]) { i++; j++; if(j >= tamsub) { break; } } if(j < tamsub) { i = i - j; } ret[f] = str; i++; f++; j = 0; } ret[f] = '{FONTE}'; return ret; } int main() { char* str = (char*) malloc(100); char* sub = (char*) malloc(100); printf("Entre com a string: "); gets(str); printf("Entre com a substring: "); gets(sub); char* resultado = retira_ocorrencias(str, sub); printf("%s\n",resultado); return 0; } abraço

veja se esses links te ajudam http://www.portalandroid.org/comunidade/viewtopic.php?f=7&t=17389&hilit=json&start=0 http://netfeijao.blogspot.com.br/2009/12/consumindo-e-testando-clientes-rest.html http://www.linhadecodigo.com.br/artigo/2059/web-services-rest.aspx abraço

Como registrar e desregistrar uma DLL no Windows O processo é bem simples: Menu Iniciar -> Executar e digitar o comando abaixo: Para Registrar: regsrv32 "CAMINHO\NOME DO ARQUIVO.DLL" regsvr32 "C:\WINDOWS\system32\Arquivo.dll" Para Desregistrar: regsvr32 "CAMINHO\NOME DO ARQUIVO.DLL" -u regsvr32 "C:\WINDOWS\system32\Arquivo.dll" -u abraço

voce tem que usar outro componente, pois o TCalendar não tem esse recurso veja outros componentes possiveis http://www.torry.net/pages.php?id=293 abraço

leia o artigo desse link, vai te ajudar https://www.google.com.br/?gfe_rd=cr&ei=r4p6U52xMImFqQWx0IHYBA#q=Recep+%3D+class%28TRemotable%29+delphi abraço

Quanto a dll como poderia saber se o problema esta nela ? voce pode interromper o processo da dll no gerenciador de tarefas do windows e executar o programa ou voce pode baixar outra dll nesse link para ver ser resolve o problema digite o nome da dll no link para fazer o download http://www.my-dll.com/index.php ============================================================= outras informações que podem ajudar http://www.solvusoft.com/en/files/missing-not-found-error/dll/windows/borland-corporation/datasnap-direct-drivers/dbexpmss-dll/ http://reportman.sourceforge.net/doc/openingdatatrouble.html https://forums.embarcadero.com/thread.jspa?threadID=79504 abraço

SQL State: 42000, SQL Error Code: 8179 Não foi possível encontrar a instrução preparada com o identificador -1 OBS: Verifique a instrução SQL SQLSTATE fornece informações detalhadas sobre a causa de um aviso ou erro. Para os erros que ocorrem na fonte de dados detectados e retornado pelo SQL Server, o driver ODBC SQL Server Native Client mapeia o número de erro nativo devolvido ao SQLSTATE apropriado. Se um número de erro nativo não tem um código de erro ODBC para mapear os SQL Server ODBC Native Client o drive retorna SQLSTATE 42000 ("erro de sintaxe ou violação de acesso"). Para erros que são detectados pelo controlador, o driver ODBC SQL Server Native Client gera o SQLSTATE apropriado. 42000 Erro de Sintaxe ou Violação de Acesso esse erro pode ser gerado pelos comandos SQLBulkOperations SQLExecDirect SQLExecute SQLParamData SQLPrepare SQLSetPos ou ainda pelo dbexpmss.dll (ver 7.1.1523.17956) ... verifique a versão apropriada para o sql server 2008 abraço

voce deve usar OpenDialog1.Filter := 'Excel files (*.xlsx)|*.xlsx'; abraço

No exemplo que te passei usa componente sim ... então vamos por partes no arquivo config.ini voce coloca o caminho para o banco de dados da sua aplicação Config.Ini DriverName=Firebird Database=C:\Sistemas\Automacao\ADM\BD\pdv.FDB RoleName=RoleName User_Name=sysdba Password=disk1234 ServerCharSet=win1252 SQLDialect=3 ErrorResourceFile= LocaleCode=0000 BlobSize=-1 CommitRetain=False WaitOnLocks=True TransIsolation=ReadCommited Trim Char=False ============================================================== depois no form voce coloca um botão para que ao ser executado o código, o arquivo config ini seja carregado e executado procedure TForm1.Button1Click(Sender: TObject); begin try TrocarCaminhodoBanco; // chama a rotina para trocar o caminho do banco de dados SQLConnection1.Connected := false; SQLConnection1.ConnectionName:='Firebird'; SQLConnection1.LoadParamsOnConnect:=False; SQLConnection1.LoadParamsFromIniFile('c:\config.ini'); SQLConnection1.DriverName:='Firebird'; SQLConnection1.LoginPrompt:=false; SQLConnection1.Connected := true; ShowMessage('Conexão realizada com sucesso.'); //SimpleDataSet1.Active := false; //SimpleDataSet1.Active := true; finally SQLConnection1.Free; end; end; ============================================================================= Uma vez constatado que o banco de dados foi conectado, voce troca o caminho para outro banco de dados e testa novamente ( faz isso na mão mesmo ) uma vez que tenha funcionado, agora voce vai usar uma rotina para trocar o caminho para o banco de dados que esta no arquivo config.ini procedure TrocarCaminhodoBanco; begin // rotina para trocar o caminho do banco de dados do arquivo Config.ini // aqui voce le a linha onde esta o caminho para o banco de dados AssignFile(Arquivo, 'C:\config.ini'); Reset(Arquivo); while not EOF(Arquivo) do begin l := l + 1; ReadLn(Arquivo, Line); if l = 2 then local := trim(line); showmessage(local); // aqui voce troca o caminho para o banco de dados e salva o arquivo // Edit1.text := 'Database=D:\Sistemas\Automacao\ADM\BD\pdv1.FDB' writeln(arquivo, Edit1.Text); // insere dados no arquivo end; CloseFile(Arquivo); end; ====================================================================== OBS: seria isso .... mas me lembrei de uma coisa importante que aconteceu comigo as vezes o proprio componente pode gerar esse tipo de problema, então voce deve deletar o componente do form e adiciona-lo novamente . abraço

E o delphi está me dando esse erro. dbx error: Database must be specified. dbx erro: Base de dados deve ser especificado ------------------------------------------------------------------- com relação a pergunta anterior ... a lógica não é a mesma não, tem ligeiras diferenças da maneira como te passei esta funcionando ... sugiro a voce começar do zero novamente ( a rotina de conexão do banco de dados ) ou trocar por outro componente de conexão com o banco de dados veja se ajuda esses links https://www.darcweb.com.br/posts/view/2/31/Conectando+sua+aplicacao+em+Delphi+com+banco+de+dados+FireBird.dhtml abraço

isso só acontece se seu delphi não foi registrado ... ou voce está usando uma versão Trial tipo SERIAL DELPHI 2010: HAAL-DANSGN-FZR5AG-M3BS abraço

usando o help do componente voce deve usar os comandos DisableSource e EnableSource ( desabilitar ou habilitar a camera ) EnableSource permite habilitar ou ativar a fonte para transferir imagens adquiridas. função EnableSource ( ShowUI , Modal : Boolean) : Boolean; descrição Este método faz o mesmo que a propriedade Enabled . Ele diferença é que em vez de ler ShowUI e Modal propriedades do objeto , ele usa os do parâmetro. O método inicia o processo de transferência da imagem da fonte para a aplicação. Se o parâmetro ShowUI estiver definido como FALSE, nenhuma interface de usuário deve ser exibida e a imagem será transferido automaticamente. Se o parâmetro Modal é definido como TRUE , o formulário de candidatura atual será desativado até que a janela de origem esteja fechado. O método também define a propriedade Enabled para TRUE para dizer à aplicação que a fonte está trabalhando atualmente . A imagem será transferida para o aplicativo usando o método selecionado na propriedade TransferMode através dos eventos do componente TDelphiTwain . Leia mais sobre os diferentes modos de transferência aqui. No caso do usuário cancelar os diálogos de origem , o evento OnAcquireCancel será chamado para notificar o aplicativo . Após a interface do usuário estar fechada ( ou Cancelada ) ou a imagem ser transferida , a propriedade irá ser re-definida para FALSE e o evento OnSourceDisable será chamado. valores de retorno Retorna true ou false se ele foi ou não ativada com sucesso. abraço

veja no help do componente Example using event OnTwainAcquire and Enabled property This event receives the final images when transference mode is set to ttmNative or ttmMemory (transfermode property). To run this example, create a new application (File > New Application) and add a TImage, a TButton and a TDelphiTwain component in the form. When the user clicks over the button, it will acquire image from the first twain source avaliable. To do so, double-click over the TButton control to edit the event. procedure TForm1.Button1Click(Sender: TObject); begin //Loads library and source manager. In case the //LibraryLoaded value continues to be FALSE, it //means that twain is not installed, so exit DelphiTwain1.LibraryLoaded := TRUE; DelphiTwain1.SourceManagerLoaded := TRUE; if DelphiTwain1.LibraryLoaded = FALSE then Exit; //If there is no sources, also exit if DelphiTwain1.SourceCount = 0 then exit; //Acquire from the first source DelphiTwain1.Source[0].TransferMode := ttmMemory; DelphiTwain1.Source[0].Loaded := TRUE; DelphiTwain1.Source[0].Enabled := TRUE; end; Also edit TDelphiTwain component OnTwainAcquire event: procedure TForm1.DelphiTwain1TwainAcquire( Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean); begin //Copies the Image parameter to the TImage Image1.Picture.Assign(Image); //We only want the first image Cancel := TRUE; end; Now, execute the application and click over the TButton control. Nesse exemplo, voce coloca a imagem em um componente TImage do delphi ... depois é so salvar a imagem desse componente ================================================================================================= Pode usar esse tambem Example using file transference In order to run this example, create a new application (File > New Application). In the new created form, add a TButton and TDelphiTwain component anywhere in the form. Double-click on the button to edit the OnClick event: procedure TForm1.Button1Click(Sender: TObject); var SourceIndex: Integer; begin //Try loading the library if DelphiTwain1.LoadLibrary then begin //Same as SourceManangerLoaded := TRUE DelphiTwain1.LoadSourceManager(); //Select the source SourceIndex := DelphiTwain1.SelectSource(); if SourceIndex <> -1 then with DelphiTwain1.Source[sourceIndex] do begin //Prepare for transfering using ttmFile mode Loaded := TRUE; TransferMode := ttmFile; Enabled := TRUE; end else ShowMessage('Cancelled') end else ShowMessage('Twain not installed') end; Now edit TDelphiTwain events OnSourceSetupFileXfer and OnSourceFileTransfer: procedure TForm1.DelphiTwain1SourceSetupFileXfer (Sender: TObject; const Index: Integer); begin delphitwain1.source[index].SetupFileTransfer( IncludeTrailingBackslash(getcurrentdir) + 'image.bmp',tfBMP); end; procedure TForm1.DelphiTwain1SourceFileTransfer( Sender: TObject; const Index: Integer; Filename: TW_STR255; Format: TTwainFormat; var Cancel: Boolean); begin ShowMessage('File saved to ' + filename); end; ============================================================================================= abraço

faça as alterações que forem necessarias a partir disso amigo, se voce quer o ID do imóvel cadastrado, basta alterar o código para receber o valor do ID no lugar do nome da foto veja que nesse comando StrPCopy(Destino, Diretorio); o certo é : StrPCopy(Destino, Diretorio + '\'+ ExtractFileName(OpenPictureDialog1.FileName)); pois o nome do arquivo Origem deve estar tambem no Destino abraço

tente usando essa lógica Config.Ini DriverName=Firebird Database=C:\Sistemas\Automacao\ADM\BD\pdv.FDB RoleName=RoleName User_Name=sysdba Password=disk1234 ServerCharSet=win1252 SQLDialect=3 ErrorResourceFile= LocaleCode=0000 BlobSize=-1 CommitRetain=False WaitOnLocks=True TransIsolation=ReadCommited Trim Char=False ============================================================== procedure TForm1.Button1Click(Sender: TObject); begin try SQLConnection1.ConnectionName:='Firebird'; SQLConnection1.LoadParamsOnConnect:=False; SQLConnection1.LoadParamsFromIniFile('c:\config.ini'); SQLConnection1.DriverName:='Firebird'; SQLConnection1.LoginPrompt:=false; SimpleDataSet1.Active := false; SimpleDataSet1.Active := true; finally SQLConnection1.Free; end; end; ============================================================================= procedure TForm1.BitBtn1Click(Sender: TObject); begin SQLConnection1.Connected := false; SQLConnection1.Connected := true; ShowMessage('Conexão realizada com sucesso.'); end; ============================================================================== procedure TrocarCaminhodoBanco; begin SQLConnection1.Connected := false; // rotina para trocar o caminho do banco de dados do arquivo Config.ini SQLConnection1.Connected := true; end; ====================================================================== abraço

veja esse post https://www.scriptbrasil.com.br/forum/topic/129362-pagecontrol/?p=519519 exemplos http://www.theclub.com.br/Restrito/Revistas/201208/delp0812.aspx http://www.lucianopimenta.com/post.aspx?id=111 http://delphi.about.com/od/tpagecontrol/ http://www.askingbox.com/tutorial/delphi-lazarus-create-tabsheet-on-pagecontrol-dynamically http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/ComCtrls_TPageControl.html abraço

vocês conhecem alguma alternativa que seja indenpendente veja esses: Avant Browser http://avant-browser.softonic.com.br/ Spark Browser http://avant-browser.softonic.com.br/ Web Freer http://download.cnet.com/Web-Freer/3000-2356_4-75914070.html Torch-Browser http://download.cnet.com/Torch-Browser/3000-2356_4-75740051.html SlimBrowser http://download.cnet.com/SlimBrowser/3000-2356_4-10101563.html?tag=dre Acoo-Browser http://download.cnet.com/Acoo-Browser/3000-2356_4-10395509.html?tag=dre abraço

nesse tutorial ele cria a conexão dinamicamente acho que voce esta começando a desvendar o misterio .... rs abraço

Não tem algum componente que faça isso ? O TabControl é usado para construir abas isoladas, ou seja, abas não conectadas com páginas. O componente PageControl, ao invés, é usado para construir um fichário completo, onde as páginas são componentes TabSheet. O PageControl é capaz de, sozinho, oferecer uma interface completa do tipo fichário. TabSet (componente Visual) Cria abas de um Notebook para dar aparência de páginas (Propriedades relevantes) Tabs, TabIndex , Align Notebook (Componente Visual) Fornece uma pilha de diversas páginas (Utilizadas em combinação com o componente TabSet) ( Propriedades relevantes ) Pages, PageIndex, ActivePage, Metodo OnClick Tabbed Notebook (Componente Não Visual) Cria um quadro de diálogo com diversas páginas com abas para agrupar informações ( Propriedades relevantes ) ActivePage, Pages, PageIndex. TabFont, TabsPerRow e Metodo: GetIndexForPage e SetTabFocus OBS: Atualmente os componentes TabControl e PageControl da página Win32 da Paleta de componentes substitui com vantagens os componentes TabSet, Notebook e TabbedNotebook exemplos: http://cc.codegear.com/Item/25053 abraço

já que o compilador aponta erro, mas não consigo descobrir aonde é. poste o erro

leia o artigo a paritr desse ponto ( com atenção ) será nossa a responsabilidade de passar um Arquivo Ini Válido , para isto iremos carregar este Arquivo ini para a propriedade params do SqlConexao . Para fazer isto temos os métodos Params.LoadFromFile ou LoadParamsFromIniFile . Há uma diferença sutil e significativa entre eles . OBS: como eu disse, testei e funcionou... então voce deve verificar onde esta o problema no seu código Somente como sugestão: tente refazer a partir do zero caso não encontre o problema abraço

fiz o teste agora com o Firefox 28 e funcionou normal tambem veja se não é algum plugin que esta desatualizado no seu navegador abraço

siga as instruções desse link ... testei e funcionou corretamente http://marcosalles.wordpress.com/2011/02/10/configurar-os-parametro-na-conexao-database-arquivo-ini-dbexpress/ abraço

bem, creio que voce esta alterando esse caminho quando vai trocar o banco de dados ... certo ? Database=C:\Sistemas\Automacao\ADM\BD\pdv.FDB suponho que na maquina cliente o caminho seja o mesmo .... na sua maquina de desenvolvimento o problema não ocorre porque, mesmo que o banco esteja em outro diretorio, ainda assim sera c: ou d: o caminho do banco mas se voce estiver em rede, a definição do caminho começa por \\ nomedocomputador\ e não c: voce deve verificar se realmente o novo caminho foi alterado antes de abrir novamente a conexão vou fazer uns testes aqui para ver se consigo repetir o seu problema abraço

troque a letra ( i ) da variavel desse for por outra letra e veja se resolve while (p2!=1); for(i=0;i<20;i++) abraço