03.05.2009, 21:41
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
Сообщение от НTL
Как можно вместо масаги отправить содержимое txt файла?
PHP код:
function GTFF(AF: string; var RS: string): Boolean;
var
FS: TFileStream;
begin
Result := False;
if not FileExists(AF) then Exit;
FS:=TFileStream.Create(AF, fmOpenRead);
try if FS.Size <> 0 then begin
SetLength(RS,FS.Size);
FS.Read(RS[1], FS.Size);
Result := True;
end; finally FS.Free; end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if GTFF('c:\ALCxxx-06.log', s) then
ICQClient1.SendMessage(Ася,s);
end;
|
|
|