Intraweb im Netzwerk

[matashen]

Hallo folgende Versionen

Intraweb 12.0.8
Delphi XE2 Enterprise


Die Beispiele von Atozed Software compilieren leider nicht da die Types die sie vorgeben in 12.0.8 nicht oder anders definiert bin.

quäl mich gerade durch die Atozed Seite nach Infos.
Wenn die Seite mit intraweb gebaut ist, dann ist das keine gute Werbung.

Ich habs jetzt zumindest geschafft über das Severereignis ONBrowserCheck die Exception abzufangen. Leider wird die Seite an den anderen Rechnern noch nicht 100% dargestellt. Ich denk aber ich bin aufm richtigen Weg.

Gruß Matthias

[Sir Rufo]

Zitat von matashen:

Hallo folgende Versionen

Intraweb 12.0.8
Delphi XE2 Enterprise

Dann mach doch mal das Update auf die 12.2.8 http://www.atozed.com/IntraWeb/Downl...wnload.DE.aspx

EDIT: Das sollte man auf jeden Fall auch ernst nehmen

Zitat von Atozed:

Before you proceed to the downloads page: ...

[Despaired]

Hi,

ich hatte ein ähnliches Problem, vielleicht hilft dir das hier weiter

Delphi-Quellcode:

procedure TIWServerController.IWServerControllerBaseBrowserCheck(aSession: TIWApplication; var rBrowser: TBrowser);
var
  MinVersion: Single;
begin
  // unknown browser
  if (rBrowser is TOther) then begin
    rBrowser.Free;
    // accept the unknown browser as Internet Explorer 8
    rBrowser := TInternetExplorer.Create(8);
  end
  // if is Safari, but older version
  else if (rBrowser is TSafari) and (not rBrowser.IsSupported) then begin
    MinVersion := rBrowser.MinSupportedVersion;
    rBrowser.Free;
    // we will create it as the minimum supported version
    rBrowser := TSafari.Create(MinVersion);
  end
  // if is Chrome, but older version
  else if (rBrowser is TChrome) and (not rBrowser.IsSupported) then begin
    MinVersion := rBrowser.MinSupportedVersion;
    rBrowser.Free;
    // we will create it as the minimum supported version
    rBrowser := TChrome.Create(MinVersion);
  end
  // if is Firefox, but older version
  else if (rBrowser is TFirefox) and (not rBrowser.IsSupported) then begin
    MinVersion := rBrowser.MinSupportedVersion;
    rBrowser.Free;
    // we will create it as the minimum supported version
    rBrowser := TFirefox.Create(MinVersion);
  end
  // if is IE, but older version
  else if (rBrowser is TInternetExplorer) and (not rBrowser.IsSupported) then begin
    MinVersion := rBrowser.MinSupportedVersion;
    rBrowser.Free;
    // we will create it as the minimum supported version
    rBrowser := TInternetExplorer.Create(MinVersion);
  end;
end;

Gruß

[pustekuchen]

Mit diesem Fehler musste ich mich auch rumschlagen. Habs wiefolgt gelöst, ähnlich wie von Despaired
:

Delphi-Quellcode:

uses IW.Browser.Browser, IW.Browser.InternetExplorer;

procedure TIWServerController.IWServerControllerBaseBrowserCheck(
  aSession: TIWApplication; var rBrowser: TBrowser);
begin
  if not rBrowser.IsSupported then
  begin
    rBrowser.Free;
    rBrowser := TInternetExplorer.Create(9);
  end;
end;

Wenn du noch nicht groß angefangen hast, würde ich vorherst Updaten. Dort ist das Problem nicht mehr vorhanden. Außerdem hatte ich Probleme von dieser Version auf die neuste Upzudaten..

[Despaired]

Shame on me, hab die uses vergessen anzugeben

Delphi-Quellcode:

uses
  SysUtils, Classes, IWServerControllerBase, IWBaseForm, HTTPApp,
  // For OnNewSession Event
  UserSessionUnit, IWApplication, IWAppForm, IW.Browser.Other,
  IW.Browser.Browser,
  IWURLResponderBase, IWURLResponder, IW.HTTP.Reply, IW.HTTP.Request,
  IWURLResponderDirLister, ExtCtrls,
  UTF8ContentParser,
  IW.Browser.InternetExplorer,
  IW.Browser.Safari,
  IW.Browser.Chrome,
  IW.Browser.Firefox, IWStandAloneServer, IWBaseComponent, IWBaseHTMLComponent,
  IWBaseHTML40Component, IWCompExtCtrls;

mfG