Jump to content
Fórum Script Brasil

Douglas Soares

Veteranos
  • Content Count

    872
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Douglas Soares

  • Birthday 11/12/1993

Contatos

Perfil

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

Recent Profile Visitors

3778 profile views
  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. 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???
×
×
  • Create New...