Code: Alles auswählen
ms.WriteBuffer(Pointer(s)^,Length(s));

Freundliche Grüsse
exc-jdbi
Code: Alles auswählen
ms.WriteBuffer(Pointer(s)^,Length(s));
Code: Alles auswählen
ms:=tMemoryStream.Create;
....
ms.Seek(0, soFromBeginning);
SetString(s,pAnsiChar(ms.Memory),ms.Size); //pAnsiChar wäre eine Möglichkeit
Code: Alles auswählen
try
try
... ... ...
except
result:=false;
end
finally
if assigned(hfile) then InternetCloseHandle(hfile);
if assigned(hsession) then InternetCloseHandle(hsession);
end;