Archive for the 'général' Category



18
Apr

visioVOD: payperView chat avec Red et Flex

Mots clés Technorati : ,,,

 

Nouveau vidéo chat sous Flex/Red5 et amfPHP: www.visioVod.com

Videochat pour experts, vidéo chat pour site de voyance, vidéo chat pour sites de charme, chat pour site coaching.

Le chat “pay per view” est un chat video audio qui permet à un membre privilégié d’ avoir une conversation privée avec un(e) modèl(e) en audio vidéo. Il est basé sur le principe PAYperView: “payer pour voir”, soit payer pour bénéficier de cette conversation vidéo. il permet par exemple à des experts de vendre leur talent en ligne par minute de connexion. Voir schéma de fonctionnement.

Video chat pay per view, payperview: C’ est une solution idéale pour:

  • video chat pour site d’ experts
  • video chat pour site de voyance
  • video chat pour sites de charme
  • video chat pour site de coaching

 

image

1 Vidéo/Audio du modèle ou de l’expert en LIVE. un user VIP peut voir 4 webcams simultanément.

2 Bouton permettant de demander un chat privé à un modèle ou expert.

3 Bouton permettant de démarrer me propre webcam

4 Description du modèle/expert.

5 Entrée de chat pour envoyer un texte à un user .

6 Entrée de chat pour envoyer un texte à un modèle/expert.

7 Liste de modèles/experts online. Les boutons 1-4 permettent de choisir une webcam. Le bouton “+fav” permet d’ ajouter l’ expert à la liste des modèles favorites

8 Liste de modèles/experts favorites.

17
Apr

Capuccino : nouvelle version :red5 +flex + amfphp

Mots clés Technorati : ,,,

la nouvelle version de Capuccino videochat est disponible: développement sous FLEX et RED5 comme habitude !

 Capuccino video chat

06
Sep

delphi intercepter touche PRINT

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
private
    { Private declarations }
    id1, id2, id3, id4: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin

  if Msg.HotKey = id4 then
    ShowMessage(’Print Screen pressed !’);
end;

 
procedure TForm1.FormCreate(Sender: TObject);
  // Different Constants from Windows.pas
const
  MOD_ALT = 1;
  MOD_CONTROL = 2;
  MOD_SHIFT = 4;
  MOD_WIN = 8;
  VK_A = $41;
  VK_R = $52;
  VK_F4 = $73;
begin

  // Globally trap the Windows system key “PrintScreen”
  id4 := GlobalAddAtom(’Hotkey4′);
  RegisterHotKey(Handle, id4, 0, VK_SNAPSHOT);
end;

 

procedure TForm1.FormDestroy(Sender: TObject);
begin

  UnRegisterHotKey(Handle, id4);
  GlobalDeleteAtom(id4);
end;

end.

22
Aug

delphi extraction nom du fichier sans extension

Voici la commande pour extraire le nom du fichier sans extension

filename := ChangeFileExt(ExtractFileName(’PathFileNameHere’),”);

ex: c:\windows\system.ini ->system

10
Aug

PHP et PAYPAL

générer un PDT
https://paypaltech.com/PDTGen/generate_pdt.php

 

générer un SG2
http://paypaltech.com/SG2/PHPDbSQL.php

09
Aug

JPEG smooth resize with Graphics32

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,JPEG, StdCtrls,   ExtCtrls, GR32, GR32_Image, GR32_Transforms, GR32_Resamplers, GR32_System;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function RescalePic(aFileName,destinationFile: String;x,y:integer): TBitmap;

  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.RescalePic(aFileName,destinationFile: String;x,y:integer): TBitmap;
Var
  R: TKernelResampler;
  ASrcImage: TBitMap32;
  ADstImage: TBitMap32;
  ABmp: TBitMap;
  AJPeg: TJPegImage;
  AScale: Extended;
  lPageIndex : Integer;
begin
  // Zum Abspeichern als Jpeg
  AJPeg     := TJPEGImage.Create;
  ABmp      := TBitMap.Create;
  // Original
  ASrcImage := TBitmap32.Create;
  // destintaion
  ADstImage := TBitMap32.Create;
  try
    ASrcImage.LoadFromFile(aFileName);
    ADstImage.Width  := x;
    ADstImage.Height := y;
    R := TKernelResampler.Create(ASrcImage);
    R.Kernel := TLanczosKernel.Create;

    ADstImage.Draw(ADstImage.BoundsRect, ASrcImage.BoundsRect, ASrcImage);
    ABmp.Assign(ADstImage);

    result := ABmp;
    AJPeg.Assign(ABmp);
    AJPeg.SaveToFile(destinationFile);

  finally
    AJPeg.Free;
    ADstImage.Free;
    ASrcImage.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
        RescalePic(’c:\swftools\xpage1.jpg’,’c:\swftools\xpage1.jpg2.jpg’,400,300);
end;

end.

02
Aug

Flash ComboBox couleurs individuelles

setPropertiesAt

//
my_list.addItem({label:”zaza”,data:”zaza”});
my_list.addItem({label:”zaza”,data:”zaza”});
my_list.addItem({label:”zaza”,data:”zaza”});
my_list.addItem({label:”zaza”,data:”zaza”});
my_list.addItem({label:”zaza”,data:”zaza”});
my_list.addItem({label:”zaza”,data:”zaza”});
//
my_list.iconField=”icon”;
my_list.setStyle(”backgroundColor”,0×00FF00);
my_list.setPropertiesAt(2, {backgroundColor:0×0000FF, icon: “logo”});
my_list.setStyle(”color”, 0xff0000);
my_list.setStyle(”selectionColor”,0xFFFF00);
my_list.setStyle(”fontFamily”,’_sans’);
my_list.setStyle(”fontSize”,18);

26
Jun

demarrage programme comme service DOS/DELPHI

Tout d’abord il faut telecharger les deux fichiers suivant : srvany.exe et instsrv.exe
Ensutie copiez-les dans le répertoire C:\windows\system32

instsrv Mon_Service srvany.exe

Dans le gestionnaire de services, vous verrez alors apparaître une nouvelle entrée du nom de Mon_Service.
Exécuter regedit
Développez l’arborescence HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Mon_service\Parameters et ajoutez la valeur STRING

Application” : chemin jusqu’à l’exécutable

Il ne reste plus qu’à lancer le service soit par le gestionnaire soit par la commande

net start Mon_Service

18
Jun

flex et amfPHP

2 options pour le renvoi des données dans Flex

  • Utilsation des tableaux Arrays
PHP:
  1. while ($row = mysql_fetch_object($Result))
  2. {
  3. $myArray[] = $row;
  4. }
  5. return $myArray;

 

  • ou renvoi direct du recordset mysql_query
PHP:
  1. return mysql_query($query);

 

Le premier cas permet de faire des traitements/test php avant le renvoi des données (attention si vous souhaitez mettre les données dans un datagrid et utiliser les fonctions de tri: si vos données sont des nombres faire un

settype($maval, “integer”)

avant le renvoi, sinon amfphp reverra sous le format texte et flex triera les données comme du texte)

 

18
Jun

upload d’un fichier sous Flex

file_upload.php:

PHP:
  1. <!–p<br–>   // you send messages back to the client
  2.    // and then move the file from php’s temporary upload directory to your local directory
  3.    // Filedata is the default name used in uploading
  4.    echo \nReceiving upload…\n;
  5.    echo “temporary file name = “ . $_FILES[‘Filedata’][‘tmp_name’].\n;
  6.    echo “file name = “ . $_FILES[‘Filedata’][‘name’].\n;
  7.    echo “file size = “ . $_FILES[‘Filedata’][’size’].\n;
  8.    echo “attempting to move file…\n;
  9.    move_uploaded_file($_FILES[‘Filedata’][‘tmp_name’], “./”.$_FILES[‘Filedata’][‘name’]);
  10.    echo “file moved\n;
  11. ?>

 

XML:
  1. <?xml version=“1.0″ encoding=“utf-8″?>
  2. <mx:Application xmlns:mx=“http://www.adobe.com/2006/mxml” layout=“absolute” backgroundColor=“#f6f6f6″ backgroundGradientColors=“[#f6f6f6, #bbbbbb]”>
  3.  
  4.    <mx:Label x=“10″ y=“10″ text=“File Upload” fontSize=“20″ fontWeight=“bold”/>
  5.    <mx:HRule x=“10″ y=“49″ width=“80%”/>
  6.   
  7.    <mx:Button x=“10″ y=“59″ label=“Upload” click=“{upload()}”/>
  8.   
  9.    <mx:Script>
  10.       <![CDATA[
  11.       import flash.events.DataEvent;
  12.      
  13.       public var fileRef:FileReference = new FileReference();
  14.      
  15.       public function upload():void {
  16.          // listen for the file selected event
  17.          // listen for the upload complete event
  18.          fileRef.addEventListener(Event.SELECT, selectHandler);
  19.          fileRef.addEventListener(Event.COMPLETE, completeHandler);
  20.          fileRef.addEventListener(DataEvent.UPLOAD_COMPLETE_DATA   , uploadCompleteHandler);
  21.         
  22.          // browse for the file to upload
  23.          // when user selects a file the select handler is called
  24.          try {
  25.              var success:Boolean = fileRef.browse();
  26.          }
  27.          catch (error:Error) {
  28.              trace("Unable to browse for files.");
  29.          }
  30.       }
  31.      
  32.       // when a file is selected you upload the file to the upload script on the server
  33.       public function selectHandler(event:Event):void {
  34.           var request:URLRequest = new URLRequest("upload.php")
  35.           try {
  36.              // upload file
  37.               fileRef.upload(request);
  38.               textarea1.text = "uploading " + fileRef.name + "…";
  39.           }
  40.           catch (error:Error) {
  41.               trace("Unable to upload file.");
  42.           }
  43.       }
  44.      
  45.       // dispatched when file has been given to the server script. does not receive a response from the server
  46.       public function completeHandler(event:Event):void {
  47.           trace("file uploaded complete");
  48.       }
  49.      
  50.       // dispatched when file has been uploaded to the server script and a response is returned from the server
  51.       // event.data contains the response returned by your server script
  52.       public function uploadCompleteHandler(event:DataEvent):void {
  53.           trace("uploaded… response from server: \n" + String(event.data));
  54.           textarea1.text += event.data as String;
  55.       }
  56.      
  57.       ]]>
  58.    </mx:Script>
  59.   
  60.    <mx:TextArea x=“10″ y=“89″ width=“327″ height=“134″ id=“textarea1″/>
  61.  
  62. </mx:Application>