Firebird Локальная ( проблемы и ошибки)

1.  С момента создания базы новой, могут быть сложности создания в ID триггеров и генератора, будет вылетать ошибки с этим CREATE SEQUENCE GEN_....

Решение: Просто создать всю работу с подключением в IB Expert не по пути к файлу а по localhost как удаленно соединяемся

2. Копируем что надо gds32.dll, qtintf70.dll....

3. Вылетает такая ошибка в программе  unsuccessful execution caused by an unavailable resource . Решение в FIB соединение прописать примерно так localhost:c:\dir\data.gdb  добавив localhost , так как в Delphi показывает ОК, а при запуске описанная ошибка.

4. Может ошибка типа отклонения соединения с хостом(базой ). где вообще не ставился никогда драйвера сервера firebird как раз на localhost ошибка с fbembed.dll.

Иной вариант для компов где вообще нет ничего firebird, в Delphi вместо gds32 прописываем fbembed.dll (в pFIBDatabase1), качаем

http://www.ibase.ru/firebird.htm#drv (Firebird 2.0.5 -  embedded) Который я скачал (скачать Firebird-2.0.5.13206-2_embed.zip в хранилище сайта ), ложим туда прогу и работает

 

где то так…

MainPath2:=ExtractFilePath(Application.ExeName);
MainPath2:=''+MainPath2+'\IPHOST.GDB';
pFIBDatabase1.LibraryName:='fbembed.dll';
pFIBDatabase1.DBName:=MainPath2;

pFIBDatabase1.Open;
ipSDS.Active:=true;

 

Подробнее: Firebird Локальная ( проблемы и ошибки)

Резка Html от тегов и между , но не вырезает ничего между script style и при многострочности

function StripHTML(S: string): string;
var
TagBegin, TagEnd, TagLength: integer;
begin
TagBegin := Pos( '<', S); // search position of first <
 
while (TagBegin > 0) do
begin // while there is a < in S
  TagEnd := Pos('>', S); // find the matching >
  TagLength := TagEnd — TagBegin + 1;
  if (TagLength > 0)
  then begin
  Delete(S, TagBegin, TagLength); // delete the tag
  TagBegin:= Pos( '<', S); // search for next <
  end
  else begin
    break;
  end;
end;
 
Result := S; // give the result
end;

Вариант 2 с твоим кодам не разбирался, я как-то писал себе такое, вот код

Подробнее: Резка Html от тегов и между , но не вырезает ничего между script style и при многострочности

Пинговка ( ping ) сети Интернет.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,  WinSock;

    type
      ip_option_information = packed record // header of an IP packet
        // Otherwise, the route option should be formatted as specified in RFC 791
        Ttl: byte; // Time to live
        Tos: byte; // Type of service, generally 0
        Flags: byte; // IP header flags, generally 0
        OptionsSize: byte; // Size in bytes of options data, generally 0, max 40
        OptionsData: Pointer; // Pointer to options data
      end;

Подробнее: Пинговка ( ping ) сети Интернет.

ошибка сценария internet explorer

 В интернете много описаний где правят браузер, реестр и другая хрень…

У меня решилось быстро, в моих программах которые серфят по интернут так .... webbrowser1.Silent = true и ошибка изчезает.