Witam,
Od razu na wstępie chciałbym powiedzieć , że dopiero się uczę i proszę o wyrozumiałość.
Chciałbym wysyłać dane za pomocą Winsock, lecz niestety nie wiem jak to dokładnie zrobić, próbowałem na wiele sposobów, ale i tak nie wysyłało mi danych, albo wysyłało a zle.
Wcześniej bawiłem sie z kodem , który znalazłem w internecie i mi działa.
Zrobiłem działające wysyłanie GET'em danych przez ten kod, lecz musze dodatkowo podpiąć moduły "
SynaCode;
httpSen;"
A one waża o pare kB za dużo :D Chciałbym zrobić jak najmniejszy plik, dlatego postanowiłem próbować użyc WInsock
I teraz moje pytanie, czy ktoś może mi pomóc zmodyfikować mój kod na Winsock,ewentualnie dać podpowiedz ?
procedure SendData;
begin
func.httpToStream('http://www.domena.pl/add.php'+(
//general data
'owoc='+aktualnyOwoc+
'&warzywo='+aktualneWarzywo
),nil);
end;
Aktualne funkcje, do teogo potrzebne :
function StreamToString(aStream: TStream): string;
var
SS: TStringStream;
begin
if aStream <> nil then
begin
SS := TStringStream.Create('');
try
SS.CopyFrom(aStream, 0);
Result := SS.DataString;
finally
SS.Free;
end;
end else
begin
Result := '';
end;
end;
function httpToStream(URL : string; const SomeStream : TStream): string;
var
SynHttp : THttpSend;
begin
Result:='';
SynHttp := THttpSend.Create;
try
SynHttp.HTTPMethod('GET', EncodeUrl(Url));
if SomeStream <> nil then
begin
SynHttp.Document.SaveToStream(SomeStream);
SomeStream.Position := 0;
end
else
result:=StreamToString(SynHttp.Document);
finally
SynHttp.Free;
end;
end;
Proszę o pomoc