Warum bist du blockiert?
Versuche doch mal, dein konkretes Problem schriftlich nieder zu schreiben.
Gerne in einen anderen Thread.
Hast du mal mit Kommilitonen gesprochen? Wie haben die ihr Problem gelöst?
Dem Lehrenden/Professor kann man keine Frage stellen?
So sieht was ich für die Web services gemacht habe aus :
procedure TWebModule1.WebModule1AuthentifizierungAction(Send er: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
IdHTTP1:= TIdHttp.Create ;
IdHTTP1.ConnectTimeout:= 10000;
IdHTTP1.HandleRedirects := True;
IdHTTP1.Request.Clear;
IdHTTP1.Request.BasicAuthentication:= true;
IdHTTP1.Request.Authentication.Username := 'Username';
IdHTTP1.Request.Authentication.Password := 'Password';
Response := IdHTTP.Get(
URL);
try
IdHTTP1.Get('http://qwerty.wur.nl');
HttpCode := IdHTTP1.ResponseCode;
except
on E: EIdHTTPProtocolException do
HttpCode := IdHTTP1.ResponseCode;
end;//Für die Authentification habe den obigen Code selber geschrieben ,aber es ist nicht vollständig .Ich glaube ,muss ein Resquest und Response schreiben ,aber ich weiß wie es geht .
end;
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content:=
'<
html>' +
'<head><title>Webserver-Anwendung</title></head>' +
'<body>Webserver-Anwendung</body>' +
'</
html>';
end;// Das ist ein Default Web service und es ist unwichtig.
procedure TWebModule1.WebModule1SaveTimeStampAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
s: string;
begin
s := FormatDateTime('dd.mm.yyyy, hh:nn:ss', now);
ShowMessage(s);
FormatDateTime('dd.mm.yyyy, hh:nn:ss', now); // 31.12.1999 23:59:00
FormatDateTime('dd/mm/yy', now); // 31/12/1999
FormatDateTime('yy-mm-dd-hh-nn-ss', now); // 99-12-31-23-59-00
end;
end;// Hier möchte ich die Aktuelle Zeitstempel vom User (der User trägt seine Zeiten auf die App ein) in dem web Server (oder Server) speichern.Mit dem Resquest soll die Zeitstempel von App zu Server geschickt und Response soll eine Bestätigung zur App schicken,dass die Zeiten wurden im Server erfolgreich gespreichert .
procedure TWebModule1.WebModule1SeeTimeAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
//
end;// Hier muss ich ein Web service schreiben,das Zeit (von User) auf die App gezeigt ,das heißt ,der User soll seine gespeicherten Zeiten einsehen.
procedure TWebModule1.WebModule1SeeTripsAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
//
end;// Der User soll seine Fahrten auch einsehen können
procedure TWebModule1.WebModule1UpLoadPdfAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
//
end;// Ich habe auch hier keine Ahnung ,wie der Code aussehen soll , damit Pdf von Mobil App zu Web server hochgeladen wird .
procedure TWebModule1.WebModule1WebServiceFahrtenAction(Send er: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
//
end;// Hier soll der User seine Fahrten einsehen können.
// Fotos werden in dem Webserver hochgeladen und gespeichert.
procedure TWebModule1.WebModule1WebServiceFotoAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
http: TIdHttp;
multiStream: TIdMultiPartFormDataStream;
begin
// sendet eine Anfrage (Request) zum Hochladen eines Fotos
//Resquest :=
Response := IdHTTP1.Post('C:\Users\pc klinik\OneDrive\Desktop\SUdb\1.jpg',fmcreate);
//sendet eine Antwort (Reponse) zurück an den Client. Foto erfolgreich hochgeladen
//_--------------------------------------------------------
multiStream := TIdMultiPartFormDataStream.Create;
try
multiStream.AddFormField('field1', 'image/jpeg', '', sourceStream, 'image1.jpg');
multiStream.AddFormField('field2', 'value2');
http := TIdHttp.Create(nil);
try
http.Post(
url, multiStream);
finally
http.Free;
end;
finally
multiStream.Free;
end;
end;// Und da habe ich den Code geschrieben ,aber es scheint nicht so komplett zu sein .
Der Professor hat nie mit Delphi programmiert und hat gemeint,dass ich googlen soll .Die Kommilitoten arbeiten mit anderen programmiersprachen und einer hat mir gesagt ,dass er selber sein Stress hat und soll im Forum dort fragen.