Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> help to convert code from c# to delphi 
:(
    Опции темы
muratboy31
Дата 22.12.2010, 10:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



below...

Это сообщение отредактировал(а) muratboy31 - 25.12.2010, 21:03
PM MAIL   Вверх
cat512
Дата 23.12.2010, 01:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



something like that
Код

const 
  Uri: string = 'http://google.com';
var
  Req: OleVariant;
begin
   Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
   Req.Open('GET' Url, false);
   Req.ResponseStream;

//A working with player is like above
end;

PM MAIL   Вверх
huismori
  Дата 23.12.2010, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



I want to use that also...
good idea  smile 

Это сообщение отредактировал(а) huismori - 23.12.2010, 10:15
PM MAIL   Вверх
muratboy31
Дата 23.12.2010, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



ofcourse u can use it if i can manage to solve it...

thanks for ur help by the way cat512 ... i tried it like that but i had problem with it...

it gives that error;
user posted image


Это сообщение отредактировал(а) muratboy31 - 25.12.2010, 21:03
PM MAIL   Вверх
cat512
Дата 23.12.2010, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



muratboy31 could you give more details in the future PLEASE??? Once, I have already asked you about it! 
What does line give that error?

Это сообщение отредактировал(а) cat512 - 23.12.2010, 20:55
PM MAIL   Вверх
muratboy31
Дата 23.12.2010, 21:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



bold line gives error, if thats what u r asking !!! it has to speak the text using player...

Цитата

var
  Req: OleVariant;
begin
   Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
   Req.Open('GET', Uri, false);
   Req.ResponseStream;
   MediaPlayer1.filename:=Req;   //// this line gives error
   MediaPlayer1.open;
   MediaPlayer1.play;


i want to make a speakable card app...

Это сообщение отредактировал(а) muratboy31 - 25.12.2010, 21:04
PM MAIL   Вверх
cat512
Дата 23.12.2010, 22:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



muratboy31 don't feel hurt to me, but you have written rubbish. Do you know what is a streaming player? How does streaming player difference from no streaming player?
Streaming player gets to itself input a stream of network data, and immediately processes and plays it for users. No streaming player gets to itself input a  filename string and tries to find the file, after tries to open and to play it. In your program, you try to play by no streaming player a network data stream. It is impossible(and incredible  smile ) The no streaming player doesn't know what is a data stream  so, and how it can process. 
Код

MediaPlayer1.filename:= {here, you must write a filename string, but no a data stream}

You can use two way for solving of your problem:
1 You can save a data stream as file to your hard drive.
2. You can use a streaming player which is ActiveX and it makes like "WinHttp.WinHttpRequest.5.1" object


Это сообщение отредактировал(а) cat512 - 23.12.2010, 22:37
PM MAIL   Вверх
muratboy31
Дата 23.12.2010, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



sorry for writing rubbish  smile i am not good at explaining my self ...
do u think it would b better to use 3. party component for playing stream or download the streaming file and play ?
can u please direct me to it ? 
PM MAIL   Вверх
cat512
Дата 23.12.2010, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



I was meaning when i wrote "you have written rubbish" for you that your program is wrong.
Цитата

sorry for writing rubbish

 smile  It's no awful. 
I dont know what does "3. party component" mean? Can explain me ?

Это сообщение отредактировал(а) cat512 - 23.12.2010, 23:44
PM MAIL   Вверх
muratboy31
Дата 23.12.2010, 22:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



i meant to say stream play component... i think it exist...
PM MAIL   Вверх
cat512
Дата 23.12.2010, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Ok, I Understood. Personally, I would b use streaming components,  but 
 I think a using of streaming components is more difficult than a saving  data stream  to hard drive.
You can use what is easier for you

Это сообщение отредактировал(а) cat512 - 23.12.2010, 23:31
PM MAIL   Вверх
muratboy31
Дата 23.12.2010, 23:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



i found a component but i am not sure if it will work !!!
Wave Audio Package Download
can u please help me with it !!!
Thanks
PM MAIL   Вверх
cat512
Дата 24.12.2010, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



what kind of help do you need?
PM MAIL   Вверх
muratboy31
Дата 24.12.2010, 00:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



ok if i try to save it to hdd and play after... how would i save the stream !!! it wouldnt b like saving text file !!!


PM MAIL   Вверх
cat512
Дата 24.12.2010, 02:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



There is a wrapper of win's stream in vcl. It names TOleStream. You can use it and a TMemoryStream together for a saving to hard disk
PM MAIL   Вверх
muratboy31
Дата 24.12.2010, 10:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



i found something and tried to play with it little bit but it didnt actually work... what am i doing wrong here ?

Цитата

Uses Axctrls;

Procedure TInterfaceStream.LoadFromIStream(Source : IStream);
var
  Adapt : TOLEStream;
  Buff : Byte;
  I : Integer;
begin
ADapt := TOLEStream.Create(Source);
Adapt.Position := 0;
Self.Clear;
Self.Position := 0;
For I := 0 to Adapt.Size do
  begin
    Adapt.Read(Buff, 1);
    Self.Write(Buff, 1);
  end;
Self.Position := 0;
end;

Function TInterfaceStream.GetIStream : IStream;
var
  Adapt : TStreamAdapter;
  tPos : Int64;
begin
Adapt := TStreamAdapter.Create(Self);
Adapt.Seek(0, 0, tPos);
Result := Adapt as IStream;
end;



procedure TForm1.Button1Click(Sender: TObject);
var
  Server : ISampleCOMObj;
  temp : IStream;
  ResultStream : TInterfaceStream;
begin
Server := CreateCOMObject(Class_TSampleCOMObj) as ISampleComObj;
temp := Server.method1;
ResultStream := TinterfaceStream.Create;
ResultStream.Clear;
resultStream.Position := 0;
resultstream.LoadFromIStream(Temp);
///play temp here
end;


Это сообщение отредактировал(а) muratboy31 - 25.12.2010, 21:04
PM MAIL   Вверх
cat512
Дата 24.12.2010, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Код

var
   Req: OleVariant;
   Stream: TOleStream;
begin
   Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
   Req.Open('GET', Uri, false);
   Req.Send(null);
   Stream := TOleStream.Create(IUnknown(Req.ResponseStream) as IStream);
   try
  //do something
   finally
     stream.free;
   end;
end;

PM MAIL   Вверх
huismori
Дата 24.12.2010, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



nomar media palyer wouldny play it i think beacuase it is stream no ?

Это сообщение отредактировал(а) huismori - 24.12.2010, 15:48
PM MAIL   Вверх
muratboy31
Дата 24.12.2010, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



no it doesnt play it. i tried but i also this didnt work !!!

altough i stored it in to memory stream i couldnt make it to play !!!
it is saying " incompitable type tmemorystream and pwidechar "

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  Req: OleVariant;
  Stream: TOleStream;
  Sound:tmemorystream;
begin
   Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
   Req.Open('GET', Uri, false);
   Req.ResponseStream;

  Stream := TOleStream.Create(IUnknown(Req.ResponseStream) as IStream);
   try
   Sound.LoadFromStream(Stream);
   Win32Check(PlaySound(Sound, 0, SND_SYNC or SND_MEMORY));
   finally
     stream.free;
     Sound.Free;
   end;
end;


Это сообщение отредактировал(а) muratboy31 - 25.12.2010, 21:04
PM MAIL   Вверх
cat512
Дата 24.12.2010, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Do you look carefully what i write you???
There is a line
Код

   Req.ResponseStream;

in your code which doesn't need to be there. And this
Код

Req.Send(null);

line must be instead of that line.
What is PlaySound?
PM MAIL   Вверх
huismori
Дата 24.12.2010, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Did you find a component to plat stream ?

Это сообщение отредактировал(а) huismori - 24.12.2010, 16:17
PM MAIL   Вверх
muratboy31
Дата 24.12.2010, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



MMSystem unit attemps to plays waw files thats why i wanted to try it...

Код

Win32Check(PlaySound(Sound, 0, SND_SYNC or SND_MEMORY));


i searched for a component to play stream but non seemed to work with delphi 2010 !!!
PM MAIL   Вверх
cat512
Дата 24.12.2010, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



you need to correct your program as i have pointed you and to try again
PM MAIL   Вверх
muratboy31
Дата 24.12.2010, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



can u please tell me how i can play the stream ? i really tried to find components for it for no luck !!!
PM MAIL   Вверх
cat512
Дата 25.12.2010, 00:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Show me a text of your program
PM MAIL   Вверх
muratboy31
Дата 25.12.2010, 00:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



what do u mean by text !!! do u want to c the codes ?

Код

procedure TForm1.Button1Click(Sender: TObject);
var
   Req: OleVariant;
   Stream: TOleStream;
begin
   Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
   Req.Open('GET', Uri, false);
   Req.Send(null);
   Stream := TOleStream.Create(IUnknown(Req.ResponseStream) as IStream);
   try

  //how can i play the stream here

   finally
     stream.free;
   end;
end;





Это сообщение отредактировал(а) muratboy31 - 25.12.2010, 21:04
PM MAIL   Вверх
cat512
Дата 25.12.2010, 01:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Yes, the code. Very well, you correct it.
Now, you can try to do the following
Код

procedure TForm1.Button1Click(Sender: TObject);
const
  Uri: string = 'http://api.microsofttranslator.com/v2/Http.svc/Speak?appId=' + 'My IP Id' +
         '&text=' + 'I Love You' + '&language=' + 'en';
var
   Req: OleVariant;
   Stream: TOleStream;
   Mem: TMemoryStream;
begin
   Req := CreateOleObject('WinHttp.WinHttpRequest.5.1');
   Req.Open('GET', Uri, false);
   Req.Send(null);
   Stream := TOleStream.Create(IUnknown(Req.ResponseStream) as IStream);
   try

  //how can i play the stream here
      Mem := TMemoryStream.Create;
      try
        Mem.LoadFromStream(Stream);
        Mem.SaveToFile('MyFile.tmp');    
      finally
        Mem.Free;
      end;
      MediaPlayer.FileName := 'MyFile.tmp';
      MediaPlayer.Play;
   finally
     stream.free;
   end;
end;

PM MAIL   Вверх
muratboy31
Дата 25.12.2010, 10:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



thanks alot with ur helps cat512 but there is a problem
it doesnt play the file with media player !!!




Это сообщение отредактировал(а) muratboy31 - 25.12.2010, 18:50
PM MAIL   Вверх
cat512
Дата 25.12.2010, 15:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



can you try to change the file exstension
PM MAIL   Вверх
muratboy31
Дата 25.12.2010, 18:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



ok this problem acurs because of tmedia player but it works with windowsmedia player ...

Это сообщение отредактировал(а) muratboy31 - 25.12.2010, 18:16
PM MAIL   Вверх
cat512
Дата 25.12.2010, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



ok, In this case, you can use the microsoft windows media player or other players which will be able to play your file
PM MAIL   Вверх
muratboy31
Дата 25.12.2010, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



yes i will do that
thank you sooo much cat512  smile 
u made my day smile 
PM MAIL   Вверх
Страницы: (3) [Все] 1 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0706 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.