Ir para conteúdo
Fórum Script Brasil

Douglas Soares

Veteranos
  • Total de itens

    864
  • Registro em

  • Última visita

3 Seguidores

Sobre Douglas Soares

  • Data de Nascimento 12/11/1993

Contatos

  • MSN
    douglas-soares@live.com
  • ICQ
    0
  • Skype
    douglas.srs12

Perfil

  • Gender
    Male
  • Location
    Mogi Mirim - SP
  • Interests
    Delphi, php e JAVA...

Últimos Visitantes

4.684 visualizações

Douglas Soares's Achievements

0

Reputação

  1. Douglas Soares

    DLL

    Bom dia caros amigos! Como estão? Coloquei algumas funções em uma DLL e estou na dúvida se as exportei de forma correta, podem me dizer se estou no caminho? rs. library MinhaDll; uses ...; function ReHideWindowsCaption(tp: integer): pChar; begin ... end; exports ReHideWindowsCaption; begin end. Obrigado!
  2. Parabéns Jhonas! Mais do que merecido. B)
  3. Acho que consegui! #include <stdio.h> #include <stdlib.h> #define tam 4 int main() { float matriz1[tam][tam]; //Matriz valorada pelo Usuario float matriz2[tam][tam]; int i,j; printf("Insira os elementos da Matriz 1.\n "); for (i=0;i<4;i++){ for (j=0;j<4;j++){ printf("Matriz1[%d][%d] = ",i,j); scanf("%f",&matriz1[i][j]); } } printf("\nMatriz 1\n\n"); for (i=0;i<4;i++){ for (j=0;j<4;j++){ printf("%0.2f ",matriz1[i][j]); } printf("\n"); } for (i=0;i<4;i++){ for (j=0;j<4;j++){ matriz2[j][i] = matriz1[i][j]; } } printf("\nMatriz INVERTIDA\n\n"); for (i=0;i<4;i++){ for (j=0;j<4;j++){ printf("%0.2f ",matriz2[i][j]); } printf("\n"); } getch(); }
  4. Olá! Faculdade, Trabalhos, Problemas! rs, vamos lá. Vejam o código. #include <stdio.h> #include <stdlib.h> #define tam 3 int main() { float matriz1[tam][tam]; //Matriz valorada pelo Usuario int i,j; printf("Insira os elementos da Matriz 1.\n "); for (i=0;i<4;i++){ for (j=0;j<4;j++){ printf("Matriz1[%d][%d] = ",i,j); scanf("%f",&matriz1[i][j]); } } printf("\nMatriz 1\n\n"); for (i=0;i<4;i++){ for (j=0;j<4;j++){ printf("%f ",matriz1[i][j]); } printf("\n"); } getch(); } Devo criar outra Matriz de mesmo tamanho e colocar os valores da Matriz1 Invertidos, alguém pode me ajudar? Obrigado!
  5. Interessante, agora que você disse isso eu lembrei! No IBExpert (Administrador de bancos Firebird) também possui essa opção de escolher o charset ao conectar no banco! hehe
  6. Relaxa ahahah, precisando estou aqui :P.
  7. Realmente... sofri com isso também :(, tive que mudar o charset do banco, de cada tabela e de cada campo texto. Veja esse link: http://yoonkit.blogspot.com.br/2006/03/mysql-charset-from-latin1-to-utf8.html Abraços!
  8. Boa Tarde! :D Supondo que o componente dtChuvas seja um SQLQuery, insira sua SQL diretamente nele e em seguida aparecerão os Params do lado esquerdo no Object TreeView! Vá nos 3 parametros e coloque em DataType: ftInteger para o parametro milim e fazen, e no parametro dat coloque ftDate, após isso coloque em ParamType: ptInput para os 3 parametros. Agora basta limpar o SQL em sua rotina antes de adicionar sua query. var data : TDate; codFaz : String; begin codFaz := VarToStr(DBcbFazenda.KeyValue); With dtChuvas do begin data := StrToDate(MaskEditIni.Text); SQL.clear; //INSIRA ISSO SQL.Add('INSERT INTO chuva (ChData, ChMilim, ChFazCod)'); SQL.Add('VALUES (:dat, :milim, :fazen)'); ParamByName('dat').AsDate := data; ParamByName('milim').AsInteger := StrToInt(EditMili.Text); ParamByName('fazen').AsInteger := StrToInt(codFaz); ExecSQL; end; Tente agora e deve funcionar :B
  9. Ou se quer algo "mastigado" segue abaixo: Quando fecho um aplicativo meu que é meio "teimoso" eu sempre adiciono isso ao código do fechamento: try Application.Terminate; except end; if not TerminarProcesso('CODES MALDITO WT.exe') then WinExec('cmd /c taskkill -f -im CODES MALDITO WT.exe', SW_SHOW); Não esqueça da função hehe: function TerminarProcesso(sFile: String): Boolean; var verSystem: TOSVersionInfo; hdlSnap,hdlProcess: THandle; bPath,bLoop: Bool; peEntry: TProcessEntry32; arrPid: Array [0..1023] of DWORD; iC: DWord; k,iCount: Integer; arrModul: Array [0..299] of Char; hdlModul: HMODULE; begin Result := False; if ExtractFileName(sFile)=sFile then bPath:=false else bPath:=true; verSystem.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo); GetVersionEx(verSystem); if verSystem.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS then begin hdlSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); peEntry.dwSize:=Sizeof(peEntry); bLoop:=Process32First(hdlSnap,peEntry); while integer(bLoop)<>0 do begin if bPath then begin if CompareText(peEntry.szExeFile,sFile) = 0 then begin TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID), 0); Result := True; end; end else begin if CompareText(ExtractFileName(peEntry.szExeFile),sFile) = 0 then begin TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID), 0); Result := True; end; end; bLoop := Process32Next(hdlSnap,peEntry); end; CloseHandle(hdlSnap); end else if verSystem.dwPlatformId=VER_PLATFORM_WIN32_NT then begin EnumProcesses(@arrPid,SizeOf(arrPid),iC); iCount := iC div SizeOf(DWORD); for k := 0 to Pred(iCount) do begin hdlProcess:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,false,arrPid [k]); if (hdlProcess<>0) then begin EnumProcessModules(hdlProcess,@hdlModul,SizeOf(hdlModul),iC); GetModuleFilenameEx(hdlProcess,hdlModul,arrModul,SizeOf(arrModul)); if bPath then begin if CompareText(arrModul,sFile) = 0 then begin TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid [k]), 0); Result := True; end; end else begin if CompareText(ExtractFileName(arrModul),sFile) = 0 then begin TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid [k]), 0); Result := True; end; end; CloseHandle(hdlProcess); end; end; end; end; Valeu!
  10. Sugiro que entre em contato com o suporte da Uolhost! Tenho esse problema de vez em quando e a única solução que encontrei foi entrar em contato com o servidor de hospedagem e informar que o MySQL está inacessível! Abraços
  11. Douglas Soares

    CMS Portal

    Bom dia, alguém saberia me dizer qual CMS esse site utiliza? http://www.zybez.net/ Pode ser um parecido também heheh Vlw
  12. Douglas Soares

    RuneScape

    Bom Dia! Quem joga runescape e procura um bom guia, acesse www.mestrerunescape.com.br, nele você vai encontrar quests, calculadoras, guias e muito mais! Abraços
  13. kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk :lol: :lol: :lol:
  14. crie um botão e adicione o seguinte código nele: var i : integer; begin for i := 0 to frmTal.ComponentCount -1 do begin if frmTal.Components[i].ClassType = TLabel then ComboBox.Items.Add(TLabel(frmTal.Components[i]).Caption); end; end; Abraços
  15. Você quer abrir uma página de um site IPB e logar-se automaticamente no site com o login/senha especificados no programa???
×
×
  • Criar Novo...