@Pluto...
Hab noch mal eine Frage zu den HTMLPanel. kann es sein, das es bei Lazarsu unter Windows anders läuft, als unter Linux??? frage deshalb, eine Anwenung welche unter Windows mit HTMLPanel läuft, zeigt mir die Komplette cgi einer Netzwerkseite an, welche zu einer meiner Geräte (IPS1) verwendet wird. unter Ubuntu zeigt es mir die Seite nicht an.
Kannst du bzw. ein andere Sich dieses Erklären???
Hier mal der code zu der anwendung.
Code: Alles auswählen
unit main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, httpsend, lNetComponents;//lclintf;
type
{ TForm2 }
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
IPS_Client: TLTCPComponent;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form2: TForm2;
implementation
{ TForm2 }
procedure TForm2.FormCreate(Sender: TObject);
begin
// Image1.Picture.LoadFromFile(PathDelim+'Img'+PathDelim+'elv.gif');
Image1.Picture.LoadFromFile('Img'+PathDelim+'elv.gif');
Caption := 'IPS 1 by ELV';
Label1.Caption:= 'IP - Adresse';
Edit1.Text:= '192.168.178.100';
Label2.Caption:= 'Port';
Edit2.Text:= '23';
Button1.Caption := '&Verbinden';
Button2.Caption := '&Trennen';
Button3.Caption := '&Beenden';
Memo1.Clear;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
http : THttpSend;
ss : TStringStream;
ServerIP, s : string;
Port : integer;
Verbindung: Boolean;
begin
Port:= StrToInt(Edit2.Text);
ServerIP := Edit1.Text;
Verbindung:= IPS_Client.Connect(ServerIP, Port);
if IPS_Client.Connect(ServerIP, Port) then
begin
Memo1.Append('Die Verbindung mit dem ' + Caption + ' wird aufgebaut...');
end;
ss := TStringStream.Create(Caption + ' wird Verbunden');
http := THttpSend.Create;
http.UserAgent := 'Mozilla/4.0 (compatible)';
Memo1.Append(http.Headers.Text);
s :='http://' + Edit1.Text + '/ips.cgi?pg=ips&Ein=Ein';
Memo1.Append('Sende: ' + s);
http.HTTPMethod('GET',s);
http.Document.SaveToStream(ss);
http.Free;
s := ss.DataString;
Memo1.Append(s);
end;
procedure TForm2.Button2Click(Sender: TObject);
var
http : THttpSend;
ss : TStringStream;
ServerIP, s : string;
Port : integer;
Verbindung: Boolean;
begin
ss := TStringStream.Create('');
http := THttpSend.Create;
http.UserAgent := 'Mozilla/4.0 (compatible)';
Memo1.Lines.add(http.Headers.Text);
s :='http://' + Edit1.Text + '/ips.cgi?pg=ips&Aus=Aus';
Memo1.Append('Sende: ' + s);
http.HTTPMethod('GET',s);
http.Document.SaveToStream(ss);
http.Free;
s := ss.DataString;
Memo1.Lines.add(s);
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Button2.Click;
Close;
end;
initialization
{$I main.lrs}
end.
werde morgen mal das Gerät wieder in's netz stellen und eine scr-shot posten. dann seht ihr das etwas gescheiter... anhand des Codes könnt ihr dies leider nicht erkennen, was ich meine.
Verein
Links
