Hallo liebe Experten!
Ich will minimalistisch 20 Zeichen hochladen und habe folgendes Codeschnipsel dafür gefunden:
Delphi-Quellcode:
procedure HTTPUpload(
Url:
String; Data:
string);
var create, file_Url_handle : Phandle;
Data_written : cardinal;
i : integer;
OK : Boolean;
buffer :
array[0..256]
of char;
begin
create := InternetOpen('
Mozilla/4.0 (compatible)', INTERNET_OPEN_TYPE_PRECONFIG ,
NIL,
NIL, 0);
file_Url_handle:=InternetOpenUrl(create, pchar(
Url),
NiL, 0, INTERNET_FLAG_RAW_DATA, 0);
if file_Url_handle<>
nil then begin
FillChar(buffer,sizeof(buffer),#0);
For i:=1
to length(Data)
do Buffer[i-1]:=Data[i];
OK:=InternetWriteFile( file_Url_handle, addr(buffer), sizeof(buffer), Data_Written);
end
else begin
MessageBox(0,'
Could Not Resolve Host!','
Error',0);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
HTTPUpload( '
http://microsoft.com/feedback/feedback.txt', '
HastalaVISTA Baby!');
end;
Nun, warum schreibe ich diesen Beitrag? Es geht net
Keine Fehlermeldung, "Data_Written" = 0. Alle Rechte im Uploadordner freigeschaltet (777).
Hat jemand der Experten hier im Forum einen hilfreichen Tip?
Es gibt zwar andere Codeschnipsel, aber so wie ich es verstanden habe, wird bei dieser Implementierung ein eventueller Proxy durch "INTERNET_OPEN_TYPE_PRECONFIG" ebenfalls berücksichtigt bzw. genutzt.
Wäre für einen Tip sehr dankbar!
Beste Grüße,
Der Byteworm
PIV/2500, Wxp SP3, D7Ent, Brille