Simplistisch voorbeeld (niet getest, zo uit de hand getypt):
(wel voor Synapse omdat ik niet zo graag met Indy werk en dat niet zo uit de vuist kan tikken maar je kunt het voorbeeld makkelijk aanpassen)
Delphi Code:
uses httpsend, synautil;
type
TThreadLogger = class(TThread)
private
FUrl: String;
FData: String;
protected
procedure Execute; override;
public
constructor Create(const AUrl, AData: String); reintroduce; virtual;
end;
constructor TThreadLogger.Create(const AUrl, AData: String);
begin
inherited Create(false);
FreeOnTerminate := true;
FUrl := AUrl;
FData := AData;
end;
procedure TThreadLogger.Execute;
var
HTTP: THTTPSend;
begin
HTTP := THTTPSend.Create;
try
WriteStrToStream(HTTP.Document, ansistring(FData));
HTTP.MimeType := 'application/x-www-form-urlencoded';
{ Result := } HTTP.HTTPMethod('POST', FUrl);
finally
HTTP.Free;
end;
end;
// -----------------------
// GEBRUIK
// -----------------------
procedure Test;
// var Thrd: TThreadLogger;
begin
{ Thrd := } TThreadLogger.Create('https://somewebsi.te/page.php', 'somedata');
end;
Bookmarks