VPF::TMemoryStream в KOL кто сталкивался ? - Форум программистов

Dron9999

Дата 5.3.2009, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.3.2009

Репутация: нет
Всего: нет

Привет всем! недавно столкнулся с такой проблемой и не могу найти на нее решение даже примера нет !
как отправить -принять фаил по сети если я использую KOl нашел исходничек на VCL
там в общем так :

Код



var
MS: TMemoryStream;
....
MS := TMemoryStream.Create;// Создаём буфер для файла
MS.LoadFromFile(FileName);
na := ExtractFileName(''+FileName);
SS.Socket.Connections[0].SendText('file#'+na+'#'+IntToStr(MS.Size)+'#');
MS.Position := 0; // Переводим каретку в начало файла
P := MS.Memory; // Загружаем в переменную "P" файл
SS.Socket.Connections[0].SendBuf(P^, MS.Size); // Посылаем файл

а как мне переделать это на кол! -[KOl] ??? smile

Dron9999

Дата 6.3.2009, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.3.2009

Репутация: нет
Всего: нет

что не так я делаю!?!
------------------------------

Код



procedure TForm1.SendFile;
var
filename: string;
srcfile: PStream;
begin
srcfile := NewFileStream(Filename, ofOpenRead);
if  Filename =  '1.bmp' then
  SS.Socket.Connections[0].SendStream(srcfile);
 srcfile.Free;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »