Geht so zugegeben Sehr einfach. nur muß ich denne noch den Browser tab wieder schließen.
hast du ggf. dafür noch einen Tip, wie ich den tab wieder dicht machen kann? Im Späteren Verlauf, will ich dies zugegeben über das htmlpanel als ersatz für den Browser machen.
Schaut daher erst mal so aus.
Code: Alles auswählen
unit main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, httpsend, lclintf;
type
{ TForm2 }
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form2: TForm2;
implementation
{ TForm2 }
procedure TForm2.FormCreate(Sender: TObject);
begin
Caption := 'Bitte geben Sie die IP-Adresse ein!';
Edit1.Text:= '192.168.178.100';
Button1.Caption := '&Verbinden';
Button2.Caption := 'Ab&brechen';
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
OpenURL('http://' + Edit1.Text + '/ips.cgi?pg=ips&Aus=Aus');
Close;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
OpenURL('http://' + Edit1.Text + '/ips.cgi?pg=ips&Ein=Ein');
end;
initialization
{$I main.lrs}
end.