Jump to content
Fórum Script Brasil

Bryant

Membros
  • Content Count

    84
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Bryant

  • Birthday 01/15/1988

Perfil

  • Gender
    Male
  • Location
    Rio de Janeiro
  1. Galera, Alguém sabe como mover sheets via delphi? Exemplo: Workbook.Sheets.Add (EmptyParam, EmptyParam, Count, SheetType, FLCID); Workbook.Sheets.Move(2, 3, FLCID); Onde workbook: property Workbook : TExcelWorkbook read GetWorkbook; Utilizando ExcelXP.pas que fica na pasta Ocx/Servers do próprio Delphi. Ele retorna "ole error 800a03ec" Eu crio uma sheet, depois quero mover para a posição indicada, depois da 2 e antes da 3.. mas não consigo. Alguém tem alguma idéia? Obrigado ;)
  2. Como faço para pegar a sheet ativa no delphi? Estou utilizando da seguinte maneira: property Workbook : TExcelWorkbook read GetWorkbook; TExcelWorkbook (ExcelXP.pas) Queria algo do tipo Workbook.Worksheets. Para que eu pudesse ver a selecionada. Alguém tem idéia?
  3. Alguém consegue enviar email para yahoo, ou gmail? Através do delphi não consigo de jeito nenhum. Consegui enviar emails internos da seguinda maneira: var FSmtpClient: TIdSMTP; FSmtpClient.QuickSend(FSMTP, GetEmailSubject(MsgTitle), UserEmail, FUserID, Msg.Text); Desta maneira, consigo enviar um email normalmente através do smtp da wnet, mas se tento enviar para outro e-mail, por exemplo [email protected], tenho como retorno: "Recipient address rejected: Access denied", sendo que não deveria acontecer, visto que envio normalmente pelo outlook por exemplo. Pediram pra setar o UseEhl
  4. Ninguém resolveu isso para o Delphi 7 até hoje? O documento XML deve ter um elemento de nível superior. Line: 0 Muito estranho isso...
  5. Galera, Estou com uma dúvida enorme, criei um webservice, sem NADA, dai setei o encoding dele para http://schemas.xmlsoap.org/soap/encoding/ Depois tentei alterar para vários valores: vazio, "aaaa" e por aí vai.. mas ele sempre inclui. Código abrindo o WSDL pelo IE <?xml version="1.0" encoding="utf-8" ?> - <definitions xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:xs="http://www.w3.org/2001/XMLSchema" name="ICoBioWebServiceIntfservice" targetNamespace="http://tempuri.org/" xmlns:tns="http://tempuri.org/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:soapenc="http://s
  6. Galera, Estou pensando em algumas certificações. Minha experiência de trabalho tem sido voltada muito para web e delphi. Eu gostaria de saber se alguém recomenda uma certificação em específico, se tem idéia do que esstudar, aonde algum curso é dado. Eu pensei em algo relacionado a BD... SQL sei lá.. Alguém tem alguma idéia? Vlw!
  7. Jhonas desculpe pela demora na resposta. Conhecia o cognaxon já, realmente para conversões de boa qualidade, é preciso utilizar um componente pago. Acabei comprando licenças da griaule mesmo, excelente componente. Muito obrigado por toda a ajuda!
  8. Link para um .rar com 5 samples: http://www.sendspace.com/file/0o9eln Obrigado pela ajuda toda ai Jhonas! ;) Aproveito e vou jogar minha unit toda aqui pra se você puder testar: unit UImgConverter; interface uses Classes, Types; type TImgConverter = class public class function WSQ2JpgBmp(WsqBuffer: PByte): Integer; end; function ImgConvWSQToRawBuf(WsqBuffer: PByte; RawBuffer: PByte; var Size: Integer; var Width: Integer; var Height: Integer): Integer; cdecl; external 'NImgConv.dll' name 'NBioAPI_ImgConvWSQToRawBuf'; function ImgConvRawToBmpBuf(RawBuffer: PByte; Width: Integ
  9. Não tinha reparado realmente, obrigado Jhonas. O ruim é que ele não deixa diminuir o tamanho, só se for bem pouco do tipo 380000, senão ele executa a primeira função e logo termina sem fazer nada. Porque no exemplo de C++ eles realmente utilizam 390000: lpBMPBuf = new unsigned char[600 * 650]; Po muito estranho isso não é oO ...meio sem idéias :huh: EDIT: o retorno do size está desta maneira: RAW_ARRAY = 384400; JPG_ARRAY = 323015; BMP_ARRAY = 385478; Este é o out de cada uma das funções, realmente o valor 390000 está certo aparentemente, mas ele quebra mesmo assim =/
  10. Só para evitar de criar um outro tópico.. Estas conversões são tão erradas assim? Estou utilizando um .wsq perfeito e quando faço a conversão para .bmp ou .jpg eu tenho um retorno do tipo: Utilizando as funções function ImgConvWSQToRawBuf(WsqBuffer: PByte; RawBuffer: PByte; var Size: Integer; var Width: Integer; var Height: Integer): Integer; cdecl; external 'NImgConv.dll' name 'NBioAPI_ImgConvWSQToRawBuf'; function ImgConvRawToBmpBuf(RawBuffer: PByte; Width: Integer; Height: Integer; BmpBuffer: PByte; out Size: Integer): Integer; cdecl; external 'NImgConv.dll' name 'NBioAPI_ImgConvRawToB
  11. Eu fiz o webservice chamando um executável só para fazer esta conversão. Ele consegue fazer, mas sempre estoura a memória no final, tudo muito estranho. o ruim é que o raw que ele gera, pela griaule dá sempre um template de má qualidade. Vou pesquisar mais sobre, obrigado mais uma vez Jhonas.
  12. Exatamente Jhonas!
  13. Pessoal, possuo um webservice (dll) e dentro dele existe uma unit que utiliza uma outra DLL, uma chamada do tipo: function ImgConvWSQToRawBuf(WsqBuffer: PByte; RawBuffer: PByte; var Size: Integer; var Width: Integer; var Height: Integer): Integer; cdecl; external 'NImgConv.dll' name 'NBioAPI_ImgConvWSQToRawBuf'; Mas o webservice não consegue executá-la, apenas consigo utilizar numa aplicação normal. Existe alguma limitação ou configuração que eu precise utilizar no IIS para que ele consiga rodar esta função? A .dll está no system32, adicionei como restrições ISAPI e CGI, mas ainda sim não
  14. Mais uma vez obrigado Jhonas. Pra quem tiver a mesma dúvida RawBuffer := VarArrayCreate( [0,RAW_ARRAY], varByte ); P := varArrayLock( RawBuffer ); Move( OutBuffer[0], P^, Length(OutBuffer) ); VarArrayUnlock( RawBuffer );
  15. Acho que consegui alguma coisa... function WSQ2Raw(WsqBuffer: PByte; out RawBuffer: OleVariant; out Size: Integer; out Width: Integer; out Height: Integer): Integer; var ImgConv : THandle; WSQToRawBuf : TImgConvWSQToRawBuf; OutBuffer : array[0..420000] of Byte; OutBufferPtr: PByte; Ix : Integer; const IMG_DLL = 'NImgConv.dll'; RAW_ARRAY = 420000; begin Result := -1; ImgConv := LoadLibrary(IMG_DLL); try if (ImgConv <> 0) then begin WSQToRawBuf := GetProcAddress(ImgConv, 'NBioAPI_ImgConvWSQToRawBuf'); OutBufferPtr := P
×
×
  • Create New...