Ronaldo Lanhellas

Opa consegui fazer funcionar na minha casa, porem no trabalho eu não consigo fazer funcionar de forma nenhuma ! ai meu deus qual será o problema

#include <stdio.h> #include <conio.h> #include <stlib.h> int main(){ FILE *arquivo; char letra; if ((arquivo = fopen("C:\\prototipoc\\prototipo.txt","r"))==NULL){ printf("Arquivo não pode ser aberto"); getch(); } letra = getc(arquivo); while (letra != EOF) { printf("%c",letra); letra = getc(arquivo); } getch(); } Este é o corpo do meu programa, tenho quase certeza que erro esta no caminho que estou mandando abrir C:\\prototipoc\\prototipo.txt, pois se eu por apenas o C:\\ ele abre normalmente, agora se acoplar qualquer pasta que seja no comando ele já não funciona, agora não sei o porque.

porfavor galera vamos lá, quase 2 dias nesta luta já

Bom, estou utilizando a seguinte estrutura para carregar fotos com campo varchar, eu aponto no campo o caminho onde a foto esta através do comando: procedure TFrmPastores.ImageDblClick(Sender: TObject); begin inherited; if OpenDialog.Execute then begin cdsPASTORESFILHO1_NOME := OpenDialog.FileName; Image.Picture.LoadFromFile(OpenDialog.FileName); end; end; porém, o cdsPASTORESFOTO_PASTOR está dizendo que não foi declarado, o cdsPASTORES (é o nome do meu ClientDataSet) e o FOTO_PASTOR (é o nome do campo onde fica o caminho da foto).

alguém poderia me ajudar porfavor :(

sim meu amigo , é claro que existem

bom coloquei o seguinte arquivo = fopen("VNC\\ConfRegUser.txt","r"); mais ae não encontra o arquivo !

esta normal... dei um dir e ele aparece.. obs: se eu fizer fopen("C:\ConfRegUser.txt","r"); ele abre normal, só não abre se tiver dentro de alguma pasta , porem eu tenh oque por ele dentro da pasta VNC por uma configuração que estou fazendo

estou usando a seguinte sintaxe: arquivo = fopen("C:\\VNC\\ConfRegUser.txt","r"); o programa compila e executa normal mais não abre o arquivo ConfRegUser.txt que eu criei !

PELO Contrario amigo, eu compreendi o erro só não encontrei onde faltava esse '(' veja só coloquei igualzinho voce me disse Ds.DataSet.Filter := 'Upper('+ Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName +') IN ('+ EdtValor.text + ')'); mais ele mostra como se estivesse errado no ultimo parenteses, e de fato tem um parenteses a mais, porem se eu por Ds.DataSet.Filter := 'Upper('+ Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName +') IN ('+ EdtValor.text + '); também não funciona

coloquei o codigo da seguinte forma: Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') IN '+QuotedStr(UpperCase(EdtValor.text)); porém ao digitar o numero que desejo na editbox e clicar em pesquisar ele mostra o seguinte erro: expected '(' but 32 found , no caso o 32 é o numero que eu digitei na editbox, se eu digitar 45 e clicar em pesquisar ele mostra o erro expected '(' but 45 found

procedure TfrmModelo.btnpesquisarClick(Sender: TObject); var Code, I: Integer; begin if (cbxcampo.text <> EmptyStr) and (EdtValor.Text <> EmptyStr) then val(edtvalor.Text,Code,I); if Code > 0 then begin Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') IN '+QuotedStr(UpperCase(EdtValor.text)+'%'); Ds.DataSet.Filtered := True; if not Ds.DataSet.Active then Ds.DataSet.Open; end else begin Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') LIKE '+QuotedStr(UpperCase(EdtValor.text)+'%'); Ds.DataSet.Filtered := True; if not Ds.DataSet.Active then Ds.DataSet.Open; end; end; meu código ficou assin no final, ao procurar um número ele diz: '(' expected but "5%" found

não entendi o que esta linha faz: Val(edtvalor.Text,Code,I);

bom, ao executar o vnc pela primeira vez ele pede que o usuario escolha uma senha, tem como copiar de um outro pc o arquivo que fica configurado essa senha de forma que ele não peça ao abrir ? resumindo, onde fica o arquivo com as configurações do vnc (senha, portas, ip)

ok entendi e vou testar, porém tem ainda um problema a ser resolvido, no caso eu uso valores alfanumericos e numericos para pesquisa, por exemplo: se um usuario quiser pesquisar pela marca ela seleciona lá na combobox "MARCA" e no campo do editbox ele escreve a marca. Porém se o usuario quiser pesquisar pelo preço, ele seleciona preço no combobox e no editbox ele coloca o preço. Resumindo, eu teria que fazer um if else para valores alfanumericos e numericos, agora como testar se o campo a se pesquisado é alfanumerico ou numerico. mais ou menos assim: if "edtvalor.text tiver um valor numerico" then Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') IN '+'('+edtvalor.text+')'); else Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') LIKE '+'('+edtvalor.text+')'); o que ficararia no if ?

acabei de fazer um teste e indentifiquei o seguinte, quando faço uma pesquisaa em um EditBox com o valor string ele pesquisa normalmente, se eu usar um integer ele já não pesquisa e da este Type mismatch expression error.

como saber em qual linha ocorre o erro, pois quando dou um break ele não mostra a linha !

Bom, ao tentar consultar um valor no meu sistema que seja um inteiro, float ele me retorna o erro Type mismatch in expression, eu acho que o erro está na pesquisa pois olha o código: procedure TfrmModelo.btnpesquisarClick(Sender: TObject); begin if (cbxcampo.text <> EmptyStr) and (Edtvalor.Text <> EmptyStr) then begin Ds.DataSet.Filter := 'Upper('+Ds.DataSet.Fields[ListaField[cbxcampo.ItemIndex]].FieldName+') like '+QuotedStr(UpperCase(edtvalor.text)+'%'); Ds.DataSet.Filtered := True; if not Ds.DataSet.Active then Ds.DataSet.Open; end; end; Eu acho que na parte que esta edtvalor.text deveria ser algo que também aceitasse um inteiro ou float, não tenho certeza se é isto mesmo !

Constructor Create (AOwner: TComponent); override; gostaria de saber qual a função do AOwner, pos em certa parte do sistema o meu instrutor faz o seguinte: Create (AOwner); gostaria de saber também o que faz o "override" resumindo , o que este código faz

no aguardo por respostas !!!

resolvido , de fato era o que você falou, nome com maiusculo e outro minusculo, porem tambem faltava eu da um commit nos generators lá no firebird xD> obrigado pelo força

creio eu que o problema não esteja no insert, vou lhe explicar o que estou tentando fazer: criei uma function e uma procedure que tem os seguintes codigos respectivamente: function TDM.GenID(tablename: string): Integer; var Qry: TSQLQuery; begin Qry := TSQLQuery.Create(Self); Qry.SQLConnection := DBAcesso; Qry.SQL.Add('SELECT GEN_ID(GEN_'+tablename+'_ID,1) FROM RDB$DATABASE'); Qry.Open; Result := Qry.Fields[0].AsInteger; end; procedure TDM.GetID(DataSet: TDataSet); begin DataSet.Fields[0].AsInteger := GenID(Copy(DataSet.Name,4)); end; no meu evento OnCreate do DataModule eu faço o seguinte: procedure TDM.DataModuleCreate(Sender: TObject); var I: Integer; begin for I := 0 to Pred(ComponentCount) do if Components[I] is TClientDataSet then begin TClientDataSet(Components[I]).OnNewRecord := GetID; end; end; Resumindo, quando ele encontra um ClientDataSet no meu DataModule ele executa a procedure GetID, esta procedure pega o nome da tabela e executa a function GenID, tudo isso faz com que o seja executado o AutoIncremento na minha tabela antes que eu salve, apenas clicando no inserte e já gera um ID automático.

Ao dar um insert aparece a seguinte mensagem de erro: http://uploaddeimagens.com.br/imagem/index/erro_genid.jpg

resolvido !, eu estava digitando o nome da minha form errado

bom estou com o seguinte procedure no PRIVATE do meu form procedure GetID(DataSet: TDataSet); na aula que eu vi, o instrutor simplesmente implementou esta procedure na seção de IMPLEMATATION do form, gostaria de saber como fazer isso ?!