[delphi-br] Erro ao salvar arquivo BLOB em ASP.NET (Delphi 2005 + VCL.NET)

Thu, 05 May 2005 05:53:13 -0700 

O erro é o segunte:
-------------------
Exception Details: System.InvalidCastException: Specified cast is not
valid.


A função causadora é esta:
-------------------------
function TDataDocumento.Selecionar(pID: Integer): String;
var
  vQuery, DocSubject: String;
  objCommand: &Object;
  DataReader: FbDataReader;

  OutByte: Array of Byte;
  RetVal, StartIndex: Int64;
  BufferSize: Integer;

  fs: FileStream;
  bw: BinaryWriter;
begin
  vQuery := 'SELECT arquivo, descricao FROM doc_arquivo WHERE
id_arquivo = '+pID.ToString;
  objCommand := FTransporte.ExecutarComando_Criar(vQuery);

  DataReader :=
FbCommand(objCommand).ExecuteReader(CommandBehavior.SingleResult);
  BufferSize := 100;

  if DataReader.Read then
  begin
    DocSubject := DataReader.GetString(1);

    fs := FileStream.Create('c:\temp\teste.txt',
FileMode.OpenOrCreate, FileAccess.ReadWrite);
    bw := BinaryWriter.Create(fs);

    SetLength(OutByte, BufferSize-1);
    StartIndex := 0;
    ---------------
    A linha abaixo, está gerando o erro acima ;(
    ---------------
    RetVal := DataReader.GetBytes(1, StartIndex, OutByte, 0, BufferSize);

    while retVal = 100 do
    begin
      bw.Write(OutByte);
      bw.Flush;

      StartIndex := StartIndex + BufferSize;
      RetVal := DataReader.GetBytes(1, StartIndex, OutByte, 0,
BufferSize);
    end; { while }

    bw.Write(OutByte, 0, RetVal-1);
    bw.Flush;

    bw.Close;
    fs.Close;
  end; { if }
end;




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a