probleme mit get

[jd-fun]

hallo @ all,

ich habe nicht hingekriegt, die indies zu installieren, wollte aber für eine von mir im netzt stehende seite mit möglichkeit eine datenbank zu durchsuchen für diese suche ein programm erstellen.

da ich die indies kriege, wollte es mit einer anderen möglichkeit versuchen, und zwar der möglichkeit, mit

Delphi-Quellcode:

ShellExecute(Application.Handle, 'open', PChar('http://www.deinedomain.de/'), nil,
nil, sw_ShowNormal);

ein getparameter mitzugeben, welches über ein formular im programm ermittelt wird.

das funktioniert auch gut, das get wird übermittelt und von der website auch verarbeitet, nur das problem ist, ich kriege nicht die variable, die mit inhalt aus dem formular gefüllt ist, als get übermittelt.

hier mal mein code, darunter dann das genaue problem

Delphi-Quellcode:

unit jdfun1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellApi,
  ExtCtrls, jpeg, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Image1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Form1: TForm1;
  text: string;

implementation

{$R *.DFM}

procedure TForm1.Image1Click(Sender: TObject);
begin

ShellExecute(Application.Handle, 'open', PChar('http://www.shellmaster.de/'), nil,
nil, sw_ShowNormal);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

text := Edit1.text;

ShellExecute(Application.Handle, 'open', PChar('http://www.jd-fun.de/db/suchmaschine4.php?a=text'), nil,
nil, sw_ShowNormal);

end;

end.

wenn man jetzt button1 anklickt wird soweit auch alles übermittelt, aber anstatt, dass der bei get den wert der varriable "text" einsetzt, wird als get das wort "text" übermittelt.

und dann sagt das suchscript immer:

zum wort "text" konnte kein inhalt gefunden werden. obwohl da ja auch statt "text" der wert der variable text übergeben werden soll...

kann man da irgendwie statt des wortes text die variable text übergeben?

tut mir übrigens leid, die frage muss für einen profie sicher sehr einfach sein, aber ich bin halt delphi-neuling... hab aber schon in anderen programmiersprachen erfahrungen, sonnst hätt ich ja wohl auch kaum das suchscript auf die beine bekommen... ich weiß, bei php müsste ich jetzt, um den wert der variabale "text" zu übergeben, als get $text schreiben und wird nicht wörtlich $text, sondern der wert von variable text übermittelt... aber wie das bei delphi läuft, weiß ich eben nicht...

danke schon mal im vorraus, ich hoffe, ihr könnt mir helfen.

Gruß:

jd-fun

[edit=sakura] Doppelpost entfernt Mfg, sakura[/edit]

[fkerber]

Hi!

Ich glaube, du meinst das hier:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var str: string;
begin 

str :='http://www.jd-fun.de/db/suchmaschine4.php?a='+Edit1.text; 

ShellExecute(Application.Handle, 'open', PChar(str), nil, 
nil, sw_ShowNormal); 

end;

Hoffe, das klappt.


Ciao Frederic

[jd-fun]

vielen dank, damit funzt es einwandfrei!

er übergibt als get das, was ich ins formular eintrage!

Gruß:

jd-fun