Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Непонятная ошибка!!

Автор: Chpok 31.10.2006, 06:54

Привет, программисты!

Что-то непонятное творится!!!
Написал вот такую функцию, и...как бы сказать...

Код


procedure TfrAdditionLW.wdReportClose;
var
  fs: TFileStream;
  s: TMemoryStream;
  fn: OleVariant;
begin
  // Сохранить документ из Word'а в BLOB-поле базы
  try
    fn:=GetPathOfTemp+'cl_doc.dat';
    wdReport.SaveAs(fn);
    fs:=TFileStream.Create(GetPathOfTemp+'cl_doc.dat',fmOpenRead);

Вот до сюда курсор доходит при пошаговом запуске...
И всё!!! Управление передается программе: дальше событие не выполняется...
Пробывал закомментировать, то же самое, только на следующей строчке, как-будто событие может только из трех операторов состоять smile

Код


dmDB.Execute(Format('INSERT INTO '+DB_NAME+'.blob_tbl(body) VALUES ("%s");',[StreamToString(fs)]));
  finally
    fs.Free;
    // Удалить файл
  end;

  // Взять документ из BLOB-поля базы и вставить в OLE-контейнер
  try
    s:=dmDB.GetBLOB(dmDB.InsertedID);
    s.SaveToFile(GetPathOfTemp+'cl_blob.dat');
    ocReport.CreateObjectFromFile(GetPathOfTemp+'cl_blob.dat',False);
  finally
    fs.Free;
  end;
end;

Что делать, милые люди!? smile

Автор: dumb 31.10.2006, 07:57

TFileStream.Create генерирует исключение и управление переходит в блок finally.
если закомменировать создание потока, то исключение, соответственно, генерируется при попытке StreamToString(fs).

проверь, что там у тебя в GetPathOfTemp, и создается ли файл в результате wdReport.SaveAs(fn)

Автор: Fedia 1.11.2006, 04:49

Chpok,
данные из файла необходимо не только считать, но и преобразовать. Каждый символ с кодом #0 заменить на пару символов '\' + #0:

Код


  function FileDataToSqlValue(FName: string): string;
  var
    f: TFileStream;
    i, n, len: Integer;
    ArB: array [0..15] of Char;
  begin
    f:=TFileStream.Create(FName, fmOpenRead);
    SetLength(Result, f.Size);
    len:=0;
    while f.Position < f.Size do
    begin
      if f.Size - f.Position > 15 then
      n:=16 else
      n:=f.Size - f.Position;
      f.Read(ArB, n);
      for i:=len + 1 to len + 1 + n do
      Result[i]:=ArB[i - Len - 1];
      inc(len, n);
    end;
    Result:=StringReplace(Result, #0, '\' + #0, [rfReplaceAll]);
    FreeAndNil(f);
  end;

Если все правильно реализовано в плане самого запроса в строчке:

Код


dmDB.Execute(Format('INSERT INTO '+DB_NAME+'.blob_tbl(body) VALUES ("%s");',[StreamToString(fs)]));

, то запрос:

Код


dmDB.Execute(Format('INSERT INTO '+DB_NAME+'.blob_tbl(body) VALUES ("%s");',[FileDataToSqlValue(FName)]));

теоретически должен сработать.