Indy für Dummies

[Exterminans]

@fui-tak

wenn ich das so mache

Delphi-Quellcode:

function sendeDatenAnServer(datenString: string):string;//Rückgabewert ist die Ausgabe des PHP-Scriptes
var
  Strings: TStringList; //Zusammengesetze Post-Daten
  Stream: TStringStream;//Ausgabe der Aufgerufenen Seite
begin
  Result := '';
  Stream := TStringStream.Create('');//Rückgabe-Stream erstellen
  Strings := TStringList.Create; //Post-Daten-StringList erstellen
  try
    Strings.Add('daten=' + datenString);//Memo1.Text (= datenString) soll im PHP-Script über $_POST['daten'] erreichbar sein

    try
      idHTTP.Post("http://#Die Adresse#.dyndns.org/upload.php?Dir=", Strings, Stream);//Datei abrufen
      Result := Stream.DataString; //dem Ausgabe-String die zurückgegebenen Daten zuweisen (alles was im PHP Script z.B. mit echo "..."; ausgegeben wurde)

    except //Fehlerbehandlung
     on E: Exception do
       ShowMessage('Error encountered during POST: ' + E.Message);
    end;
  finally
    Strings.Free;
    Stream.Free;
  end;
  end;

kommen die fehlermeldungen

[Fehler] Chartrans.pas(123): Undefinierter Bezeichner: 'Post'

[Fehler] Chartrans.pas(124): Der linken Seite kann nichts zugewiesen werden
//Bei ,,Result := Stream.DataString;''

[Fehler] Chartrans.pas(124): Anweisung erforderlich, aber Ausdruck vom Typ 'String' gefunden
//nochmal bei ,,Result := Stream.DataString;''

[Fataler Fehler] Chartransfer.dpr(5): Verwendete Unit 'Chartrans.pas' kann nicht compiliert werden

?

[fui-tak]

Ups, in dem Code fehlt die Erzeugung und Deklarierung der IdHTTP-Komponente

Neuer Code:

Delphi-Quellcode:

function sendeDatenAnServer(datenString: string):string;//Rückgabewert ist die Ausgabe des PHP-Scriptes
var
  Strings: TStringList; //Zusammengesetze Post-Daten
  Stream: TStringStream;//Ausgabe der Aufgerufenen Seite

  IdHttp: TIdHttp;//Vorher vergessene Deklaration 
begin
  IdHttp:=TIdHttp.Create(nil);//Vorher vergessene Erzeugung 

  Result := '';
  Stream := TStringStream.Create('');//Rückgabe-Stream erstellen
  Strings := TStringList.Create; //Post-Daten-StringList erstellen
  try
    Strings.Add('daten=' + datenString);//Memo1.Text (= datenString) soll im PHP-Script über $_POST['daten'] erreichbar sein

    try
      idHTTP.Post('http://#Die Adresse#.dyndns.org/upload.php?Dir=', Strings, Stream);//Datei abrufen
      Result := Stream.DataString; //dem Ausgabe-String die zurückgegebenen Daten zuweisen (alles was im PHP Script z.B. mit echo "..."; ausgegeben wurde)

    except //Fehlerbehandlung
     on E: Exception do
       ShowMessage('Error encountered during POST: ' + E.Message);
    end;
  finally
    Strings.Free;
    Stream.Free;
  end;
end;

[himitsu]

Zitat:

  IdHttp:=TIdHttp.Create(nil);//Vorher vergessene Erzeugung

Und wann gibst du das wieder frei?

[fui-tak]

Zitat von himitsu:

Und wann gibst du das wieder frei?

Hoppla
Ich hab anscheinend in letzter Zeit zu viel in Java gemacht...

Natürlich brauchen wir am Ende der Funktion noch das Freigeben:

Delphi-Quellcode:

...
  finally
    Strings.Free;
    Stream.Free;
    IdHttp.Free;
  end;
...

Jetzt sollte es das aber gewesen sein

[Exterminans]

Erst einmal vielen Dank an alle

Ich hab immer noch net so ganz den durchblick. Aber mein Programm macht jetz ETWAS (was ja schon eine steigerung zu vorher ist) aber wie, wo, wann, was hab ich immer noch net 100%ig gerafft.